sub has_method {
    my ( $target, $method ) = @_;
    return UNIVERSAL::can( $target, $method) ? 1 : 0;
}