File Coverage

blib/lib/Text/Snippet/TabStop/WithTransformer.pm

Criterion	Covered	Total	%
statement	32	34	94.1
branch	4	8	50.0
condition			n/a
subroutine	9	9	100.0
pod	2	2	100.0
total	47	53	88.6

package Text::Snippet::TabStop::WithTransformer;
BEGIN {
  $Text::Snippet::TabStop::WithTransformer::VERSION = '0.04';
}

# ABSTRACT: Tab stop that modifies the replacement value supplied by the user

use strict;
use warnings;
use base qw(Text::Snippet::TabStop);
use Carp qw(croak);
use Class::XSAccessor getters => { transformer => 'transformer' };


sub to_string {
	my $self = shift;
	my $output = $self->SUPER::to_string;
	return $self->transformer->($output);
}
sub parse {
	my $class = shift;
	my $src   = shift;
	if ( $src =~ m{^\$\{(\d+)/([^/]+?)/([^/]*)/(.*?)\}$} ) {
		my ( $tab_index, $search, $replace, $flags ) = ( $1, $2, $3, $4 );
		$replace =~ s/\$0/\$&/g;
		if ( length($flags) ) {
			$search = "(?$flags$search)";
		}
		my $transformer = sub {
			my $out = shift;
			if ( $out =~ m/$search/ ) {
				eval "\$out =~ s{\$search}{$replace}g";
				die $@ if($@);
			}
			return $out;
		};
		return $class->_new( src => $src, index => $tab_index, transformer => $transformer );
	}
	return;
}

1;

__END__