| line |
true |
false |
branch |
|
21
|
9 |
9 |
if exists $params{$key} |
|
28
|
10 |
5 |
defined $version ? : |
|
|
1 |
14 |
unless my $data = $self->_fetch_json(defined $version ? 'meta' : 'dist', {'dist', lc $dist, 'version', lc($version || '')}) |
|
37
|
1 |
1 |
unless my $data = $self->_fetch_json('extension', {'extension', lc $ext}) |
|
44
|
1 |
1 |
unless my $data = $self->_fetch_json('user', {'user', lc $user}) |
|
50
|
1 |
1 |
unless my $data = $self->_fetch_json('tag', {'tag', lc $tag}) |
|
56
|
1 |
1 |
unless my $data = $self->_fetch_json('stats', {'stats', lc $name}) |
|
61
|
1 |
2 |
unless $self->_uri_templates->{'userlist'} |
|
70
|
1 |
11 |
unless my $in = delete $params{'in'} |
|
74
|
1 |
10 |
unless exists $valid_in{$in} |
|
77
|
5 |
5 |
if ($url->scheme eq 'file') |
|
89
|
0 |
5 |
unless my $res = $self->_fetch($qurl) |
|
104
|
0 |
3 |
unless my $res = $self->_fetch($self->_url_for('spec', {'format', $format})) |
|
113
|
93 |
13 |
unless @_ |
|
116
|
11 |
2 |
if $$self{'url'}->scheme eq 'file' |
|
124
|
2 |
0 |
unless @_ |
|
170
|
1 |
8 |
unless $$res{'success'} |
|
179
|
1 |
62 |
unless my $tmpl = $self->_uri_templates->{$name} |
|
191
|
10 |
1 |
$self->url =~ /^file:/ ? : |
|
200
|
36 |
6 |
if $$res{'success'} |
|
201
|
6 |
0 |
if $$res{'status'} == 404 |
|
207
|
6 |
26 |
unless my $res = $self->_fetch($self->_url_for(@_)) |
|
215
|
2 |
3 |
if (-e $file) |
|
216
|
2 |
0 |
if (-d $file) { } |
|
224
|
0 |
5 |
unless open my $fh, '>:raw', $file |
|
226
|
0 |
5 |
unless close $fh |
|
247
|
8 |
45 |
unless -e $file |
|
253
|
0 |
45 |
unless open my $fh, '<:raw', $file |