Re^2: Inheritance in Perl5

[EvanCarroll]

in reply to Re: Inheritance in Perl5
in thread Inheritance in Perl5

The moose way you speak of:

package Animal;
use Moose;
has [qw/name age/] => ( isa => 'Str', is => 'rw' );

package Horse;
use Moose;
extends 'Animal';

sub present {
  my $self = shift;
  print $self->isa('Animal') ? "I am an animal" : "I am not animal"
}

With that said, I think there is something seriously wrong if you want your subclass to confirm that it inherits from the parent class in a method ;)