File Coverage

blib/lib/LeftPad.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	2	2	100.0
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	29	29	100.0

use 5.008001;
use strict;
use warnings;

package LeftPad;
# ABSTRACT: Why should Node.js have all the fun?

our $VERSION = '0.001';

use Carp;

use base 'Exporter';
our @EXPORT = qw/leftpad/;

#pod =func leftpad
#pod
#pod     $string = leftpad( $string, $min_length );
#pod     $string = leftpad( $string, $min_length, $pad_char );
#pod
#pod Returns a copy of the input string with left padding if the input string
#pod length is less than the minimum length.  It pads with spaces unless given a
#pod pad character as a third argument.
#pod
#pod =cut

sub leftpad {
    no warnings 'uninitialized';
    return sprintf( "%*s", $_[1], $_[0] ) unless defined $_[2];
    return $_[2] x ( $_[1] - length( $_[0] ) ) . $_[0];
}

1;


# vim: ts=4 sts=4 sw=4 et tw=75:

__END__