| line |
true |
false |
branch |
|
56
|
0 |
0 |
unless my $to = $self->to |
|
59
|
0 |
0 |
$self->regex || $to eq 'perl' ? : |
|
63
|
0 |
0 |
unless $formats{$to} |
|
65
|
0 |
0 |
unless $regexes{$regex} |
|
69
|
0 |
0 |
scalar @$args ? : |
|
70
|
0 |
0 |
$self->boot ? : |
|
74
|
0 |
0 |
unless eval "use $compiler_class; 1" |
|
77
|
0 |
0 |
if $regex eq 'perl' |
|
83
|
0 |
0 |
$to eq 'json' ? : |
|
|
0 |
0 |
$to eq 'yaml' ? : |
|
|
0 |
0 |
$to eq 'perl' ? : |
|
105
|
0 |
0 |
unless &GetOptions('to=s', \$self->{'to'}, 'boot', \$self->{'boot'}) |
|
107
|
0 |
0 |
unless (@ARGV) |
|
113
|
0 |
0 |
unless $commands{$command} |
|
121
|
0 |
0 |
unless open my $fh, $file |
|
130
|
0 |
0 |
if @_ |