File Coverage

bin/echo

Criterion	Covered	Total	%
statement	13	13	100.0
branch	4	6	66.6
condition	5	9	55.5
subroutine	2	2	100.0
pod			n/a
total	24	30	80.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;

our $VERSION = '1.3';

# run if called directly, indirectly, directly par-packed, undirectly par-packed
__PACKAGE__->run( @ARGV ) if !caller() || caller(0) =~ /^(PerlPowerTools::Packed|PAR)$/ || caller(1) eq 'PAR';

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

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

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

    exit 0;
}

1;

__END__