Branch Coverage

blib/lib/WWW/Shorten/Yourls.pm
Criterion Covered Total %
branch 0 78 0.0


line true false branch
25 0 0 unless grep {$attr eq $_;} @{_attrs();}
26 0 0 unless @_
29 0 0 unless (defined $val)
41 0 0 if $attrs
52 0 0 unless $url and &blessed($url) and $url->isa('URI')
55 0 0 unless $res
56 0 0 unless ($res->is_success)
62 0 0 unless ($content_type and $content_type =~ m[application/json])
66 0 0 unless $json
73 0 0 if (@_ == 1 and ref $_[0]) { }
0 0 elsif (@_ == 1 and not ref $_[0]) { }
0 0 elsif (@_ % 2 == 0) { }
75 0 0 if $@
95 0 0 if $config
98 0 0 $^O eq 'MSWin32' ? :
99 0 0 if $ENV{'YOURLS_TEST_CONFIG'}
102 0 0 if ($path and $path->is_file)
108 0 0 if $line =~ /^\s*[;#]/
110 0 0 unless $line and $line =~ /=/
115 0 0 unless $key and $val
116 0 0 if $key eq 'user'
117 0 0 if $key eq 'base'
118 0 0 unless grep {$key eq $_;} @{$attrs;}
129 0 0 unless defined $input and not ref $input and length $input
138 0 0 if (@_ == 1 and ref $_[0]) { }
0 0 elsif (@_ % 2 == 0) { }
140 0 0 if $@
157 0 0 if $lc_key eq 'user'
158 0 0 if $lc_key eq 'base'
159 0 0 unless grep {$lc_key eq $_;} @{$attrs;}
162 0 0 $href->{'server'} ? :
169 0 0 unless my $server = $self->server
173 0 0 unless $short_url
181 0 0 if (my $sig = $self->signature) { }
187 0 0 unless ($user and $pass)
199 0 0 unless my $server = $self->server
203 0 0 unless $short_url
211 0 0 if (my $sig = $self->signature) { }
217 0 0 unless ($user and $pass)