| line |
true |
false |
branch |
|
197
|
0 |
3 |
if scalar @opts |
|
208
|
0 |
9 |
if scalar @opts |
|
211
|
0 |
9 |
unless eval {
do {
$identifier->isa("Data::Identifier")
}
} |
|
213
|
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') { } |
|
218
|
2 |
4 |
if ($bits == 8) { } |
|
|
2 |
2 |
elsif ($bits == 16) { } |
|
|
2 |
0 |
elsif ($bits == 32) { } |
|
232
|
0 |
0 |
if (defined $v) |
|
233
|
0 |
0 |
if ($v < 0 or $v > 4095) |
|
251
|
6 |
0 |
if (defined $v and defined $pack_template) |
|
254
|
2 |
4 |
if ($pack_template eq 'C') { } |
|
|
2 |
2 |
elsif ($pack_template eq 'n') { } |
|
|
2 |
0 |
elsif ($pack_template eq 'N') { } |
|
262
|
0 |
6 |
if (defined $min and $v < $min or defined $max and $v > $max) |
|
278
|
0 |
9 |
if scalar @opts |
|
280
|
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') { } |
|
284
|
2 |
4 |
if ($bits == 8) { } |
|
|
2 |
2 |
elsif ($bits == 16) { } |
|
|
2 |
0 |
elsif ($bits == 32) { } |
|
297
|
0 |
0 |
unless length $data == 2 |
|
304
|
0 |
0 |
if ($prefix == $_4plus12_prefix{$key}) |
|
311
|
0 |
1 |
unless length $data == 16 |
|
323
|
6 |
0 |
if (defined $type and defined $pack_template) |
|
327
|
2 |
4 |
if ($pack_template eq 'C') { } |
|
|
2 |
2 |
elsif ($pack_template eq 'n') { } |
|
|
2 |
0 |
elsif ($pack_template eq 'N') { } |
|
335
|
0 |
6 |
unless $len == $exp |
|
347
|
0 |
16 |
if scalar @opts |
|
354
|
1 |
15 |
if (my($d, $v) = $data =~ /^(\[.+?\]):(.+)$/u) |
|
360
|
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) { } |
|
382
|
1 |
0 |
if (defined(my $raen = $_raes_to_raen{$1})) |
|
391
|
2 |
0 |
if (defined $_logicals_to_sni{$data}) { } |
|
|
0 |
0 |
elsif (defined $_logicals_to_sid{$data}) { } |
|
414
|
0 |
0 |
if scalar @opts |
|
418
|
0 |
0 |
if (defined(my Data::Identifier $generator = $identifier->generator("default", undef)) and defined(my $req = $identifier->request("default", undef))) |
|
419
|
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) { } |
|
423
|
0 |
0 |
if ($cp < 128) |
|
431
|
0 |
0 |
$ent->[0] =~ /^[a-z]/u ? : |
|
432
|
0 |
0 |
if $v =~ /-/u |
|
447
|
0 |
0 |
if scalar keys %opts |
|
449
|
0 |
0 |
if ($template eq 'request') { } |
|
456
|
0 |
0 |
if ($exponentas eq 'int') { } |
|
458
|
0 |
0 |
if $neg eq "-" |
|
483
|
0 |
0 |
if scalar keys %opts |
|
485
|
0 |
0 |
if (ref $request eq "ARRAY") |
|
489
|
0 |
0 |
if (defined(my $prefix = delete $request->{'prefix'})) |
|
498
|
0 |
0 |
if $mul != int $mul |
|
500
|
0 |
0 |
if $mul == 0 |
|
509
|
0 |
0 |
if $mul != int $mul |
|
511
|
0 |
0 |
if $mul != 0 |
|
516
|
0 |
0 |
if scalar @keys |
|
519
|
0 |
0 |
unless (scalar grep({not defined $_number_units{$_};} keys %took)) |
|
526
|
0 |
0 |
if ($i == int $i) |
|
538
|
0 |
0 |
if (scalar keys %took == 1) |
|
540
|
0 |
0 |
if ($mul == 1) |
|
548
|
0 |
0 |
if ($template eq "request") |
|
566
|
34 |
0 |
if (scalar @args) |
|
567
|
34 |
0 |
if (ref $args[0] and eval {
do {
$args[0]->isa(__PACKAGE__)
}
}) { } |
|
|
0 |
0 |
elsif ($args[0] eq __PACKAGE__) { } |
|
594
|
24 |
14 |
unless defined $id->uuid("no_defaults", 1, "default", undef) |