File Coverage

bin/echo

Criterion	Covered	Total	%
statement	17	17	100.0
branch	8	8	100.0
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	27	27	100.0

#!/usr/bin/perl

=begin metadata

Name: echo
Description: echo arguments
Author: Randy Yarger, [e-mail]
License: perl

=end metadata

=cut

package PerlPowerTools::echo;

use strict;

my ($VERSION) = '1.2';

__PACKAGE__->run( @ARGV ) unless caller();

sub run {
    my ( $self, @args ) = @_;

    unless (@args) {
        print "\n";
        exit 0;
    }

    if ($args[0] eq '-?') {
    print <
Usage: echo [-n] [arguments]

Displays the command line arguments, seperated by spaces.

Options:
       -n:     Do not print a newline after the arguments.
       -?:     Display usage information.
EOF
        exit 0;
    }

    my $N = 1;
    if ($args[0] eq '-n') {
        $N = 0;
        shift @args;
    }

    print join ' ', @args;
    print "\n" if $N == 1;

    exit 0;

}

1;

__END__