File Coverage

blib/lib/Plient/Handler.pm

Criterion	Covered	Total	%
statement	7	20	35.0
branch			n/a
condition			n/a
subroutine	3	9	33.3
pod	0	6	0.0
total	10	35	28.5

package Plient::Handler;
use strict;
use warnings;

sub protocol { warn "you should subclass protocol"; return }
sub method {  warn "you should subclass method"; return }
sub init { };

# XXX TODO add protocol version support?
sub may_support_protocol {
    my $class    = shift;
    my $protocol = shift;
    exists $class->all_protocol->{$protocol};
}

# call this after init(), or maybe nothing will return
sub support_protocol {
    my $class    = shift;
    my $protocol = shift;
    exists $class->protocol->{$protocol};
}

# subclass this method to check $args if
# the handler is not *full fledged*
sub support_method {
    my ( $class, $method, $args ) = @_;
    $class->method->{ $method };
}

sub _add_to_plient {
    Plient->_add_handlers(shift);
}


1;

__END__