if ( $obj->show_phone ) {
$obj->print_phone_number;
}
####
# Validate the phone according to basic U.S. rules
if ( $phone =~ s/^(1-)?(\d\d\d-?\d\d\d-?\d\d\d\d)$/ ) {
$phone = $2;
$phone =~ s/-//g; # Strip dashes
$obj->set_phone( $2 );
} else {
$obj->error( "Invalid phone number" );
}
if ( $obj->show_phone ) {
$obj->print_phone_number;
}
##
##
$obj->print_name;
$obj->print_address;
$obj->print_phone_number if $self->showphone;
$obj->print_email_address;
##
##
$obj->print_name;
$obj->print_address;
if ( $obj->show_phone ) {
$self->print_phone_number;
}
$obj->print_email_address;