File Coverage

blib/lib/Plient/Protocol.pm

Criterion	Covered	Total	%
statement	14	27	51.8
branch	1	10	10.0
condition	2	5	40.0
subroutine	4	6	66.6
pod	0	3	0.0
total	21	51	41.1

package Plient::Protocol;

use warnings;
use strict;
use Carp;

sub prefix { warn "needs subclass prefix"; '' }
sub methods { warn "needs subclass methods"; '' }

sub support_method {
    # trans $args here to let handlers to decide to pass or not
    my ( $class, $method_name, $args ) = @_;
    $method_name = lc $method_name;
    $args ||= {};

    if ( ! $args->{check_only} && !grep { $method_name eq $_ } $class->methods ) {
        warn "$method_name for $class is not officially supported yet";
    }

    return $class->can($method_name) if $class->can($method_name);
    my $handler_method_name = $class->prefix . "_$method_name";
    for my $handler ( Plient->handlers( $class->prefix ) ) {
        $handler->init if $handler->can('init');
        if ( my $method =
            $handler->support_method( $handler_method_name, $args ) )
        {
            return $method;
        }
    }
    warn "$handler_method_name is not supported in available handlers"
      unless $args->{check_only};
    return;
}

1;

__END__