Select Code to Download

my $object = Class1->new;
bless $object, 'Class2';

my @people_in_room = grep {$_->isa('Person')} $room->contained_objects
+;
my @artists_in_room;

...
    push(@artists_in_room, $person)
        if grep {$_->isa('Artist')} $person->professional_roles;
}