line |
true |
false |
branch |
19
|
2 |
2 |
$data =~ /\s/ ? : |
27
|
15 |
7 |
$data =~ /^\-?[\d]+$/ ? : |
33
|
0 |
0 |
$data =~ /^\d+$/ ? : |
39
|
9 |
2 |
$data =~ /^[\x21-\x7E]+$/ ? : |
46
|
0 |
4 |
unless (defined $data1 and defined $data2) |
51
|
2 |
2 |
$data1 eq $data2 ? : |
56
|
0 |
17 |
unless (scalar @$args > 0) |
67
|
4 |
13 |
$min <= $length && $length <= $max ? : |
74
|
2 |
1 |
$data =~ /$regex/ ? : |
80
|
0 |
0 |
unless $data |
81
|
0 |
0 |
'Email::Valid'->address(-'address', $data) ? : |
87
|
0 |
0 |
unless $data |
88
|
0 |
0 |
'Email::Valid'->address(-'address', $data, -'mxcheck', 1) ? : |
94
|
0 |
3 |
unless $data |
95
|
3 |
0 |
'Email::Valid::Loose'->address($data) ? : |
101
|
0 |
0 |
unless $data |
102
|
0 |
0 |
'Email::Valid::Loose'->address(-'address', $data, -'mxcheck', 1) ? : |
108
|
2 |
2 |
Date::Calc::check_date($year, $month, $day) ? : |
110
|
2 |
2 |
if ($result) |
112
|
0 |
2 |
if ($class eq 'DateTime') { } |
|
0 |
2 |
elsif ($class eq 'Time::Piece') { } |
114
|
0 |
0 |
if ($@) |
124
|
0 |
0 |
if ($self->options->{'time_zone'}) |
132
|
0 |
0 |
if ($@) |
152
|
2 |
2 |
Date::Calc::check_time($hour, $min, $sec) ? : |
153
|
2 |
2 |
$result ? : |
163
|
2 |
2 |
Date::Calc::check_date($year, $month, $day) && Date::Calc::check_time($hour, $min, $sec) ? : |
166
|
2 |
2 |
if ($result) |
168
|
0 |
2 |
if ($class eq 'DateTime') { } |
|
0 |
2 |
elsif ($class eq 'Time::Piece') { } |
170
|
0 |
0 |
if ($@) |
183
|
0 |
0 |
if ($self->options->{'time_zone'}) |
192
|
0 |
0 |
if ($@) |
210
|
2 |
6 |
if defined $param and $param ne '' |
218
|
1 |
1 |
$data =~ m[^s?https?://[-_.!~*'()a-zA-Z0-9;/?:\@&=+\$,%#]+$] ? : |
224
|
0 |
0 |
ref $data ? : |
226
|
0 |
0 |
scalar @$selected >= $num ? : |
234
|
0 |
3 |
unless (defined $target and $target =~ /$regex/) |
239
|
0 |
3 |
unless $data =~ /$regex/ |
240
|
2 |
1 |
$data > $target ? : |
248
|
0 |
3 |
unless (defined $target and $target =~ /$regex/) |
253
|
0 |
3 |
unless $data =~ /$regex/ |
254
|
1 |
2 |
$data < $target ? : |
262
|
0 |
3 |
unless (defined $target and $target =~ /$regex/) |
267
|
0 |
3 |
unless $data =~ /$regex/ |
268
|
1 |
2 |
$data == $target ? : |
277
|
0 |
5 |
unless (defined $start and $start =~ /$regex/ and defined $end and $end =~ /$regex/) |
282
|
0 |
5 |
unless $data =~ /$regex/ |
283
|
3 |
2 |
$data >= $start && $data <= $end ? : |
289
|
0 |
4 |
unless (scalar @$args > 0) |
296
|
0 |
4 |
unless ($digit1 =~ /^\d+$/ and $digit2 =~ /^\d+$/) |
301
|
0 |
4 |
unless $data =~ /^\d+(\.\d+)?$/ |
303
|
2 |
2 |
$data =~ /$reg/ ? : |
309
|
1 |
3 |
unless (defined $param and $param ne '') |
318
|
3 |
0 |
defined $$params[0] ? : |
319
|
2 |
1 |
&List::MoreUtils::any(sub {
$_ eq $data;
}
, @$args) ? : |
326
|
0 |
0 |
unless $format |
331
|
0 |
0 |
if (ref $format) { } |
336
|
0 |
0 |
unless $module->require |
344
|
0 |
0 |
$dt ? : |
346
|
0 |
0 |
if ($dt and $self->options->{'time_zone'}) |
356
|
0 |
0 |
unless $format |
369
|
0 |
0 |
$dt ? : |
371
|
0 |
0 |
if ($dt and $self->options->{'time_zone'}) |