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"
}