| line |
!l |
l&&!r |
l&&r |
condition |
|
259
|
0 |
0 |
0 |
$value ne '' and $value =~ /
^
(?:[+-])? # sign
(?:
(?:INF) # infinity
| (?:NaN) # not a number
| (?:\d+(?:\.\d+)?) # mantissa
(?:[eE] # exponent
([+-])? # sign ($1)
(\d+) # value ($2)
)?
)
$
/x |
|
363
|
0 |
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 |
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 |
|
463
|
0 |
0 |
0 |
ref $re eq 'CODE' and not &$re($string) |
|
|
0 |
0 |
0 |
ref $re ne 'CODE' and not $string =~ /$re/ |
|
482
|
0 |
0 |
0 |
$err and ref $opts |
|
|
0 |
0 |
0 |
$err and ref $opts and ref $opts->{'log'} |