| line |
true |
false |
branch |
|
22
|
0 |
1 |
unless $arg |
|
25
|
0 |
1 |
unless my $_type = _source_type($arg) |
|
30
|
0 |
0 |
$_type eq 'html' ? : |
|
|
0 |
0 |
$_type eq 'url' ? : |
|
|
1 |
0 |
$_type eq 'file' ? : |
|
35
|
0 |
1 |
unless $html |
|
39
|
0 |
1 |
unless my $text = _generate_text_from_html($html) |
|
50
|
1 |
0 |
if -f $arg |
|
51
|
0 |
0 |
if $arg =~ /^http|\.com$|\.net$|\.org$/ and not $arg =~ /\s/ and length $arg < 300 |
|
52
|
0 |
0 |
if $arg =~ /\
|
|
59
|
0 |
1 |
unless my $bin = File::Which::which('wget') |
|
62
|
0 |
1 |
if $? and carp("Something went wrong with wget, $?\n") |
|
63
|
0 |
1 |
unless $out |
|
73
|
0 |
3 |
unless my $bin = File::Which::which('wget') |
|
77
|
0 |
3 |
if $? and carp("Something went wrong with wget, $?\n") |
|
78
|
0 |
3 |
unless $out |
|
86
|
0 |
1 |
unless open FILE, '<', $arg |
|
89
|
0 |
1 |
unless $out |