package person;
	use Method::Signatures;

	method new (%args) {
		return bless {%args}, $self;
	}
	
	method name () {
		return "*person*\n";
	}
	
	method myname () {
		return name()
	}

package eva;
	our @ISA = ("person");
	use Method::Signatures;

	method name () {
		return "eva\n";
	}

my $p = new person ();
print $p->name ();

my $e = new eva ();
print $e->name();

print $e->myname();

# returns:
# *person*
# eva
# *person*

1;