Select Code to Download

bless { @_ }, $class;

my %hash = @_;
bless(\%hash, $selfObjRef);

bless({@_[1..$#_]}, $_[0]);

my %phrases = (
 "phrase 1" => Qty->new(
...
   qty        =>1
 )
);

print $phrases{'phrase 2'}->{'qtySum'};
print $phrases{'phrase 1'}->{'qtyCont'};
print $phrases{'phrase 3'}->{'qty'};

my %phrases = (
 'phrase 1'=>{
...
   qtyTotal=>sub{return &qtyTotal('phrase 3', @_);}
 }
);