Help for this page

Select Code to Download


  1. or download this
    sub show {
        my $self = shift ;
    ...
        print $val;
        print Dumper $val
    }
    
  2. or download this
    {
        package Parent;
    ...
        use base 'Parent' ;
        sub data { return { one => 1, two => 2 } }
    }