| line |
true |
false |
branch |
|
74
|
0 |
0 |
$level ? : |
|
85
|
0 |
93 |
if (@_ % 5) |
|
89
|
232 |
525 |
if (defined $$args{$name}) { } |
|
|
0 |
525 |
elsif ($required) { } |
|
91
|
0 |
232 |
unless $type->check($value) |
|
102
|
91 |
2 |
if keys %{$args;} == 0 |
|
104
|
2 |
0 |
if (defined wantarray) { } |
|
108
|
0 |
0 |
if (%{$args;}) |
|
130
|
1 |
4 |
defined $section ? : |
|
135
|
3 |
2 |
$section_name eq '_' ? : |
|
149
|
4 |
1 |
if ($scope eq 'local') { } |
|
181
|
1 |
2 |
defined $start ? : |
|
|
1 |
2 |
defined $skip ? : |
|
186
|
0 |
13 |
if ($assign) |
|
190
|
12 |
1 |
$print ? : |
|
192
|
13 |
0 |
if ($direction eq 'up') { } |
|
221
|
10 |
11 |
if (defined $values) { } |
|
222
|
5 |
5 |
if (ref $values eq 'ARRAY') { } |
|
234
|
0 |
21 |
unless (@{$values;}) |
|
238
|
1 |
20 |
if ($reset) |
|
242
|
0 |
21 |
if ($assign) |
|
246
|
15 |
6 |
$print ? : |
|
250
|
15 |
6 |
if ($advance) |
|
251
|
5 |
10 |
if (++$$this{'index'} >= @{$values;}) |
|
267
|
3 |
4 |
if (ref $assoc eq 'HASH') { } |
|
295
|
1 |
7 |
if (defined $options) { } |
|
299
|
0 |
7 |
unless $values |
|
300
|
0 |
7 |
unless $output |
|
303
|
6 |
2 |
if (ref $selected ne 'ARRAY') |
|
316
|
8 |
15 |
any_in($value, @{$selected;}) ? : |
|
321
|
20 |
3 |
if $labels |
|
343
|
4 |
1 |
unless (defined $height and defined $width) |
|
346
|
0 |
4 |
if ($file =~ m[\A /]msx) |
|
364
|
1 |
4 |
if (defined $href) |
|
377
|
346 |
2 |
if (not ref $label eq 'ARRAY' || ref $label eq 'HASH') { } |
|
382
|
24 |
322 |
any_in($value, @{$selected;}) ? : |
|
408
|
2 |
22 |
if (defined $options) { } |
|
412
|
0 |
22 |
unless $values |
|
413
|
0 |
22 |
unless $output |
|
416
|
24 |
0 |
if (ref $selected ne 'ARRAY') |
|
422
|
4 |
20 |
if (defined $name) { } |
|
446
|
2 |
2 |
if (defined $options) { } |
|
450
|
0 |
2 |
unless $values |
|
451
|
0 |
2 |
unless $output |
|
454
|
0 |
4 |
if ($assign) |
|
465
|
4 |
4 |
$selected eq $value ? : |
|
475
|
2 |
6 |
if (length $separator) |
|
487
|
9 |
1 |
unless defined $time |
|
489
|
10 |
0 |
unless (blessed $time and $time->can('epoch')) |
|
490
|
9 |
1 |
if (looks_like_number $time) { } |
|
503
|
75 |
15 |
unless $attr |
|
505
|
0 |
15 |
unless my($name, $value) = $attr =~ /
(\w+) = (\w+ | $Text::Clevery::Function::STRING)
/msx |
|
509
|
2 |
13 |
if ($value =~ /\A " (.*) " \z/msx) { } |
|
|
9 |
4 |
elsif ($value =~ /\A ' (.*) ' \z/msx) { } |
|
525
|
0 |
19 |
defined $field_array ? : |
|
529
|
1 |
18 |
if (defined $empty) |
|
590
|
5 |
2 |
if (not defined $start_year) { } |
|
|
2 |
0 |
elsif ($start_year =~ /\A [+-]/msx) { } |
|
597
|
5 |
2 |
if (not defined $end_year) { } |
|
|
2 |
0 |
elsif ($end_year =~ /\A [+-]/msx) { } |
|
606
|
3 |
4 |
if ($display_months) |
|
614
|
1 |
2 |
defined $month_size ? : |
|
626
|
3 |
4 |
if ($display_days) |
|
633
|
1 |
2 |
defined $day_size ? : |
|
645
|
5 |
2 |
if ($display_years) |
|
647
|
0 |
5 |
if ($reverse_years) |
|
650
|
1 |
4 |
defined $year_size ? : |
|
703
|
3 |
0 |
if ($display_hours) |
|
704
|
2 |
1 |
$use_24_hours ? : |
|
707
|
2 |
1 |
$use_24_hours ? : |
|
721
|
2 |
1 |
if ($display_minutes) |
|
740
|
2 |
1 |
if ($display_seconds) |
|
759
|
1 |
2 |
if ($display_meridian and not $use_24_hours) |
|
780
|
3 |
43 |
ref $attrs eq 'ARRAY' ? : |
|
805
|
1 |
2 |
if (looks_like_number $cols) { } |
|
|
0 |
2 |
elsif (ref $cols eq 'ARRAY') { } |
|
|
1 |
1 |
elsif (defined $cols) { } |
|
820
|
3 |
0 |
if (not defined $rows) { } |
|
|
0 |
0 |
elsif (not defined $cols) { } |
|
824
|
0 |
0 |
if (defined $rows) |
|
831
|
0 |
3 |
if (defined $caption) |
|
835
|
1 |
2 |
if (defined $cols) |
|
836
|
0 |
1 |
if ($hdir ne 'right') |
|
850
|
9 |
0 |
$vdir eq 'down' ? : |
|
856
|
33 |
0 |
$hdir eq 'right' ? : |
|
859
|
0 |
33 |
if ($inner ne 'cols') |
|
863
|
27 |
6 |
$x < $loop_count ? : |
|
872
|
3 |
0 |
if (@tbody) |