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/ |