| line |
true |
false |
branch |
|
15
|
5 |
4 |
unless @date |
|
16
|
5 |
7 |
unless $_ |
|
19
|
2 |
2 |
if eval {
do {
Time::Local::timegm(0, 0, 0, @date);
1
}
} |
|
29
|
3 |
14 |
unless @dt |
|
33
|
5 |
9 |
if eval {
do {
Time::Local::timegm(@dt);
1
}
} |
|
53
|
3 |
2 |
$_[0] =~ /$email_rfc5322_re/ ? : |
|
57
|
2 |
0 |
unless &DATA_VALIDATE_DOMAIN() |
|
59
|
0 |
0 |
if Data::Validate::Domain::is_hostname($_[0]) |
|
64
|
1 |
0 |
unless &NET_IDN_ENCODE() |
|
77
|
0 |
0 |
$err ? : |
|
81
|
1 |
0 |
unless &NET_IDN_ENCODE() |
|
86
|
0 |
0 |
$err ? : |
|
91
|
1 |
3 |
unless $_[0] =~ /^\w+:/ |
|
96
|
0 |
172 |
unless $_[0] =~ m[^(([^:/?#]+):)?(//([^/?#]*))?([^?#]*)(\?([^#]*))?(#(.*))?] |
|
103
|
1 |
171 |
if length $auth_host and not length $scheme |
|
104
|
1 |
170 |
unless length($scheme) + length($path) + length($has_fragment) |
|
106
|
1 |
169 |
if length $scheme and not lc($scheme) =~ /^[a-z][a-z0-9\+\-\.]*$/ |
|
108
|
1 |
168 |
if $_[0] =~ /%[^0-9a-f]/i |
|
109
|
1 |
167 |
if $_[0] =~ /%[0-9a-f](:?[^0-9a-f]|$)/i |
|
112
|
120 |
47 |
if (defined $auth_host and length $auth_host) { } |
|
|
1 |
46 |
elsif ($path =~ m[^//]) { } |
|
113
|
0 |
120 |
unless not length $path or $path =~ m[^/] |
|
124
|
3 |
2 |
!length($_[0]) || $_[0] =~ m[^/] ? : |
|
129
|
0 |
2 |
if &DATA_VALIDATE_IP() and Data::Validate::IP::is_ipv4($_[0]) |
|
132
|
7 |
1 |
if $_ >= 0 and $_ <= 255 |
|
|
1 |
1 |
if 4 == grep({not $_ =~ /^0\d{1,2}$/ if $_ >= 0 and $_ <= 255;} @octets) |
|
137
|
2 |
0 |
unless &DATA_VALIDATE_IP() |
|
138
|
0 |
0 |
if Data::Validate::IP::is_ipv6($_[0]) |
|
143
|
1 |
4 |
unless $_[0] =~ /^\d+/ |
|
145
|
2 |
2 |
if $_[0] =~ /^(\d+)#?$/ |
|
146
|
0 |
2 |
unless $_[0] =~ /^\d+(.+)/ |
|
148
|
1 |
1 |
if check_json_pointer($1) |
|
154
|
5 |
1 |
eval {
do {
qr/$_[0]/
}
} ? : |
|
160
|
1 |
8 |
unless @time |
|
163
|
5 |
3 |
if eval {
do {
Time::Local::timegm(@time, 31, 11, 1947);
1
}
} |
|
171
|
0 |
118 |
if $_[0] =~ /\P{ASCII}/ |