| line |
true |
false |
branch |
|
43
|
2 |
0 |
unless defined $blob |
|
45
|
0 |
0 |
if (not defined $filename && length $filename and defined $url) |
|
51
|
0 |
0 |
unless open FH, ">$filename" |
|
55
|
0 |
0 |
unless close FH |
|
63
|
1 |
5 |
if ($url =~ /^(?:dilbert)?(\d+(\.(jpg|gif))?)$/i) |
|
66
|
1 |
0 |
unless $url =~ /\.(jpg|gif)$/i |
|
75
|
5 |
1 |
unless ($response->is_success) |
|
77
|
5 |
0 |
unless ($url =~ s/\.gif$/.jpg/i) |
|
83
|
1 |
5 |
if ($response->is_success) { } |
|
|
0 |
5 |
elsif ($^W) { } |
|
84
|
1 |
0 |
unless (_image_format($response->content)) |
|
85
|
0 |
1 |
if $^W |
|
99
|
9 |
0 |
if ($response->is_success) { } |
|
|
0 |
0 |
elsif ($^W) { } |
|
101
|
0 |
9 |
if ($html =~ m[
|
|
104
|
0 |
0 |
unless $url =~ m[^https?://]i |
|
117
|
0 |
1 |
if /^GIF8[79]a/ |
|
118
|
0 |
1 |
if /^\xFF\xD8/ |
|
119
|
0 |
1 |
if /^\x89PNG\x0d\x0a\x1a\x0a/ |