| line |
true |
false |
branch |
|
30
|
0 |
0 |
($ENV{'LANG'} || '') =~ /UTF-8/iu ? : |
|
43
|
0 |
0 |
unless $parser->getoptionsfromarray(\@argv, "h|help", sub {
print $self->_help;
exit;
}
, "l|language=s", \my $language, "o|os=s\@", \$self->{'platform'}, "v|version", sub {
printf "%s %s\n", ref $self, $self->VERSION;
exit;
}
, "pager=s", \my $pager, "no-pager", \my $no_pager, "unicode!", \$self->{'unicode'}) |
|
45
|
0 |
0 |
if ($language) |
|
46
|
0 |
0 |
$language =~ /^\./u ? : |
|
49
|
0 |
0 |
if (not $no_pager and -t STDOUT and my $guess = $self->_guess_pager($pager)) |
|
61
|
0 |
0 |
if (my $found = File::Which::which($try)) |
|
65
|
0 |
0 |
unless $cmd |
|
66
|
0 |
0 |
$cmd =~ /\bless$/u ? : |
|
88
|
0 |
0 |
$^O =~ /sunos/iu ? : |
|
|
0 |
0 |
$^O =~ /linux/iu ? : |
|
|
0 |
0 |
$^O =~ /darwin/iu ? : |
|
106
|
0 |
0 |
if ($res->{'success'}) { } |
|
110
|
0 |
0 |
if ($res->{'status'} == 599) |
|
120
|
0 |
0 |
if (-f $file) { } |
|
121
|
0 |
0 |
unless open my $fh, "<:utf8", $file |
|
131
|
0 |
0 |
unless my $arg = shift @{$$self{"argv"};} |
|
135
|
0 |
0 |
if ($content) { } |
|
141
|
0 |
0 |
unless $content |
|
151
|
0 |
0 |
$self->{'unicode'} ? : |
|
159
|
0 |
0 |
if ($self->{'pager'}) { } |
|
160
|
0 |
0 |
unless open $out, "|-", @{$self->{'pager'};} |
|
167
|
0 |
0 |
if ($line =~ /^#/u) { } |
|
|
0 |
0 |
elsif ($line =~ s/^\>\s*//u) { } |
|
|
0 |
0 |
elsif ($line =~ s/^[*-]\s*//u) { } |
|
|
0 |
0 |
elsif ($line =~ /`([^`]+)`/u) { } |
|
173
|
0 |
0 |
if ($next eq '') { } |
|
|
0 |
0 |
elsif ($next =~ s/^\>\s*//u) { } |