| line |
true |
false |
branch |
|
212
|
0 |
4 |
if scalar @opts |
|
222
|
0 |
0 |
if scalar @opts |
|
224
|
0 |
0 |
$bool ? : |
|
231
|
0 |
0 |
if scalar @opts |
|
234
|
0 |
0 |
if $ref->eq($identifier) |
|
244
|
0 |
0 |
if scalar @opts |
|
247
|
0 |
0 |
if $ref->eq($identifier) |
|
259
|
0 |
16 |
if scalar @opts |
|
262
|
0 |
16 |
unless eval {
do {
$identifier->isa("Data::Identifier")
}
} |
|
264
|
6 |
10 |
if ($template =~ /^(sid|sni|hdi|udi)([1-9][0-9]*)$/u) { } |
|
|
0 |
10 |
elsif ($template eq '4+12') { } |
|
|
1 |
9 |
elsif ($template eq 'uuid128') { } |
|
|
1 |
8 |
elsif ($template eq 'uuidhexdash') { } |
|
|
1 |
7 |
elsif ($template eq 'uuidHEXDASH') { } |
|
|
7 |
0 |
elsif ($template eq 'Data::Identifier') { } |
|
269
|
2 |
4 |
if ($bits == 8) { } |
|
|
2 |
2 |
elsif ($bits == 16) { } |
|
|
2 |
0 |
elsif ($bits == 32) { } |
|
283
|
0 |
0 |
if (defined $v) |
|
284
|
0 |
0 |
if ($v < 0 or $v > 4095) |
|
302
|
6 |
0 |
if (defined $v and defined $pack_template) |
|
305
|
2 |
4 |
if ($pack_template eq 'C') { } |
|
|
2 |
2 |
elsif ($pack_template eq 'n') { } |
|
|
2 |
0 |
elsif ($pack_template eq 'N') { } |
|
313
|
0 |
6 |
if (defined $min and $v < $min or defined $max and $v > $max) |
|
330
|
0 |
9 |
if scalar @opts |
|
332
|
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') { } |
|
336
|
2 |
4 |
if ($bits == 8) { } |
|
|
2 |
2 |
elsif ($bits == 16) { } |
|
|
2 |
0 |
elsif ($bits == 32) { } |
|
349
|
0 |
0 |
unless length $data == 2 |
|
356
|
0 |
0 |
if ($prefix == $_4plus12_prefix{$key}) |
|
363
|
0 |
1 |
unless length $data == 16 |
|
375
|
6 |
0 |
if (defined $type and defined $pack_template) |
|
379
|
2 |
4 |
if ($pack_template eq 'C') { } |
|
|
2 |
2 |
elsif ($pack_template eq 'n') { } |
|
|
2 |
0 |
elsif ($pack_template eq 'N') { } |
|
387
|
0 |
6 |
unless $len == $exp |
|
400
|
0 |
16 |
if scalar @opts |
|
407
|
1 |
15 |
if (my($d, $v) = $data =~ /^(\[.+?\]):(.+)$/u) |
|
413
|
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) { } |
|
435
|
1 |
0 |
if (defined(my $raen = $_raes_to_raen{$1})) |
|
444
|
2 |
0 |
if (defined $_logicals_to_sni{$data}) { } |
|
|
0 |
0 |
elsif (defined $_logicals_to_sid{$data}) { } |
|
467
|
0 |
0 |
if scalar @opts |
|
471
|
0 |
0 |
if (defined(my Data::Identifier $generator = $identifier->generator("default", undef)) and defined(my $req = $identifier->request("default", undef))) |
|
472
|
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) { } |
|
476
|
0 |
0 |
if ($cp < 128) |
|
484
|
0 |
0 |
$ent->[0] =~ /^[a-z]/u ? : |
|
485
|
0 |
0 |
if $v =~ /-/u |
|
500
|
0 |
0 |
if scalar keys %opts |
|
502
|
0 |
0 |
if ($template eq 'request') { } |
|
509
|
0 |
0 |
if ($exponentas eq 'int') { } |
|
511
|
0 |
0 |
if $neg eq "-" |
|
536
|
0 |
7 |
if scalar keys %opts |
|
538
|
0 |
7 |
if (ref $request eq "ARRAY") |
|
542
|
5 |
2 |
if (defined(my $prefix = delete $request->{'prefix'})) |
|
551
|
0 |
182 |
if $mul != int $mul |
|
553
|
176 |
6 |
if $mul == 0 |
|
562
|
0 |
196 |
if $mul != int $mul |
|
564
|
21 |
175 |
if $mul != 0 |
|
569
|
0 |
7 |
if scalar @keys |
|
572
|
1 |
6 |
unless (scalar grep({not defined $_number_units{$_};} keys %took)) |
|
579
|
1 |
0 |
if ($i == int $i) |
|
591
|
1 |
5 |
if (scalar keys %took == 1) |
|
593
|
1 |
0 |
if ($mul == 1) |
|
601
|
0 |
5 |
if ($template eq "request") |
|
621
|
0 |
1 |
if scalar keys %opts |
|
635
|
1 |
0 |
if defined $pass{'namespace'} |
|
636
|
0 |
1 |
if defined $pass{'type'} |
|
640
|
0 |
1 |
if scalar keys %opts |
|
651
|
0 |
0 |
if (defined(my $validate = delete $opts{'validate'})) |
|
655
|
0 |
0 |
if (defined(my $namespace = delete $opts{'namespace'})) |
|
659
|
0 |
0 |
if (defined(my $null_value = delete $opts{'null_value'})) |
|
667
|
0 |
0 |
if scalar keys %opts |
|
679
|
1 |
1 |
if (defined(my $generator = delete $opts{'generator'})) |
|
684
|
1 |
1 |
if (defined(my $request = delete $opts{'request'})) |
|
686
|
0 |
1 |
unless length $request |
|
690
|
0 |
2 |
if scalar keys %opts |
|
692
|
2 |
0 |
if (defined(my $generator = $identifier->{'generator'}) and defined(my $request = $identifier->{'request'})) |
|
695
|
1 |
1 |
if (defined $n) |
|
710
|
52 |
0 |
if (scalar @args) |
|
711
|
45 |
7 |
if (ref $args[0] and eval {
do {
$args[0]->isa(__PACKAGE__)
}
}) { } |
|
|
7 |
0 |
elsif ($args[0] eq __PACKAGE__) { } |
|
738
|
22 |
16 |
unless defined $id->uuid("no_defaults", 1, "default", undef) |
|
754
|
6 |
0 |
if defined $sid |
|
755
|
6 |
0 |
if defined $sni |
|
757
|
6 |
0 |
if (defined $tagname) |
|
776
|
0 |
2 |
if (defined(my $displayname = delete $opts{'displayname'})) |
|
780
|
0 |
2 |
if (defined(my $tagname = delete $opts{'tagname'})) |
|
781
|
0 |
0 |
ref $tagname ? : |