| line |
true |
false |
branch |
|
32
|
1 |
0 |
if (@_)
|
|
44
|
0 |
0 |
if (@_)
|
|
60
|
9 |
4 |
length $v ? :
|
|
67
|
11 |
8 |
if (my($n, $qualifier) = $delay_spec =~ /\A((?:[1-9][0-9]*(?:\.\d*)?)|(?:0\.\d+))([mhs]?)\z/) { }
|
|
|
3 |
5 |
elsif (my($min, $sec) = $delay_spec =~ /\A([1-9][0-9]*)m($up_to_60_re)s\z/) { }
|
|
|
5 |
0 |
elsif ((my $hour, $min, $sec) = $delay_spec =~ /\A([1-9][0-9]*)h(?:($up_to_60_re)m)?(?:($up_to_60_re)s)?\z/) { }
|
|
71
|
4 |
4 |
$qualifier eq 'm' ? :
|
|
|
3 |
8 |
$qualifier eq 'h' ? :
|
|
107
|
0 |
1 |
unless (my $ret = &GetOptionsFromArray($argv, 'help|h', \$help, 'man', \$man, 'version', \$version, 'to=s', \$end_str))
|
|
122
|
0 |
1 |
if ($help)
|
|
127
|
0 |
1 |
if ($man)
|
|
132
|
0 |
1 |
if ($version)
|
|
138
|
0 |
1 |
if (defined $end_str) { }
|
|
145
|
0 |
0 |
unless ($parser->success)
|
|
155
|
0 |
1 |
unless (defined $delay)
|
|
178
|
0 |
0 |
defined $self->_end ? :
|
|
197
|
0 |
0 |
if (not defined $last_printed or $new_to_print != $last_printed)
|