File Coverage

blib/lib/String/Indent.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	2	2	100.0
condition	4	4	100.0
subroutine	5	5	100.0
pod	1	1	100.0
total	30	30	100.0

package String::Indent;

our $DATE = '2014-12-10'; # DATE
our $VERSION = '0.01'; # VERSION

use 5.010001;
use strict;
use warnings;

use Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(
                       indent
               );

sub indent {
    my ($indent, $str, $opts) = @_;
    $opts //= {};

    if ($opts->{indent_blank_lines} // 1) {
        $str =~ s/^/$indent/mg;
    } else {
        $str =~ s/^([^\r\n]*\S[^\r\n]*)/$indent$1/mg;
    }
    $str;
}

1;
# ABSTRACT: String indenting routines

__END__