| blib/lib/App/FromUnixtime.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 24 | 28 | 85.7 |
| line | true | false | branch |
|---|---|---|---|
| 40 | 16 | 0 | if (not IO::Interactive::Tiny::is_interactive(*STDIN)) { } |
| 43 | 13 | 21 | if (my $match = _may_replace($line, $config)) |
| 44 | 12 | 1 | unless (_may_not_replace($line, $config)) |
| 62 | 18 | 21 | if ($line =~ /(?:$MAYBE_UNIXTIME).*[^\d](\d+)/ or $$config{'_re'} and $line =~ /(?:$$config{'_re'}).*[^\d](\d+)/ or $line =~ /^[\s\t\r\n]*(\d+)[\s\t\r\n]*$/) |
| 73 | 12 | 1 | unless $$config{'no-re'} |
| 76 | 1 | 0 | if $line =~ /$no_re/ |
| 83 | 1 | 16 | if ($maybe_unixtime > 2147483647) |
| 87 | 1 | 15 | if ($$config{'min-time'} and $maybe_unixtime < $$config{'min-time'}) |
| 92 | 1 | 14 | $$config{'replace'} ? : |
| 111 | 5 | 0 | if (my $match = _may_replace($line, $config)) |
| 138 | 0 | 20 | unless GetOptionsFromArray $argv, 'f|format=s', \$$config{'format'}, 'start-bracket=s', \$$config{'start-bracket'}, 'end-bracket=s', \$$config{'end-bracket'}, 're=s@', \$$config{'re'}, 'no-re=s@', \$$config{'no-re'}, 'min-time=i', \$$config{'min-time'}, 'replace', \$$config{'replace'}, 'h|help', sub { _show_usage(1); } , 'v|version', sub { print "$0 $VERSION\n"; exit 1; } |
| 149 | 1 | 19 | if (ref RC()->{'re'} eq 'ARRAY') { } |
| 1 | 18 | elsif (RC()->{'re'}) { } | |
| 155 | 3 | 17 | if ($$config{'re'}) |