| blib/script/unsafe-rename | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 16 | 56.2 |
| line | true | false | branch |
|---|---|---|---|
| 10 | 0 | 12 | unless my $options = File::Rename::Options::GetOptions() |
| 13 | 0 | 12 | if File::Rename::Options::bad_encoding($options) |
| 21 | 1 | 11 | if $options->{'show_version'} |
| 22 | 0 | 11 | if $options->{'show_manual'} |
| 23 | 0 | 11 | if $options->{'show_help'} |
| 25 | 0 | 11 | if $^O =~ /Win/msux |
| 35 | 1 | 0 | if (eval $opt_ver < eval $version) |
| 36 | 0 | 1 | unless $opt_ver =~ /\./u |