Select Code to Download

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

my $litter = Litter->new(cats => [$cat1, 1]);

Can't call method "name" without a package or object reference at ...

package Litter;
use Class::Struct;
struct (cats => '@Cat');
1;