Select Code to Download

package Cat;
use Moo;
...
for (@{$litter->cats}) { 
    print $_->name . "\n"
}

isa => sub {
  my $param = shift;
...
      unless ref $element eq 'Cat';
  }
}

die "<<$element>> must have a name attribute"
  unless $element->can('name');

isa => ArrayRef[ InstanceOf['Cat'] ]

isa => ArrayRef[ HasMethods['name'] ]

package Cat;
use Moo;
...
);

print $_->name . "\n" for @{ $litter->cats };