File Coverage

blib/lib/Text/OutdentEdge.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	14	14	100.0
condition	10	10	100.0
subroutine	5	5	100.0
pod	2	2	100.0
total	64	64	100.0

#! /usr/bin/perl -w
## ----------------------------------------------------------------------------
#  Text::OutdentEdge.
# -----------------------------------------------------------------------------
# Mastering programmed by YAMASHINA Hio
#
# Copyright 2006 YAMASHINA Hio
# -----------------------------------------------------------------------------
# $Id: /perl/Text-OutdentEdge/lib/Text/OutdentEdge.pm 252 2006-11-25T09:35:55.628540Z hio  $
# -----------------------------------------------------------------------------
package Text::OutdentEdge;
use strict;
use warnings;
use base 'Exporter';

our @EXPORT_OK = qw(xoutdent outdent);
our %EXPORT_TAGS = ( all => \@EXPORT_OK );

our $VERSION = 0.01;

1;

# -----------------------------------------------------------------------------
# $out = xoutdent($text);
#
sub xoutdent($;$)
{
	my $text = shift;
	my $opts = shift || {};
	defined($opts->{indent}) or $opts->{indent} = qr/[ \t]+/;
	defined($opts->{xchar})  or $opts->{xchar}  = qr/\S([ \t]|$)/;
	if( !exists($opts->{trim}) || $opts->{trim} )
	{
		$text =~ s/\A\r?\n?//s;
		$text =~ s/[ \t]+\z//s;
	}
	$text =~ s/^$opts->{indent}$opts->{xchar}//mg;
	if( $opts->{chomp} )
	{
		chomp $text;
	}
	$text;
}

# -----------------------------------------------------------------------------
# $out = outdent($text);
# $out = outdent($text, qr//);
# $out = outdent($text, $opts);
#
sub outdent($;$)
{
	my $text = shift;
	my $opts = shift;
	my $re;
	if( (ref($opts)||'') eq 'Regexp' )
	{
		$re = $opts;
		$opts = {};
	}
	$re ||= $opts->{indent};
	if( !$re )
	{
		my ($len) = sort{ $a<=>$b } map{length($_)} $text =~ /^([ \t]*(?=\S))/gm;
		$re = $len ? qr/[ \t]{1,$len}/ : qr//;
	}
	xoutdent $text, {%$opts, indent=>$re, xchar=>'' };
}

# -----------------------------------------------------------------------------
# End of File.
# -----------------------------------------------------------------------------
__END__