Select Code to Download

sub show {
    my $self = shift ;
...
    print $val;
    print Dumper $val
}

{
    package Parent;
...
    use base 'Parent' ;
    sub data { return { one => 1, two => 2 } }
}