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   2670 use strict;
  1         3  
  1         242  
17              
18             my ($VERSION) = '1.2';
19              
20             __PACKAGE__->run( @ARGV ) unless caller();
21              
22             sub run {
23 4     4   19910 my ( $self, @args ) = @_;
24              
25 4 100       21 unless (@args) {
26 1         7 exit 0;
27             }
28              
29 3 100       12 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         4 exit 0;
40             }
41              
42 2         5 my $N = 1;
43 2 100       5 if ($args[0] eq '-n') {
44 1         3 $N = 0;
45 1         2 shift @args;
46             }
47              
48 2         10 print join ' ', @args;
49 2 100       6 print "\n" if $N == 1;
50              
51 2         9 exit 0;
52              
53             }
54              
55             1;
56              
57             __END__