Help for this page

Select Code to Download


  1. or download this
    my $object = Class1->new;
    bless $object, 'Class2';
    
  2. or download this
    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;
    }