File Coverage

lib/WebService/Qiita/Client.pm

Criterion	Covered	Total	%
statement	23	23	100.0
branch	2	2	100.0
condition	7	11	63.6
subroutine	7	7	100.0
pod	0	2	0.0
total	39	45	86.6

package WebService::Qiita::Client;
use strict;
use warnings;
use utf8;

use parent qw(
    WebService::Qiita::Client::Users
    WebService::Qiita::Client::Tags
    WebService::Qiita::Client::Items
);

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

    $options ||= {};
    my $self = bless $options, ref($class) || $class;
    if (! $options->{token} && $options->{url_name} && $options->{password}) {
        $self->_login($options);
    }
    $self;
}

sub rate_limit {
    my ($self, $params) = @_;
    $self->get('/rate_limit', $params);
}

sub _login {
    my ($self, $args) = @_;

    my $info = $self->post('/auth', {
        url_name => $args->{url_name},
        password => $args->{password},
    });
    $self->token($info->{token});
}

1;