File Coverage

blib/lib/String/StringLight.pm

Criterion	Covered	Total	%
statement	13	29	44.8
branch			n/a
condition			n/a
subroutine	4	8	50.0
pod	0	4	0.0
total	17	41	41.4

package String::StringLight;

use strict;
use warnings;

our $VERSION = '0.02';

BEGIN {
	use Exporter;
	our @ISA         = qw( Exporter );
	our @EXPORT      = qw( );
	our %EXPORT_TAGS = ( );
	our @EXPORT_OK   = qw( &trim &trimArray &space &left );
}

sub trim {
	my $s = shift;
	$s =~ s/\s+$//;
	$s =~ s/^\s+//;
	$s;
}

sub trimArray {
	for (@_){
		s/\s+$//;
	   s/^\s+//;
	}
	@_;
}

sub space {
	my $s = shift;
	my $t;
	$t .= ' ' x $s;
	return $t;
}

sub left {
	my $r = $_[0];
	while(length($r) < $_[1]) {$r.=' '}
	$r;
}

1;
__END__