my $object = Foo->new;

if ( $object->can( $some_method ) ) {
    # it's good
} else {
    # it's bad
}
[download]

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.