package Cat;
use Moo;
use MooX::Types::MooseLike::Base 'Str';

has name => ( is => 'ro', isa => Str );

1;

package Litter;
use Moo;
use MooX::Types::MooseLike::Base qw( ArrayRef HasMethods );

has cats => ( is => 'ro', isa => ArrayRef [ HasMethods ['name'] ] );

1;

package main;

my @cat_names = qw( Garfield Felix );

my $litter = Litter->new(
  cats => [ map { Cat->new( name => $_ ) } @cat_names ]
);

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