Select Code to Download

# Doggie.pm
package Doggie;
...
  # ignore args
  print "hello from Doggie::new\n";
}

use strict;
use warnings;
...
# my $objref3 = Doggie->new(Tail => 'short', Ears => 'long');

__END__

hello from Doggie::new
hello from Doggie::new