Help for this page

Select Code to Download

Select or download this

sub new {
   my $class = (ref($_[0]) || $_[0]);
...
   tie %$self, $class;
   $self
}