Help for this page

Select Code to Download


  1. or download this
    package Thingy;
    sub make_cog {
    ...
       my $self = shift;
       return MyCog->new(@_);
    }
    
  2. or download this
    package Thingy;
    sub make_cog {
    ...
          return Thingy::Cog->new(@_);
       }
    }
    
  3. or download this
    sub make_class {
       my ($class, $base_class) = @_;
    ...
    
       ...
    }