| 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 |
81 |
if (@_)
|
|
193
|
26 |
67 |
if (defined $self->{'NDP'}) { }
|
|
213
|
6 |
81 |
if (@_)
|
|
218
|
13 |
74 |
if (defined $self->{'DELIM'}) { }
|
|
253
|
0 |
84 |
unless defined $res
|
|
258
|
83 |
1 |
unless $res == 0
|
|
263
|
81 |
3 |
if (wantarray) { }
|
|
292
|
80 |
1 |
if ($ndp > 0)
|
|
303
|
50 |
31 |
if ($sign eq '+')
|
|
304
|
41 |
9 |
if ($self->range eq '2PI') { }
|
|
318
|
1 |
80 |
$ndp == 0 ? :
|
|
325
|
78 |
3 |
if (length $delim == 1) { }
|
|
387
|
38391 |
56 |
if (@_)
|
|
389
|
38391 |
0 |
if (defined $rng) { }
|
|
397
|
3 |
38388 |
if ($rng eq 'NONE') { }
|
|
|
29672 |
8716 |
elsif ($rng eq '2PI') { }
|
|
|
8716 |
0 |
elsif ($rng eq 'PI') { }
|
|
444
|
38692 |
2749 |
unless $format
|
|
447
|
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/) { }
|
|
490
|
0 |
3 |
if $self->range eq '2PI'
|
|
545
|
1 |
38 |
if (@_)
|
|
547
|
1 |
0 |
if (defined $arg) { }
|
|
585
|
2 |
41 |
if (@_)
|
|
587
|
2 |
0 |
if (defined $arg) { }
|
|
660
|
0 |
72366 |
unless defined $input
|
|
664
|
214 |
72152 |
if (UNIVERSAL::can($input, 'radians'))
|
|
673
|
28 |
72124 |
unless (defined $units)
|
|
675
|
0 |
28 |
unless defined $units
|
|
681
|
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') { }
|
|
694
|
0 |
2047 |
unless $j == 0
|
|
696
|
0 |
2047 |
if ($j == -1) { }
|
|
|
0 |
2047 |
elsif ($j == -2) { }
|
|
|
0 |
2047 |
elsif ($j == -3) { }
|
|
|
0 |
2047 |
elsif ($j == 1) { }
|
|
745
|
0 |
47 |
unless defined $input
|
|
752
|
34 |
13 |
if (not &looks_like_number($input)) { }
|
|
|
4 |
9 |
elsif ($input > 6.2831853071795862) { }
|