8 sub new { my $class = shift; bless { id => shift }, $class }
10 sub hlagh { my $self = shift; print "Deuce::hlagh $self->{id}\n" }
20 sub hlagh { print "Pants::hlagh\n" }
24 my $deuce = new Deuce 1;
31 hlagh; # Deuce::hlagh 1
32 main::hlagh; # Pants::hlagh
35 use with \Deuce->new(2); # Constant blessed reference
36 hlagh; # Deuce::hlagh 2
39 hlagh; # Deuce::hlagh 1