Select Code to Download

package Foo;

use strict;
...
#  print Dumper($self);
  print Dumper($self->{data});
}

use strict;
use warnings;
use Foo;

my $obj = Foo->new();
$obj->test();