Help for this page

Select Code to Download


  1. or download this
     package a;
     sub sa { return 1 }
    ...
     use Class::Merge qw(b a) => 'c';
    
     $r= c->sb();  # returns 3
    
  2. or download this
    sub import {
      my $dest=pop;
    ...
    \@${dest}::ISA=qw(@_);
    EOF
    }