Select Code to Download

print "\$obj->{'manual_pnone'} " . $obj->{'manual_phone'} . "\n"; # wr
+ong

# as opposed to
print "\$obj->manual_pnone " . $obj->manual_phone . "\n"; # correct

sub _build_manual_phone {

...

    return $self->{merch_info}->MANUAL_NUMBER;
}