| line |
true |
false |
branch |
|
19
|
8 |
5 |
if (defined $_[0] and not $_[0] =~ /^-/) { } |
|
24
|
1 |
7 |
unless defined $main |
|
36
|
1 |
2 |
unless &GetOptions('help|h', sub {
pod2usage({'-exitval', 0});
}
, 'version|v', sub {
print "plasm version @{['App::plasm'->VERSION || 'dev'];} Wasm.pm @{['Wasm'->VERSION];}\n";
&CORE::GLOBAL::exit(0);
}
) |
|
59
|
1 |
3 |
unless &GetOptions('help|h', sub {
pod2usage({'-exitval', 0, @pod});
}
) |
|
63
|
0 |
3 |
unless defined $filename |
|
67
|
1 |
2 |
unless -f $filename |
|
104
|
0 |
2 |
unless &GetOptions('help|h', sub {
pod2usage({'-exitval', 0, @pod});
}
) |
|
108
|
0 |
2 |
unless defined $filename |
|
112
|
0 |
2 |
unless -f $filename |