Help for this page

Select Code to Download


  1. or download this
    package Thingy;
    
    ...
       bless $thingy, $class;
    }
    1;
    
  2. or download this
    package Rubber;
    @ISA = qw(Thingy);
    use vars $PATTERN = q(...);
    1;
    
  3. or download this
    use Rubber;
    my $line = ...;
    my $thing = Rubber->new($line);