File Coverage

blib/lib/HTTP/MobileAttribute/Agent/Base.pm

Criterion	Covered	Total	%
statement	40	40	100.0
branch	2	4	50.0
condition			n/a
subroutine	11	11	100.0
pod	0	1	0.0
total	53	56	94.6

package HTTP::MobileAttribute::Agent::Base;
use strict;
use warnings;
require Class::Component;
use Carp;

sub import {
    my $pkg = caller(0);

    no strict 'refs';

    *{"$pkg\::mk_accessors"} = \&mk_accessors;
    *{"$pkg\::no_match"}     = \&_no_match;
    *{"$pkg\::user_agent"}   = sub { $_[0]->request->get('User-Agent') };
    *{"$pkg\::class_component_load_plugin_resolver"} = sub { "HTTP::MobileAttribute::Plugin::$_[1]" };
    $pkg->mk_accessors(qw/request carrier_longname/);

    unless ($pkg->isa('Class::Component')) {
        unshift @{"$pkg\::ISA"}, 'Class::Component';
    }
    Class::Component::Implement->init($pkg);

    $pkg->load_components(qw/DisableDynamicPlugin Autocall::InjectMethod AutoloadPlugin/);
}

sub _no_match {
    my $self = shift;

    if ($^W) {
        carp(
            $self->user_agent,
            ": no match. Might be new variants. ",
            "please contact the author of HTTP::MobileAgent!"
        );
    }
}

sub mk_accessors {
    my ($class, @methods) = @_;

    no strict 'refs';
    for my $method (@methods) {
        *{"${class}::${method}"} = sub { $_[0]->{$method} };
    }
}

1;
__END__