Next The Perl Hardware Store DC.pm Version 50

Globjects

     sub remember {
       # $self is a GLOB reference
       my ($self, $key) = @_;
       *$self->{$key} = tell $self;
     }

     sub gobackto {
       my ($self, $key) = @_;
       seek $self, *$self->{$key}, 0;
     }


Next Copyright © 2003 M. J. Dominus