File Coverage

lib/WebService/Qiita.pm

Criterion	Covered	Total	%
statement	32	33	96.9
branch	2	2	100.0
condition			n/a
subroutine	9	10	90.0
pod	1	1	100.0
total	44	46	95.6

package WebService::Qiita;
use strict;
use warnings;
use utf8;
our $VERSION = '0.04';

use Carp qw(croak);

use WebService::Qiita::Client;


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

    WebService::Qiita::Client->new(\%options);
}

# Delegade method to WebService::Qiita::Client object
sub AUTOLOAD {
    my $func = our $AUTOLOAD;
       $func =~ s/.*://g;
    my (@args) = @_;

    {
        no strict 'refs';

        *{$AUTOLOAD} = sub {
            my $class  = shift;
            my $client = $class->new;
            defined $client->can($func) || croak "no such func $func";
            shift @args;
            $client->$func(@args);
        };
    }
    goto &$AUTOLOAD;
}

sub DESTROY {}

1;
__END__