File Coverage

blib/lib/WebService/Simple/Yahoo/JP/API.pm

Criterion	Covered	Total	%
statement	18	59	30.5
branch	0	8	0.0
condition			n/a
subroutine	6	19	31.5
pod			n/a
total	24	86	27.9

package WebService::Simple::Yahoo::JP::API;
use v5.10.1;
use strict;
use warnings;
use URI;
use base qw(WebService::Simple);
our $VERSION = '0.11';
__PACKAGE__->config( base_url => 'http://yahooapis.jp/', );

sub config {
    my $class = shift;
    my %args  = @_;
    my $self  = $class->SUPER::config(%args);
    return $self;
}

sub new {
    my $class = shift;
    my %args  = @_;
    my %tmp   = ();
    if ( defined $args{appid} ) {
        $tmp{appid} = $args{appid};
        delete $args{appid};
    }
    my $self = $class->SUPER::new(%args);
    while ( my ( $key, $val ) = each %tmp ) {
        $self->{$key} = $val;
    }
    return $self;
}

sub search     { return shift->_class('::Search'); }
sub map        { return shift->_class('::Map'); }
sub jlp        { return shift->_class('::Jlp'); }
sub auctions   { return shift->_class('::Auctions'); }
sub shopping   { return shift->_class('::Shopping'); }
sub news       { return shift->_class('::News'); }
sub chiebukuro { return shift->_class('::Chiebukuro'); }
sub dir        { return shift->_class('::Dir'); }
sub cert       { return shift->_class('::Cert'); }

sub _class {
    my $self       = shift;
    my $subclass   = shift;
    my $class      = ref $self;
    my $superclass = __PACKAGE__;
    if ( $class =~ m/\A$superclass/ ) {
        return bless $self, __PACKAGE__ . $subclass;
    }
    else {
        return $self;
    }
}

sub _get {
    my $self       = shift;
    my $extra_path = shift;
    my $uri        = URI->new( $self->config->{base_url} . $extra_path );
    if ( $self->{appid} ) {
        $uri->query_form( { appid => $self->{appid}, @_ } );
    }
    else {
        $uri->query_form( {@_} );
    }
    local $self->{base_url} = $uri;
    return $self->get('');
}

sub _post {
    my $self       = shift;
    my $extra_path = shift;
    local $self->{base_url} = $self->config->{base_url};
    if ( $self->{appid} ) {
        return $self->post( $extra_path,
            Content => { appid => $self->{appid}, @_ } );
    }
    else {
        return $self->post( $extra_path, Content => {@_} );
    }
}

1;
__END__