File Coverage

blib/lib/WebService/Simple/Cabinet.pm

Criterion	Covered	Total	%
statement	27	65	41.5
branch	0	14	0.0
condition	0	7	0.0
subroutine	9	11	81.8
pod	0	1	0.0
total	36	98	36.7

package WebService::Simple::Cabinet;

use strict;
use warnings;
our $VERSION = '0.01';

use Carp;
use UNIVERSAL::require;

sub new {
    my($class, $config, %args) = @_;

    croak "usage: ${class}->new(\$config[, args...])" unless $config;
    unless (ref $config eq 'HASH') {
        # XXX ただの文字列だったら、どっかからYAMLかDSL定義を読み込んでconfigデータを作る
    }

    $config->{global} ||= { params => {} };
    $config->{method} ||= [];

    croak 'package is required.' unless $config->{global}->{package};
    my $api_pkg  = sprintf '%s::Api::%s',$class, $config->{global}->{package};
    my $base_pkg = "$class\::Api";
    $base_pkg->require or die $@;

    no strict 'refs';
    unless (@{"$api_pkg\::ISA"}) {
        push @{"$api_pkg\::ISA"}, "$class\::Api";
        use strict;

        for my $data (@{ $config->{method} }) {
            my %default_params = ();
            my @input_args     = ();
            for my $param (keys %{ $data->{params} }) {
                if (my $value = $data->{params}->{$param}) {
                    $default_params{$param} = $value;
                } else {
                    push @input_args, $param;
                }
            }

            my $method = $data->{name};
            no strict 'refs';
            *{"$api_pkg\::$method"} = sub {
                use strict;
                my($self, %args) = @_;
                my $params = { %default_params };
                for my $key (@input_args) {
                    $params->{$key} = $args{$key};
                }
                $self->{response} = $self->{api}->get($params, $data->{options});
                $self->{response}->parse_xml($data->{parse_xml_opts});
            };
        }
    }
    use strict;

    my $params = {};
    for my $key (keys %{ $config->{global}->{params} }) {
        $params->{$key} = $args{$key} || $config->{global}->{params}->{$key};
    }

    my $simple_opts = {
        base_url => $config->{global}->{base_url},
        param    => $params,
    };
    $simple_opts->{cache} = $args{cache} if exists $args{cache};
    $api_pkg->new(
        config      => $config,
        simple_opts => $simple_opts,
    );
}


1;
__END__