| line |
true |
false |
branch |
|
259
|
0 |
0 |
unless $value ne '' and $value =~ /
^
(?:[+-])? # sign
(?:
(?:INF) # infinity
| (?:NaN) # not a number
| (?:\d+(?:\.\d+)?) # mantissa
(?:[eE] # exponent
([+-])? # sign ($1)
(\d+) # value ($2)
)?
)
$
/x |
|
276
|
0 |
0 |
if ref $exp |
|
363
|
0 |
0 |
length $value && $value =~ /^
(\d{2}):(\d{2}):(\d{2})(?:\.(\d+))? # hour:min:sec
(?:Z|[-+]\d{2}:\d{2})? # zone
$/x && (!$no_hour24 && $1 == 24 && $2 == 0 && $3 == 0 && $4 == 0 || 0 <= $1 && $1 <= 23 && 0 <= $2 && $2 <= 59 && 0 <= $3 && $3 <= 59) ? : |
|
377
|
0 |
0 |
length $value && $value =~ /
^
[-+]? # sign
(?:[1-9]\d{4,}|\d{4}) # year
-(\d{2}) # month ($1)
-(\d{2}) # day ($2)
$
/x && $1 >= 1 && $1 <= 12 && $2 >= 1 && $2 <= 31 ? : |
|
460
|
0 |
0 |
if $format eq 'any' |
|
462
|
0 |
0 |
if (defined $re) { } |
|
463
|
0 |
0 |
if (ref $re eq 'CODE' and not &$re($string) or ref $re ne 'CODE' and not $string =~ /$re/) |
|
477
|
0 |
0 |
if (ref $object) { } |
|
|
0 |
0 |
elsif (not $self->check_string_format($object, $format)) { } |
|
482
|
0 |
0 |
if ($err and ref $opts and ref $opts->{'log'}) |
|
485
|
0 |
0 |
if $tag ne '' |
|
488
|
0 |
0 |
$err ? : |