| 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'}) { } |