File Coverage

blib/lib/String/Cushion.pm

Criterion	Covered	Total	%
statement	22	23	95.6
branch	5	6	83.3
condition	1	3	33.3
subroutine	5	5	100.0
pod	1	1	100.0
total	34	38	89.4

use 5.10.1;
use strict;
use warnings;
package String::Cushion;

our $VERSION = '0.0100'; # VERSION
# ABSTRACT: Vertically pad a string

1;

use Sub::Exporter::Progressive -setup => {
    exports => [qw/cushion/],
    groups => {
        default => [qw/cushion/],
    },
};

sub cushion($$;$) {
    my $top_cushion = shift;
    my $second = shift;
    my $third = shift;

    my $bottom_cushion = defined $third ? $second : $top_cushion;
    my $string = defined $third ? $third : $second;

    if($top_cushion !~ m{^\d+$} || $bottom_cushion !~ m{^\d+$}) {
        return $string;
    }

    $string =~ s{\A[\h\v]*\v(?=\h*[^\h\v])}{};
    $string =~ s{([^\h\v]\V*)\v[\h\v]*\z}{$1};

    $string = ("\n" x $top_cushion) . $string . ("\n" x $bottom_cushion);

    return $string;
}

1;

__END__