File Coverage

blib/lib/LeftPad.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	4	4	100.0
condition	3	3	100.0
subroutine	7	7	100.0
pod	1	1	100.0
total	35	35	100.0

use 5.008001;
use strict;
use warnings;

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

our $VERSION = '0.002';

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 Zero or negative minimum length returns the input string.  Only the first
#pod character in the pad-character string is used.  Undefined warnings are
#pod suppressed so an undefined input string is treated as an empty string.
#pod
#pod =cut

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

1;


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

__END__