blib/lib/Hatena/API/Auth.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 13 | 24 | 54.1 |
line | true | false | branch |
---|---|---|---|
16 | 2 | 0 | unless $HAVE_JSON_SYCK |
17 | 0 | 2 | if $@ |
20 | 0 | 2 | $HAVE_JSON_SYCK ? : |
27 | 0 | 7 | ref $_[0] eq 'HASH' ? : |
45 | 18 | 0 | $$args{$key} ? : |
53 | 0 | 2 | if (@_) { } |
56 | 1 | 1 | if $$self{'_ua'} |
65 | 0 | 1 | unless my $cert = shift() |
76 | 1 | 0 | $res->is_success ? : |
81 | 0 | 2 | unless my $cert = shift() |
82 | 0 | 2 | unless my $auth = $self->_get_auth_as_json($cert) |
85 | 1 | 0 | if ($$json{'has_error'}) { } |