| line |
!l |
l&&!r |
l&&r |
condition |
|
104
|
0 |
0 |
3 |
defined $request and length $request |
|
190
|
0 |
9 |
0 |
$year and $year < 1583 || $year > 9999 |
|
191
|
1 |
8 |
0 |
$month and $month < 1 || $month > 12 |
|
192
|
2 |
7 |
0 |
$day and $day < 1 || $day > 31 |
|
198
|
2 |
0 |
7 |
$precision eq "day" and $day |
|
|
1 |
0 |
1 |
$precision eq "month" and $month |
|
|
0 |
0 |
1 |
$precision eq "year" and $year |
|
234
|
0 |
0 |
0 |
defined $name and length $name |
|
342
|
9 |
0 |
67 |
defined(my $style = $opts{'style'}) and defined(my $request = $opts{'request'}) |
|
417
|
0 |
14 |
62 |
defined $tag->{'generator'} and not ref $tag->{'generator'} |
|
482
|
0 |
0 |
0 |
defined $raw and length $raw == 16 |
| line |
l |
!l&&r |
!l&&!r |
condition |
|
91
|
0 |
48 |
0 |
$opts{'displayname'} //= $request |
|
120
|
0 |
0 |
0 |
$unicode_cp < 0 or $unicode_cp > 127 |
|
128
|
0 |
0 |
3 |
$unicode_cp < 0 or $unicode_cp > 1114111 |
|
132
|
0 |
0 |
3 |
$unicode_cp == 65532 or $unicode_cp == 65533 |
|
|
0 |
0 |
3 |
$unicode_cp == 65532 or $unicode_cp == 65533 or $unicode_cp == 65279 |
|
|
0 |
0 |
3 |
$unicode_cp == 65532 or $unicode_cp == 65533 or $unicode_cp == 65279 or $unicode_cp == 65534 |
|
136
|
0 |
3 |
0 |
$opts{'displayname'} //= $unicode_cp_str |
|
170
|
0 |
0 |
3 |
$request eq "now" or $request eq "today" |
|
190
|
0 |
0 |
9 |
$year < 1583 || $year > 9999 |
|
191
|
0 |
0 |
8 |
$month < 1 || $month > 12 |
|
192
|
0 |
0 |
7 |
$day < 1 || $day > 31 |
|
197
|
0 |
7 |
2 |
$opts{'precision'} // ($day ? "day" : undef) |
|
|
7 |
1 |
1 |
($opts{'precision'} // ($day ? "day" : undef)) // ($month ? "month" : undef) |
|
209
|
0 |
9 |
0 |
$opts{'input'} //= $request |
|
212
|
0 |
9 |
0 |
$opts{'displayname'} //= $request |
|
238
|
0 |
0 |
0 |
$opts{'displayname'} //= $name |
|
245
|
0 |
0 |
0 |
$_multiplicity_prefix{$subtype} // croak('Invalid subtype: ' . $subtype) |
|
249
|
0 |
0 |
0 |
$request eq 0 or $request =~ /^[1-9][0-9]*$/u |
|
256
|
0 |
0 |
0 |
$opts{'displayname'} //= $_multiplicity_names{$request} |
|
257
|
0 |
0 |
0 |
$opts{'displayname'} //= $request |
|
262
|
0 |
0 |
0 |
$identifier->{'id_cache'}{"Data::Identifier"->WK_OID} //= $oid |
|
280
|
0 |
0 |
0 |
$_gte_simple_profiles{$profile} // $profile |
|
319
|
0 |
0 |
0 |
$opts{'namespace'} //= $profile->{'namespace'} |
|
320
|
0 |
0 |
0 |
$opts{'displayname'} //= $normal |
|
339
|
0 |
0 |
0 |
$opts{'namespace'} //= $type->namespace |
|
345
|
0 |
45 |
3 |
$opts{'input'} //= $request |
|
357
|
0 |
0 |
0 |
$opts{'input'} //= lc $input |
|
358
|
0 |
0 |
0 |
$opts{'displayname'} //= $name |
|
361
|
0 |
14 |
0 |
$opts{'input'} //= &encode("UTF-8", $request) |
|
362
|
14 |
0 |
0 |
$opts{'displayname'} //= $request |
|
366
|
0 |
0 |
0 |
$opts{'input'} //= $identifier->uuid |
|
367
|
0 |
0 |
0 |
$opts{'displayname'} //= $identifier->{'displayname'} |
|
369
|
0 |
0 |
0 |
$opts{'input'} //= $request |
|
389
|
0 |
0 |
0 |
$opts{'input'} //= join(",", sort(keys %uuids)) |
|
400
|
0 |
5 |
0 |
$opts{'input'} //= $req |
|
416
|
0 |
149 |
3 |
$tag->{$_} //= $opts{$_} |
|
455
|
0 |
0 |
0 |
$opts{'sources'} // (state $default_sources = ["Crypt::URandom", "UUID4::Tiny", "Math::Random::Secure", "UUID::URandom", "UUID::Tiny::Patch::UseMRS"]) |