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

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

##</code><code>##

sub _build_manual_phone {

    my $self = shift;

    if (! defined $self->{merch_info}) {
        die "ERROR: merch_info not defined\n";
    }

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