| line |
true |
false |
branch |
|
508
|
0 |
28 |
if ref $t or ref $names ne "ARRAY" |
|
511
|
0 |
28 |
if $Physics::Unit::debug |
|
530
|
0 |
89 |
if not $name && $factor or ref $name or ref $factor |
|
533
|
0 |
89 |
if $Physics::Unit::debug |
|
549
|
0 |
739 |
if (ref $names ne "ARRAY" or not $def) |
|
554
|
0 |
739 |
if $Physics::Unit::debug |
|
563
|
0 |
64 |
if not $t or ref $t or not $u |
|
573
|
0 |
2239 |
unless $u |
|
574
|
1049 |
1190 |
if ref $u |
|
576
|
1154 |
36 |
if ($unit_by_name{$u}) |
|
613
|
1 |
1 |
ref $arg0 eq 'ARRAY' ? : |
|
|
2 |
2 |
!ref($arg0) ? : |
|
616
|
1 |
3 |
if ($argIsUnit) |
|
618
|
0 |
8 |
if (LookName($n) != 2) |
|
621
|
0 |
8 |
if $Physics::Unit::debug |
|
623
|
5 |
3 |
unless ($argIsUnit) |
|
626
|
5 |
3 |
unless ($argIsUnit) |
|
630
|
1 |
3 |
if ($argIsUnit) |
|
639
|
2 |
46 |
if (ref $proto) { } |
|
656
|
34 |
66 |
if ($t = shift()) |
|
663
|
4 |
62 |
if $self->{'type'} |
|
669
|
0 |
62 |
if defined $name and defined $prefix{$name} |
|
675
|
56 |
1811 |
unless CompareDim($self, $prototype{$_}) |
|
679
|
7 |
55 |
unless @t |
|
680
|
54 |
1 |
if @t == 1 |
|
693
|
0 |
28 |
unless defined $n |
|
696
|
28 |
89 |
if length $_ < length $n |
|
714
|
2 |
9 |
if $s == 1 |
|
718
|
22 |
96 |
if ($d) |
|
720
|
20 |
2 |
if ($s) |
|
722
|
8 |
14 |
unless $d == 1 |
|
727
|
0 |
11 |
if $s eq "" |
|
738
|
6 |
9 |
if (@_) |
|
748
|
0 |
56 |
if CompareDim($self, $u) |
|
760
|
7901 |
15 |
defined $u->{'dim'}[$_] ? : |
|
761
|
7898 |
18 |
if (defined $self->{'dim'}[$_]) { } |
|
779
|
2066 |
8 |
if (defined $self->{'dim'}[$_]) { } |
|
800
|
0 |
129 |
unless $p == int $p |
|
805
|
3 |
1292 |
unless defined $self->{'dim'}[$_] |
|
820
|
0 |
0 |
if CompareDim($self, $u) |
|
858
|
2 |
4 |
unless ref $obj1 |
|
862
|
0 |
6 |
if CompareDim($obj1, $obj2) |
|
863
|
0 |
6 |
unless $obj1->{'factor'} == $obj2->{'factor'} |
|
882
|
0 |
1717 |
if ref $n |
|
883
|
0 |
1717 |
if LookName($n) |
|
901
|
1 |
820 |
if ref $def |
|
916
|
1 |
4110 |
unless defined $d1->[$_] |
|
917
|
5 |
4106 |
unless defined $d2->[$_] |
|
919
|
1811 |
2300 |
if $c |
|
926
|
0 |
2743 |
if defined $prototype{$name} |
|
927
|
905 |
1838 |
if defined $unit_by_name{$name} |
|
928
|
26 |
1812 |
if defined $reserved_word{$name} |
|
941
|
0 |
1129 |
if $self->{'names'}[0] |
|
955
|
820 |
3 |
if (@_) |
|
960
|
0 |
823 |
if $Physics::Unit::debug |
|
965
|
4 |
1021 |
if ($tok eq 'times') { } |
|
|
198 |
823 |
elsif ($tok eq 'divide') { } |
|
974
|
0 |
823 |
if $Physics::Unit::debug |
|
983
|
0 |
1025 |
if $Physics::Unit::debug |
|
988
|
0 |
1507 |
if $Physics::Unit::debug |
|
989
|
482 |
1025 |
if ($tok eq 'number' or $tok eq 'name' or $tok eq 'prefix' or $tok eq 'square' or $tok eq 'cubic') { } |
|
998
|
0 |
1025 |
if $Physics::Unit::debug |
|
1007
|
0 |
1507 |
if $Physics::Unit::debug |
|
1013
|
0 |
1621 |
if $Physics::Unit::debug |
|
1014
|
114 |
1507 |
if ($tok eq 'exponent') { } |
|
1016
|
0 |
114 |
unless $tok eq "number" |
|
1022
|
0 |
1507 |
if $Physics::Unit::debug |
|
1031
|
0 |
1614 |
if $Physics::Unit::debug |
|
1036
|
607 |
1007 |
if ($tok eq 'number') { } |
|
|
93 |
914 |
elsif ($tok eq 'prefix') { } |
|
|
897 |
17 |
elsif ($tok eq 'name') { } |
|
|
3 |
14 |
elsif ($tok eq 'lparen') { } |
|
|
0 |
14 |
elsif ($tok eq 'end') { } |
|
|
11 |
3 |
elsif ($tok eq 'square') { } |
|
|
3 |
0 |
elsif ($tok eq 'cubic') { } |
|
1037
|
0 |
607 |
if $Physics::Unit::debug |
|
1044
|
0 |
93 |
if $Physics::Unit::debug |
|
1050
|
0 |
897 |
if $Physics::Unit::debug |
|
1055
|
0 |
3 |
if $Physics::Unit::debug |
|
1058
|
0 |
3 |
unless $tok eq "rparen" |
|
1063
|
0 |
0 |
if $Physics::Unit::debug |
|
1078
|
0 |
1614 |
if $Physics::Unit::debug |
|
1084
|
1 |
1614 |
if ($tok eq 'squared') { } |
|
|
0 |
1614 |
elsif ($tok eq 'cubed') { } |
|
1101
|
0 |
2868 |
if $Physics::Unit::debug |
|
1106
|
820 |
2048 |
if ($def eq "") |
|
1111
|
3 |
2045 |
if ($def =~ s/^\(//) { } |
|
|
3 |
2042 |
elsif ($def =~ s/^\)//) { } |
|
|
114 |
1928 |
elsif ($def =~ s/^\*\*// or $def =~ s/^\^//) { } |
|
|
4 |
1924 |
elsif ($def =~ s/^\*//) { } |
|
|
187 |
1737 |
elsif ($def =~ s[^/][]) { } |
|
|
721 |
1016 |
elsif ($def =~ s/^$Physics::Unit::number_re//io) { } |
|
|
1016 |
0 |
elsif ($def =~ m[^([^\ \n\r\t\f\(\)/\^\*]+)]) { } |
|
1134
|
26 |
990 |
if ($l == 1) { } |
|
|
897 |
93 |
elsif ($l == 2) { } |
|
1149
|
93 |
1423 |
if ($t =~ /^$p/i) |