想请问下perl如何在一个.pm文件里引用另一个.pm文件定义的方法

mengxiao15

新手学习perl遇到OOP的问题，想请大神帮忙解答下，现在输出引用的sub为address=HASH...不知道原因。。。。（还有这样引用是不是不规范，想请教下规范的写法，谢谢）
person.pm
package person;

require Exporter;
our @ISA = qw(Exporter);
our @EXPORT = qw(getName);

sub new {
my $inbocant = shift;
my $class = ref($invocant) || $invocant;
my $self = {
name => shift,
};
bless $self, $class;
return $self;
}

sub getName {
my ($self) = @_;
return $self->{name};
}

1;



address.pm
package address;

use person;

sub new {
my $inbocant = shift;
my $class = ref($invocant) || $invocant;
my $self = {
house => shift,
post  => shift,
};
bless $self, $class;
$self->getName( $self->{name});
return $self;
}

sub getHouse {
my ($self) = @_;
return $self->{house};
}

sub getPost {
my ($self) = @_;
return $self->{post};
}

sub message {
my ($self, $name) = @_;
$self->getName( $name );
}
1;


address.pl
#!/usr/bin/perl -w

use warnings;
use address;

$p = address->new("villa", "100000");
$p->message("Tom");

printf ("House: %s\tPost: %s\t$p", $p->getHouse(), $p->getPost());