my $object = Foo->new;

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