| line |
true |
false |
branch |
|
28
|
0 |
4 |
unless $parser->getoptionsfromarray(\@argv, "version|v", sub (@) {
printf "%s %s\n", __PACKAGE__, __PACKAGE__->VERSION;
exit;
}
, "quiet|q", \$self->{'quiet'}, "force|f", \$self->{'force'}, "help|h", sub (@) {
Pod::Usage::pod2usage(0);
}
) |
|
31
|
0 |
4 |
unless (@file) |
|
41
|
0 |
12 |
unless -f $file and not -l $file |
|
42
|
1 |
11 |
unless $self->is_perl_shebang($file) |
|
43
|
0 |
11 |
unless ($self->{'force'}) |
|
45
|
0 |
0 |
unless $anser =~ /^y(es)?$/iu |
|
48
|
0 |
11 |
unless $self->{'quiet'} |
|
53
|
0 |
12 |
unless open my $fh, "<:raw", $file |
|
54
|
0 |
12 |
unless read $fh, my $first, 100 |
|
55
|
11 |
1 |
$first =~ /^#!([^\n]*)perl/u ? : |
|
73
|
0 |
11 |
unless open my $fh, "<:raw", $file |
|
90
|
0 |
11 |
unless rename $tmp_name, $file |