| File: | tests/statement |
| Coverage: | 100.0% |
| Perl version: | 5.8.0 |
| Platform: | solaris |
| line | stmt | branch | cond | time | code |
|---|---|---|---|---|---|
| 1 |
#!/usr/local/bin/perl
|
||||
| 2 |
|
||||
| 3 |
# Copyright 2003, Paul Johnson (pjcj@cpan.org)
|
||||
| 4 |
|
||||
| 5 |
# This software is free. It is licensed under the same terms as Perl itself.
|
||||
| 6 |
|
||||
| 7 |
# The latest version of this software should be available from my homepage:
|
||||
| 8 |
# http://www.pjcj.net
|
||||
| 9 |
|
||||
| 10 |
1
|
105
|
my $pi = 3.14159;
|
||
| 11 |
1
|
14
|
my $r = 4;
|
||
| 12 |
1
|
30
|
my $c = 2 * $pi * $r;
|
||
| 13 |
1
|
17
|
my $a = $pi * $r * $r;
|