| line |
true |
false |
branch |
|
212
|
0 |
3 |
if scalar @opts |
|
221
|
0 |
0 |
if scalar @opts |
|
223
|
0 |
0 |
$bool ? : |
|
230
|
0 |
0 |
if scalar @opts |
|
233
|
0 |
0 |
if $ref->eq($identifier) |
|
243
|
0 |
0 |
if scalar @opts |
|
246
|
0 |
0 |
if $ref->eq($identifier) |
|
258
|
0 |
9 |
if scalar @opts |
|
261
|
0 |
9 |
unless eval {
do {
$identifier->isa("Data::Identifier")
}
} |
|
263
|
6 |
3 |
if ($template =~ /^(sid|sni|hdi|udi)([1-9][0-9]*)$/u) { } |
|
|
0 |
3 |
elsif ($template eq '4+12') { } |
|
|
1 |
2 |
elsif ($template eq 'uuid128') { } |
|
|
1 |
1 |
elsif ($template eq 'uuidhexdash') { } |
|
|
1 |
0 |
elsif ($template eq 'uuidHEXDASH') { } |
|
|
0 |
0 |
elsif ($template eq 'Data::Identifier') { } |
|
268
|
2 |
4 |
if ($bits == 8) { } |
|
|
2 |
2 |
elsif ($bits == 16) { } |
|
|
2 |
0 |
elsif ($bits == 32) { } |
|
282
|
0 |
0 |
if (defined $v) |
|
283
|
0 |
0 |
if ($v < 0 or $v > 4095) |
|
301
|
6 |
0 |
if (defined $v and defined $pack_template) |
|
304
|
2 |
4 |
if ($pack_template eq 'C') { } |
|
|
2 |
2 |
elsif ($pack_template eq 'n') { } |
|
|
2 |
0 |
elsif ($pack_template eq 'N') { } |
|
312
|
0 |
6 |
if (defined $min and $v < $min or defined $max and $v > $max) |
|
328
|
0 |
9 |
if scalar @opts |
|
330
|
6 |
3 |
if ($template =~ /^(sid|sni|hdi|udi)([1-9][0-9]*)$/u) { } |
|
|
0 |
3 |
elsif ($template eq '4+12') { } |
|
|
1 |
2 |
elsif ($template eq 'uuid128') { } |
|
|
1 |
1 |
elsif ($template eq 'uuidhexdash') { } |
|
|
1 |
0 |
elsif ($template eq 'uuidHEXDASH') { } |
|
|
0 |
0 |
elsif ($template eq 'Data::Identifier') { } |
|
334
|
2 |
4 |
if ($bits == 8) { } |
|
|
2 |
2 |
elsif ($bits == 16) { } |
|
|
2 |
0 |
elsif ($bits == 32) { } |
|
347
|
0 |
0 |
unless length $data == 2 |
|
354
|
0 |
0 |
if ($prefix == $_4plus12_prefix{$key}) |
|
361
|
0 |
1 |
unless length $data == 16 |
|
373
|
6 |
0 |
if (defined $type and defined $pack_template) |
|
377
|
2 |
4 |
if ($pack_template eq 'C') { } |
|
|
2 |
2 |
elsif ($pack_template eq 'n') { } |
|
|
2 |
0 |
elsif ($pack_template eq 'N') { } |
|
385
|
0 |
6 |
unless $len == $exp |
|
397
|
0 |
16 |
if scalar @opts |
|
404
|
1 |
15 |
if (my($d, $v) = $data =~ /^(\[.+?\]):(.+)$/u) |
|
410
|
2 |
13 |
if ($data =~ /^'([0-9]*)$/u) { } |
|
|
0 |
13 |
elsif ($data =~ m[^/([0-9]+)$]u) { } |
|
|
4 |
9 |
elsif ($data =~ /^(sid|sni):([0-9]+)$/u) { } |
|
|
2 |
7 |
elsif ($data =~ /^uuid:([0-9a-fA-F-]+)$/u) { } |
|
|
0 |
7 |
elsif ($data =~ /^wd:([QPL][1-9][0-9]*)$/u) { } |
|
|
0 |
7 |
elsif ($data =~ /^~([0-9]+)$/u) { } |
|
|
1 |
6 |
elsif ($data =~ /^raen:([0-9]+)$/u) { } |
|
|
1 |
5 |
elsif ($data =~ /^chat0w:([0-9]+)$/u) { } |
|
|
0 |
5 |
elsif ($data =~ /^asciicp:([0-9]+)$/u) { } |
|
|
1 |
4 |
elsif ($data =~ /^raes:(.+)/u) { } |
|
|
2 |
2 |
elsif (defined $_logicals_to_sni{$data}) { } |
|
|
0 |
2 |
elsif (defined $_logicals_to_sid{$data}) { } |
|
|
2 |
0 |
elsif ($data =~ /^logical:(.+)$/u) { } |
|
432
|
1 |
0 |
if (defined(my $raen = $_raes_to_raen{$1})) |
|
441
|
2 |
0 |
if (defined $_logicals_to_sni{$data}) { } |
|
|
0 |
0 |
elsif (defined $_logicals_to_sid{$data}) { } |
|
464
|
0 |
0 |
if scalar @opts |
|
468
|
0 |
0 |
if (defined(my Data::Identifier $generator = $identifier->generator("default", undef)) and defined(my $req = $identifier->request("default", undef))) |
|
469
|
0 |
0 |
if ($generator->eq('53863a15-68d4-448d-bd69-a9b19289a191')) { } |
|
|
0 |
0 |
elsif ($generator->eq('d74f8c35-bcb8-465c-9a77-01010e8ed25c') and $req =~ /^[Uu]\+([0-9a-fA-F]{4,6})$/u) { } |
|
473
|
0 |
0 |
if ($cp < 128) |
|
481
|
0 |
0 |
$ent->[0] =~ /^[a-z]/u ? : |
|
482
|
0 |
0 |
if $v =~ /-/u |
|
497
|
0 |
0 |
if scalar keys %opts |
|
499
|
0 |
0 |
if ($template eq 'request') { } |
|
506
|
0 |
0 |
if ($exponentas eq 'int') { } |
|
508
|
0 |
0 |
if $neg eq "-" |
|
533
|
0 |
0 |
if scalar keys %opts |
|
535
|
0 |
0 |
if (ref $request eq "ARRAY") |
|
539
|
0 |
0 |
if (defined(my $prefix = delete $request->{'prefix'})) |
|
548
|
0 |
0 |
if $mul != int $mul |
|
550
|
0 |
0 |
if $mul == 0 |
|
559
|
0 |
0 |
if $mul != int $mul |
|
561
|
0 |
0 |
if $mul != 0 |
|
566
|
0 |
0 |
if scalar @keys |
|
569
|
0 |
0 |
unless (scalar grep({not defined $_number_units{$_};} keys %took)) |
|
576
|
0 |
0 |
if ($i == int $i) |
|
588
|
0 |
0 |
if (scalar keys %took == 1) |
|
590
|
0 |
0 |
if ($mul == 1) |
|
598
|
0 |
0 |
if ($template eq "request") |
|
617
|
0 |
0 |
if scalar keys %opts |
|
629
|
0 |
0 |
if scalar keys %opts |
|
639
|
0 |
0 |
if (defined(my $validate = delete $opts{'validate'})) |
|
643
|
0 |
0 |
if (defined(my $namespace = delete $opts{'namespace'})) |
|
647
|
0 |
0 |
if (defined(my $null_value = delete $opts{'null_value'})) |
|
655
|
0 |
0 |
if scalar keys %opts |
|
665
|
34 |
0 |
if (scalar @args) |
|
666
|
34 |
0 |
if (ref $args[0] and eval {
do {
$args[0]->isa(__PACKAGE__)
}
}) { } |
|
|
0 |
0 |
elsif ($args[0] eq __PACKAGE__) { } |
|
693
|
22 |
16 |
unless defined $id->uuid("no_defaults", 1, "default", undef) |
|
708
|
4 |
0 |
if defined $sid |
|
709
|
4 |
0 |
if defined $sni |
|
711
|
4 |
0 |
if (defined $tagname) |
|
730
|
0 |
0 |
if (defined(my $displayname = delete $opts{'displayname'})) |
|
734
|
0 |
0 |
if (defined(my $tagname = delete $opts{'tagname'})) |
|
735
|
0 |
0 |
ref $tagname ? : |