| line |
true |
false |
branch |
|
43
|
2 |
1 |
unless defined $blob |
|
45
|
0 |
1 |
if (not defined $filename && length $filename and defined $url) |
|
51
|
0 |
1 |
unless open FH, ">$filename" |
|
55
|
0 |
1 |
unless close FH |
|
63
|
2 |
6 |
if ($url =~ /^(\d{8}\d*(\.(jpg|gif|png))?)$/i) |
|
65
|
0 |
2 |
unless $url =~ /\.(jpg|gif|png)$/i |
|
75
|
6 |
2 |
unless ($response->is_success) |
|
77
|
6 |
0 |
unless ($url =~ s/\.gif$/.jpg/i) |
|
84
|
2 |
6 |
if ($response->is_success) { } |
|
|
0 |
6 |
elsif ($^W) { } |
|
85
|
0 |
2 |
unless (_image_format($response->content)) |
|
86
|
0 |
0 |
if $^W |
|
89
|
0 |
2 |
if (length $response->content < 1300) |
|
90
|
0 |
0 |
if ($response->content =~ /(anti\-?)?hotlinking/i) |
|
91
|
0 |
0 |
if $^W |
|
94
|
0 |
0 |
if $^W |
|
108
|
9 |
0 |
if ($response->is_success) { } |
|
|
0 |
0 |
elsif ($^W) { } |
|
110
|
0 |
9 |
if ($html =~ m[]imsx) |
|
113
|
0 |
0 |
unless $url =~ m[^https?://]i |
|
126
|
0 |
3 |
if /^GIF8[79]a/ |
|
127
|
3 |
0 |
if /^\xFF\xD8/ |
|
128
|
0 |
0 |
if /^\x89PNG\x0d\x0a\x1a\x0a/ |