| line |
true |
false |
branch |
|
472
|
0 |
19 |
if ref $t or ref $names ne 'ARRAY' |
|
475
|
0 |
19 |
if $Physics::Unit::debug |
|
494
|
0 |
60 |
if not $name && $factor or ref $name or ref $factor |
|
497
|
0 |
60 |
if $Physics::Unit::debug |
|
513
|
0 |
438 |
if (ref $names ne 'ARRAY' or not $def) |
|
518
|
0 |
438 |
if $Physics::Unit::debug |
|
527
|
0 |
43 |
if not $t or ref $t or not $u |
|
537
|
0 |
1376 |
unless $u |
|
538
|
632 |
744 |
if ref $u |
|
540
|
717 |
27 |
if ($unit_by_name{$u}) |
|
572
|
1 |
1 |
ref $arg0 eq 'ARRAY' ? : |
|
|
2 |
2 |
!ref($arg0) ? : |
|
580
|
1 |
3 |
if ($argIsUnit) |
|
582
|
0 |
8 |
if (LookName($n) != 2) |
|
585
|
0 |
8 |
if $Physics::Unit::debug |
|
587
|
5 |
3 |
unless ($argIsUnit) |
|
590
|
5 |
3 |
unless ($argIsUnit) |
|
594
|
1 |
3 |
if ($argIsUnit) |
|
603
|
2 |
18 |
if (ref $proto) { } |
|
620
|
23 |
26 |
if ($t = shift()) |
|
627
|
4 |
22 |
if $$self{'type'} |
|
632
|
0 |
22 |
if defined $name and defined $prefix{$name} |
|
638
|
19 |
648 |
unless CompareDim($self, $prototype{$_}) |
|
643
|
4 |
18 |
unless @t |
|
644
|
17 |
1 |
if @t == 1 |
|
657
|
0 |
19 |
unless defined $n |
|
660
|
19 |
60 |
if length $_ < length $n |
|
678
|
2 |
9 |
if $s == 1 |
|
682
|
22 |
96 |
if ($d) |
|
684
|
20 |
2 |
if ($s) |
|
686
|
8 |
14 |
unless $d == 1 |
|
691
|
0 |
11 |
if $s eq '' |
|
702
|
3 |
6 |
if (@_) |
|
712
|
0 |
19 |
if CompareDim($self, $u) |
|
724
|
4721 |
15 |
defined $$u{'dim'}[$_] ? : |
|
725
|
4718 |
18 |
if (defined $$self{'dim'}[$_]) { } |
|
743
|
1416 |
8 |
if (defined $$self{'dim'}[$_]) { } |
|
764
|
0 |
88 |
unless $p == int $p |
|
769
|
3 |
882 |
unless defined $$self{'dim'}[$_] |
|
784
|
0 |
0 |
if CompareDim($self, $u) |
|
822
|
2 |
4 |
unless ref $obj1 |
|
826
|
0 |
6 |
if CompareDim($obj1, $obj2) |
|
827
|
0 |
6 |
unless $$obj1{'factor'} == $$obj2{'factor'} |
|
846
|
0 |
1070 |
if ref $n |
|
847
|
0 |
1070 |
if LookName($n) |
|
865
|
1 |
482 |
if ref $def |
|
880
|
1 |
1369 |
unless defined $$d1[$_] |
|
881
|
5 |
1365 |
unless defined $$d2[$_] |
|
883
|
648 |
722 |
if $c |
|
890
|
0 |
1709 |
if defined $prototype{$name} |
|
891
|
555 |
1154 |
if defined $unit_by_name{$name} |
|
892
|
20 |
1134 |
if defined $reserved_word{$name} |
|
905
|
0 |
702 |
if $$self{'names'}[0] |
|
919
|
482 |
2 |
if (@_) |
|
924
|
0 |
484 |
if $Physics::Unit::debug |
|
929
|
3 |
620 |
if ($tok eq 'times') { } |
|
|
136 |
484 |
elsif ($tok eq 'divide') { } |
|
938
|
0 |
484 |
if $Physics::Unit::debug |
|
947
|
0 |
623 |
if $Physics::Unit::debug |
|
952
|
0 |
887 |
if $Physics::Unit::debug |
|
953
|
264 |
623 |
if ($tok eq 'number' or $tok eq 'name' or $tok eq 'prefix' or $tok eq 'square' or $tok eq 'cubic') { } |
|
962
|
0 |
623 |
if $Physics::Unit::debug |
|
971
|
0 |
887 |
if $Physics::Unit::debug |
|
977
|
0 |
964 |
if $Physics::Unit::debug |
|
978
|
77 |
887 |
if ($tok eq 'exponent') { } |
|
980
|
0 |
77 |
unless $tok eq 'number' |
|
986
|
0 |
887 |
if $Physics::Unit::debug |
|
995
|
0 |
959 |
if $Physics::Unit::debug |
|
1000
|
338 |
621 |
if ($tok eq 'number') { } |
|
|
62 |
559 |
elsif ($tok eq 'prefix') { } |
|
|
547 |
12 |
elsif ($tok eq 'name') { } |
|
|
2 |
10 |
elsif ($tok eq 'lparen') { } |
|
|
0 |
10 |
elsif ($tok eq 'end') { } |
|
|
8 |
2 |
elsif ($tok eq 'square') { } |
|
|
2 |
0 |
elsif ($tok eq 'cubic') { } |
|
1001
|
0 |
338 |
if $Physics::Unit::debug |
|
1008
|
0 |
62 |
if $Physics::Unit::debug |
|
1014
|
0 |
547 |
if $Physics::Unit::debug |
|
1019
|
0 |
2 |
if $Physics::Unit::debug |
|
1022
|
0 |
2 |
unless $tok eq 'rparen' |
|
1027
|
0 |
0 |
if $Physics::Unit::debug |
|
1042
|
0 |
959 |
if $Physics::Unit::debug |
|
1048
|
1 |
959 |
if ($tok eq 'squared') { } |
|
|
0 |
959 |
elsif ($tok eq 'cubed') { } |
|
1065
|
0 |
1737 |
if $Physics::Unit::debug |
|
1070
|
482 |
1255 |
if ($def eq '') |
|
1075
|
2 |
1253 |
if ($def =~ s/^\(//) { } |
|
|
2 |
1251 |
elsif ($def =~ s/^\)//) { } |
|
|
77 |
1174 |
elsif ($def =~ s/^\*\*// or $def =~ s/^\^//) { } |
|
|
3 |
1171 |
elsif ($def =~ s/^\*//) { } |
|
|
127 |
1044 |
elsif ($def =~ s[^/][]) { } |
|
|
415 |
629 |
elsif ($def =~ s/^$Physics::Unit::number_re//io) { } |
|
|
629 |
0 |
elsif ($def =~ m[^([^\ \n\r\t\f\(\)/\^\*]+)]) { } |
|
1098
|
20 |
609 |
if ($l == 1) { } |
|
|
547 |
62 |
elsif ($l == 2) { } |
|
1113
|
62 |
909 |
if ($t =~ /^$p/i) |