diff options
author | Nicholas Clark <nick@ccl4.org> | 2008-11-17 22:34:48 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2008-11-17 22:34:48 +0000 |
commit | 22fb4d2c098473b457469b44d270e3aaffef4030 (patch) | |
tree | 0d47a87beb8ec8a6ed78825da2e769f61eb98b8f | |
parent | 08e24ea56da3af2679346784769b178e8ac42bf1 (diff) | |
download | perl-22fb4d2c098473b457469b44d270e3aaffef4030.tar.gz |
Integrate:
[ 34866]
Integrate:
[ 34859]
Add a $VERSION, strict and some documentation to Tie::StdHandle.
p4raw-link: @34866 on //depot/maint-5.10/perl: c0c8dc5dc601849478243a987dd73642f4741b97
p4raw-link: @34859 on //depot/perl: d10ced8a0718a50590450dfb6f8db4eb7511a2e4
p4raw-id: //depot/maint-5.8/perl@34875
p4raw-integrated: from //depot/maint-5.10/perl@34872 'copy in'
lib/Tie/StdHandle.pm (@32694..)
-rw-r--r-- | lib/Tie/StdHandle.pm | 35 |
1 files changed, 33 insertions, 2 deletions
diff --git a/lib/Tie/StdHandle.pm b/lib/Tie/StdHandle.pm index 93db289432..3a1a3db478 100644 --- a/lib/Tie/StdHandle.pm +++ b/lib/Tie/StdHandle.pm @@ -1,8 +1,39 @@ package Tie::StdHandle; +use strict; + use Tie::Handle; -our @ISA = 'Tie::Handle'; -use Carp; +use vars qw(@ISA $VERSION); +@ISA = 'Tie::Handle'; +$VERSION = '4.2'; + +=head1 NAME + +Tie::StdHandle - base class definitions for tied handles + +=head1 SYNOPSIS + + package NewHandle; + require Tie::Handle; + + @ISA = qw(Tie::Handle); + + sub READ { ... } # Provide a needed method + sub TIEHANDLE { ... } # Overrides inherited method + + + package main; + + tie *FH, 'NewHandle'; + +=head1 DESCRIPTION + +The B<Tie::StdHandle> package provide most methods for file handles described +in L<perltie> (the exceptions are C<UNTIE> and C<DESTROY>). It causes tied +file handles to behave exactly like standard file handles and allow for +selective overwriting of methods. + +=cut sub TIEHANDLE { |