File Coverage

blib/lib/String/Gsub/Matcher.pm

Criterion	Covered	Total	%
statement	31	32	96.8
branch	8	10	80.0
condition			n/a
subroutine	6	6	100.0
pod	3	3	100.0
total	48	51	94.1

## ----------------------------------------------------------------------------
#  String::Gsub::Matcher
# -----------------------------------------------------------------------------
# Mastering programmed by YAMASHINA Hio
#
# Copyright 2006 YAMASHINA Hio
# -----------------------------------------------------------------------------
# $Id$
# -----------------------------------------------------------------------------
package String::Gsub::Matcher;
use strict;
use warnings;
use overload q|""| => \&stringy;

1;

# -----------------------------------------------------------------------------
# $matcher = $pkg->new($str);
#
sub new
{
	my $pkg = shift;
	my $this = bless { origref=>\$_[0], }, $pkg;
	$this->{st} = [@-];
	$this->{ed} = [@+];
	$this;
}

# -----------------------------------------------------------------------------
# $str = $matcher->expand($tmpl);
#   evaluate string-template by match results.
#
sub expand
{
	my $this = shift;
	my $tmpl = shift;

	$tmpl =~ s{\\(\d+)|\\([&`'])}
	{
		if( defined($1) )
		{
			$1<=$#{$this->{st}} ? substr(${$this->{origref}}, $this->{st}[$1], $this->{ed}[$1] - $this->{st}[$1]) : '';
		}elsif( $2 eq '&' )
		{
			substr(${$this->{origref}}, $this->{st}[0], $this->{ed}[0] - $this->{st}[0]);
		}elsif( $2 eq '`' )
		{
			substr(${$this->{origref}}, 0, $this->{st}[0]);
		}elsif( $2 eq "\'" )
		{
			substr(${$this->{origref}}, $this->{ed}[0]);
		}else
		{ # never reach here.
			'';
		}
	}xmse;
	$tmpl;
}

# -----------------------------------------------------------------------------
# $str = $matcher->stringy();
#   overloading of  "".
#   returns whole of match ($&).
#
sub stringy
{
	my $this = shift;
	substr(${$this->{origref}},$this->{st}[0], $this->{ed}[0]-$this->{st}[0]);
}

__END__