| line |
true |
false |
branch |
|
33
|
0 |
0 |
($ENV{'LANG'} || '') =~ /UTF-8/i ? : |
|
42
|
0 |
0 |
unless &GetOptions("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'}) |
|
44
|
0 |
0 |
if ($language) |
|
45
|
0 |
0 |
$language =~ /^\./ ? : |
|
48
|
0 |
0 |
if (not $no_pager and -t STDOUT and my $guess = $self->_guess_pager($pager)) |
|
60
|
0 |
0 |
if (my $found = File::Which::which($try)) |
|
64
|
0 |
0 |
unless $cmd |
|
65
|
0 |
0 |
$cmd =~ /\bless$/ ? : |
|
87
|
0 |
0 |
$^O =~ /sunos/i ? : |
|
|
0 |
0 |
$^O =~ /linux/i ? : |
|
|
0 |
0 |
$^O =~ /darwin/i ? : |
|
105
|
0 |
0 |
if ($res->{'success'}) { } |
|
115
|
0 |
0 |
if (-f $file) { } |
|
116
|
0 |
0 |
unless open my $fh, "<:utf8", $file |
|
126
|
0 |
0 |
unless my $arg = shift @{$$self{"argv"};} |
|
130
|
0 |
0 |
if ($content) { } |
|
136
|
0 |
0 |
unless $content |
|
146
|
0 |
0 |
$self->{'unicode'} ? : |
|
154
|
0 |
0 |
if ($self->{'pager'}) { } |
|
155
|
0 |
0 |
unless open $out, "|-", @{$self->{'pager'};} |
|
162
|
0 |
0 |
if ($line =~ /^#/) { } |
|
|
0 |
0 |
elsif ($line =~ s/^\>\s*//) { } |
|
|
0 |
0 |
elsif ($line =~ s/^[*-]\s*//) { } |
|
|
0 |
0 |
elsif ($line =~ /`([^`]+)`/) { } |
|
168
|
0 |
0 |
if ($next eq '') { } |
|
|
0 |
0 |
elsif ($next =~ s/^\>\s*//) { } |