scalar(grep {$_->isa('Sheep::Electric')} Android::dream); #### no strict 'subs'; lunch; #### use Storable; my @men = map { $_->[0] } sort { $b->[1] <=> $a->[1] } grep { $_->[1] > (55*365) } map { [$_, -C] } glob("*.man"); die "Error: Nemo senex est" unless @men; my $guy = retrieve($men[0]); use Inline C => <<'END_C'; int fish() { return 1; } END_C $guy && fish; #### $gerund = $lot[50-2]->can("cry");