File Coverage

bin/echo
Criterion Covered Total %
statement 16 16 100.0
branch 8 8 100.0
condition n/a
subroutine 2 2 100.0
pod n/a
total 26 26 100.0


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2              
3             =begin metadata
4              
5             Name: echo
6             Description: echo arguments
7             Author: Randy Yarger, randy.yarger@nextel.com
8             License: perl
9              
10             =end metadata
11              
12             =cut
13              
14             package PerlPowerTools::echo;
15              
16 1     1   2169 use strict;
  1         1  
  1         200  
17              
18             my ($VERSION) = '1.2';
19              
20             __PACKAGE__->run( @ARGV ) unless caller();
21              
22             sub run {
23 4     4   17769 my ( $self, @args ) = @_;
24              
25 4 100       10 unless (@args) {
26 1         4 exit 0;
27             }
28              
29 3 100       7 if ($args[0] eq '-?') {
30 1         4 print <
31             Usage: echo [-n] [arguments]
32              
33             Displays the command line arguments, seperated by spaces.
34              
35             Options:
36             -n: Do not print a newline after the arguments.
37             -?: Display usage information.
38             EOF
39 1         3 exit 0;
40             }
41              
42 2         3 my $N = 1;
43 2 100       6 if ($args[0] eq '-n') {
44 1         1 $N = 0;
45 1         2 shift @args;
46             }
47              
48 2         6 print join ' ', @args;
49 2 100       4 print "\n" if $N == 1;
50              
51 2         5 exit 0;
52              
53             }
54              
55             1;
56              
57             __END__