| line |
true |
false |
branch |
|
34
|
0 |
12 |
unless $self->SUPER::init(@_)
|
|
35
|
0 |
12 |
unless length "$self->{'tag'}"
|
|
173
|
24 |
11 |
unless defined $incr and length "$incr"
|
|
174
|
0 |
35 |
if ref $opts ne "HASH"
|
|
175
|
0 |
35 |
unless $self->_is_number($incr)
|
|
184
|
0 |
35 |
unless $self->_load_class("DateTime")
|
|
185
|
0 |
35 |
unless $self->_load_class("DateTime::Format::Strptime")
|
|
186
|
0 |
35 |
unless $self->_load_class("DateTime::Duration")
|
|
208
|
0 |
35 |
if not defined $step && length "$step" or lc "$step" eq "any" or not "$step" =~ /$def->{'step_re'}/
|
|
209
|
0 |
35 |
unless $self->_is_number("$step")
|
|
218
|
1 |
28 |
if $type eq "week" or $type eq "number" or $type eq "range"
|
|
220
|
12 |
16 |
if (ref $def->{'pattern'} eq 'ARRAY') { }
|
|
226
|
12 |
7 |
if $dt
|
|
234
|
0 |
28 |
unless (defined $dt)
|
|
242
|
12 |
16 |
if ($def->{'format'}) { }
|
|
254
|
10 |
25 |
unless (defined $val and length "$val")
|
|
258
|
4 |
6 |
if ($dir eq 'up' and defined $min and length "$min") { }
|
|
|
6 |
0 |
elsif ($dir eq 'down' and defined $max and length "$max") { }
|
|
260
|
4 |
0 |
if (exists $type2unit->{$type})
|
|
267
|
0 |
4 |
unless defined $this
|
|
276
|
6 |
0 |
if (exists $type2unit->{$type})
|
|
283
|
0 |
6 |
unless defined $this
|
|
296
|
0 |
25 |
if ($INC{'threads.pm'} and not exists $INC{'forks.pm'})
|
|
299
|
5 |
20 |
if ($type eq 'number' or $type eq 'range') { }
|
|
|
5 |
15 |
elsif ($type eq 'week') { }
|
|
301
|
2 |
3 |
$dir eq 'up' ? :
|
|
304
|
2 |
3 |
if (defined $max and length "$max" and $dir eq "up" and $new > $max or defined $min and length "$min" and $dir eq "down" and $new < $min)
|
|
315
|
5 |
0 |
if ($val =~ /^(\d{1,})-W(\d{1,2})$/) { }
|
|
318
|
0 |
5 |
if int $w > 52
|
|
322
|
0 |
5 |
if int $w < 1
|
|
330
|
2 |
3 |
if ($dir eq 'up') { }
|
|
339
|
1 |
4 |
if ($dir eq 'down' and defined $min and length "$min") { }
|
|
|
0 |
4 |
elsif ($dir eq 'up' and defined $max and length "$max") { }
|
|
342
|
1 |
0 |
if ($min =~ /^(\d{1,})-W(\d{1,2})$/) { }
|
|
345
|
0 |
1 |
if int $min_week > 52
|
|
349
|
0 |
1 |
if int $min_week < 1
|
|
355
|
1 |
0 |
if ($dt < $dt_min)
|
|
372
|
0 |
0 |
if ($max =~ /^(\d{1,})-W(\d{1,2})$/) { }
|
|
375
|
0 |
0 |
if int $max_week > 52
|
|
379
|
0 |
0 |
if int $max_week < 1
|
|
385
|
0 |
0 |
if ($dt > $dt_max)
|
|
412
|
0 |
15 |
unless defined $dt
|
|
415
|
6 |
9 |
if ($dir eq 'up') { }
|
|
425
|
3 |
12 |
if ($dir eq 'down' and defined $min and length "$min") { }
|
|
|
3 |
9 |
elsif ($dir eq 'up' and defined $max and length "$max") { }
|
|
428
|
0 |
3 |
unless (defined $dt_min)
|
|
437
|
3 |
0 |
if ($dt < $dt_min)
|
|
446
|
0 |
3 |
unless (defined $dt_max)
|
|
455
|
3 |
0 |
if ($dt > $dt_max)
|
|
467
|
0 |
0 |
if not defined $Nice::Try::WANTARRAY and scalar @Nice::Try::LAST_VAL
|
|
|
0 |
0 |
&$Nice::Try::TRY ? :
|
|
|
0 |
0 |
if scalar @Nice::Try::VOID
|
|
|
0 |
0 |
if ($Nice::Try::WANT eq 'OBJECT') { }
|
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'CODE') { }
|
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'HASH') { }
|
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'ARRAY') { }
|
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
|
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'GLOB') { }
|
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'LIST') { }
|
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
|
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'VOID') { }
|
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'SCALAR') { }
|
|
|
0 |
5 |
if defined $Nice::Try::LAST_VAL
|
|
|
0 |
25 |
if ($Nice::Try::WANTARRAY) { }
|
|
|
20 |
5 |
elsif (defined $Nice::Try::WANTARRAY) { }
|
|
|
0 |
25 |
if (defined $Nice::Try::WANT and length $Nice::Try::WANT) { }
|
|
|
0 |
25 |
length $@ ? :
|
|
|
25 |
0 |
unless &Scalar::Util::blessed($@)
|
|
|
0 |
0 |
if ($Nice::Try::HAS_CATCH)
|
|
|
0 |
25 |
if ($Nice::Try::DIED)
|
|
470
|
0 |
0 |
$opts->{'direction'} ? :
|
|
473
|
0 |
0 |
if not defined $Nice::Try::WANTARRAY and scalar @Nice::Try::LAST_VAL
|
|
|
0 |
0 |
&$Nice::Try::CATCH ? :
|
|
|
0 |
0 |
if scalar @Nice::Try::VOID
|
|
|
0 |
0 |
if ($Nice::Try::WANT eq 'OBJECT') { }
|
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'CODE') { }
|
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'HASH') { }
|
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'ARRAY') { }
|
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
|
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'GLOB') { }
|
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'LIST') { }
|
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
|
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'VOID') { }
|
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'SCALAR') { }
|
|
|
0 |
0 |
if ($Nice::Try::WANTARRAY) { }
|
|
|
0 |
0 |
elsif (defined $Nice::Try::WANTARRAY) { }
|
|
|
0 |
0 |
if (defined $Nice::Try::WANT and length $Nice::Try::WANT) { }
|
|
|
0 |
0 |
if $@
|
|
|
0 |
25 |
if (defined $Nice::Try::CATCH_DIED)
|
|
|
0 |
0 |
if (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__NEXT__') { }
|
|
|
0 |
0 |
elsif (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__LAST__') { }
|
|
|
0 |
0 |
elsif (defined $Nice::Try::RETVAL[0] and $Nice::Try::RETVAL[0] eq '__REDO__') { }
|
|
|
0 |
0 |
elsif (defined $Nice::Try::BREAK and $Nice::Try::BREAK eq 'return') { }
|
|
|
0 |
0 |
if ($Nice::Try::WANT eq 'LIST') { }
|
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'VOID') { }
|
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'OBJECT') { }
|
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'REFSCALAR') { }
|
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'SCALAR') { }
|
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'BOOLEAN') { }
|
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'CODE') { }
|
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'HASH') { }
|
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'ARRAY') { }
|
|
|
0 |
0 |
elsif ($Nice::Try::WANT eq 'GLOB') { }
|
|
|
0 |
25 |
$Nice::Try::WANTARRAY ? :
|
|
|
0 |
25 |
if (defined $Nice::Try::WANT and length $Nice::Try::WANT) { }
|
|
|
25 |
0 |
if (not defined $Nice::Try::BREAK or $Nice::Try::BREAK eq "return")
|
|
|
0 |
0 |
scalar @Nice::Try::VOID > 1 ? :
|
|
|
25 |
0 |
if (defined $Nice::Try::WANTARRAY || defined $Nice::Try::BREAK && $Nice::Try::BREAK eq 'return' and !&Scalar::Util::blessed($Nice::Try::RETVAL[0]) || &Scalar::Util::blessed($Nice::Try::RETVAL[0]) && !$Nice::Try::RETVAL[0]->isa('Nice::Try::SENTINEL')) { }
|
|
|
0 |
0 |
elsif (scalar @Nice::Try::VOID and !&Scalar::Util::blessed($Nice::Try::VOID[0]) || &Scalar::Util::blessed($Nice::Try::VOID[0]) && !$Nice::Try::VOID[0]->isa('Nice::Try::SENTINEL')) { }
|
|
|
0 |
0 |
if ($Nice::Try::BREAK eq 'next') { }
|
|
|
0 |
0 |
elsif ($Nice::Try::BREAK eq 'last') { }
|
|
|
0 |
0 |
elsif ($Nice::Try::BREAK eq 'redo') { }
|
|
|
0 |
0 |
if (defined $Nice::Try::BREAK)
|
|
|
0 |
0 |
scalar @Nice::Try::LAST_VAL > 1 ? :
|