10_info.pl

package Pet;
use Moose;

has 'name', is => 'ro', isa => 'Str', default => 'Nemo';
has 'past_owners', is => 'ro', isa => 'ArrayRef[Str]';

package main;

my $dog = Pet->new( past_owners => ['James', 'Mike'] );

# show dog's info. No need to import Data::Dumper
warn $dog->dump;

# DOES returns true for objects of the class, subclasses or
# implementors of the role
print "Good boy" if $dog->DOES('Pet');