1 package toy_module;
  2 
  3 sub new {
  4         my ($class, $args) = @_;
  5         my $self = {
  6                 simple_hash => $args->{simple_hash},
  7                 simple_test_scalar => $args->{simple_test_scalar},
  8         };
  9         print "********** INSIDE SUBROUTINE NEW **********\n";
 10         print "simple scalar: ".$self->{simple_test_scalar}."\n";
 11         print "$_\n" for keys %$self->{simple_hash};
 12         return bless $self, $class;
 13 }
 14 
 15 sub show_simple_hash {
 16         my $self = shift;
 17         print "********** INSIDE SUBROUTINE SHOW_SIMPLE_HASH **********\n";
 18         print "simple scalar: ".$self->{simple_test_scalar}."\n";
 19         print "$_\n" for keys %$self->{simple_hash};
 20 }
 21 
 22 1;