Select Code to Download

package Transaction;

use Moose;
...

1;

my $obj = Transaction::CC->new(
...

print "\$obj->{'manual_phone'}: " . $obj->{'manual_phone'} . "\n";