| blib/lib/File/Rename/Options.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 16 | 62.5 |
| line | true | false | branch |
|---|---|---|---|
| 12 | 0 | 21 | if ($IMPORTED++) |
| 45 | 0 | 29 | unless &Getopt::Long::GetOptions("-v|verbose", \my $verbose, "-0|null", \my $null, "-n|nono", \my $nono, "-f|force", \my $force, "-h|?|help", \my $help, "-m|man", \my $man, "-V|version", \my $version, "-d|filename", sub { undef $fullpath; } , "-path|fullpath!", \$fullpath, "-e=s", \@expression, "-E=s", sub { my(undef, $e) = @_; $e .= ";"; push @expression, $e; } , "-u|unicode:s", \my $unicode) |
| 60 | 6 | 23 | if $no_code |
| 61 | 2 | 21 | if $help or $man or $version |
| 63 | 7 | 14 | if (@expression) { } |
| 67 | 0 | 14 | unless @ARGV |
| 76 | 21 | 0 | unless $encoding |
| 77 | 0 | 0 | unless $encoding =~ /[^\s\w.-]/ |