| line |
true |
false |
branch |
|
94
|
0 |
70302 |
unless @_
|
|
102
|
70295 |
7 |
if (@_)
|
|
103
|
70295 |
0 |
if (scalar(@_) % 2 == 0) { }
|
|
114
|
0 |
0 |
defined $input_ang ? :
|
|
|
0 |
70302 |
unless defined $rad
|
|
127
|
38390 |
31912 |
if exists $args{'range'}
|
|
157
|
0 |
38388 |
unless defined $rad
|
|
188
|
12 |
84 |
if (@_)
|
|
193
|
26 |
70 |
if (defined $self->{'NDP'}) { }
|
|
213
|
6 |
81 |
if (@_)
|
|
218
|
13 |
74 |
if (defined $self->{'DELIM'}) { }
|
|
254
|
0 |
84 |
unless defined $res
|
|
257
|
0 |
84 |
if ($res > 9)
|
|
266
|
83 |
1 |
unless $res == 0
|
|
271
|
81 |
3 |
if (wantarray) { }
|
|
300
|
80 |
1 |
if ($ndp > 0)
|
|
311
|
50 |
31 |
if ($sign eq "+")
|
|
312
|
41 |
9 |
if ($self->range eq '2PI') { }
|
|
326
|
1 |
80 |
$ndp == 0 ? :
|
|
333
|
78 |
3 |
if (length $delim == 1) { }
|
|
395
|
38391 |
56 |
if (@_)
|
|
397
|
38391 |
0 |
if (defined $rng) { }
|
|
405
|
3 |
38388 |
if ($rng eq 'NONE') { }
|
|
|
29672 |
8716 |
elsif ($rng eq '2PI') { }
|
|
|
8716 |
0 |
elsif ($rng eq 'PI') { }
|
|
452
|
38692 |
2749 |
unless $format
|
|
455
|
184 |
2565 |
if ($format =~ /^d/) { }
|
|
|
16 |
2549 |
elsif ($format =~ /^s/) { }
|
|
|
2546 |
3 |
elsif ($format =~ /^r/) { }
|
|
|
0 |
3 |
elsif ($format =~ /^arcm/ or $format eq 'am') { }
|
|
|
0 |
3 |
elsif ($format =~ /^arcs/ or $format eq 'as') { }
|
|
|
3 |
0 |
elsif ($format =~ /^a/) { }
|
|
498
|
0 |
3 |
if $self->range eq "2PI"
|
|
553
|
1 |
40 |
if (@_)
|
|
555
|
1 |
0 |
if (defined $arg) { }
|
|
593
|
2 |
41 |
if (@_)
|
|
595
|
2 |
0 |
if (defined $arg) { }
|
|
668
|
0 |
72366 |
unless defined $input
|
|
672
|
214 |
72152 |
if (UNIVERSAL::can($input, "radians"))
|
|
681
|
28 |
72124 |
unless (defined $units)
|
|
683
|
0 |
28 |
unless defined $units
|
|
689
|
2047 |
70105 |
if ($units =~ /^s/) { }
|
|
|
32 |
70073 |
elsif ($units =~ /^d/) { }
|
|
|
24 |
70049 |
elsif ($units =~ /^arcs/ or $units eq 'as') { }
|
|
|
2 |
70047 |
elsif ($units =~ /^arcm/ or $units eq 'am') { }
|
|
702
|
0 |
2047 |
unless $j == 0
|
|
704
|
0 |
2047 |
if ($j == -1) { }
|
|
|
0 |
2047 |
elsif ($j == -2) { }
|
|
|
0 |
2047 |
elsif ($j == -3) { }
|
|
|
0 |
2047 |
elsif ($j == 1) { }
|
|
753
|
0 |
47 |
unless defined $input
|
|
760
|
34 |
13 |
if (not &looks_like_number($input)) { }
|
|
|
4 |
9 |
elsif ($input > 6.2831853071795862) { }
|
|
786
|
0 |
48 |
if $res > 9
|