| line |
true |
false |
branch |
|
26
|
0 |
4 |
unless GetOptions 'version|v', sub {
printf "%s %s\n", 'App::ChangeShebang', $VERSION;
exit;
}
, 'quiet|q', \$$self{'quiet'}, 'force|f', \$$self{'force'}, 'help|h', sub {
pod2usage(0);
} |
|
29
|
0 |
4 |
unless (@file) |
|
40
|
0 |
12 |
unless -f $file and not -l $file |
|
41
|
1 |
11 |
unless $self->is_perl_shebang($file) |
|
42
|
0 |
11 |
unless ($$self{'force'}) |
|
44
|
0 |
0 |
unless $anser =~ /^y(es)?$/i |
|
47
|
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/ ? : |
|
74
|
0 |
11 |
unless open my $fh, '<:raw', $file |
|
91
|
0 |
11 |
unless rename $tmp_name, $file |