File Coverage

blib/lib/Babble/SubMatch.pm

Criterion	Covered	Total	%
statement	11	11	100.0
branch	1	2	50.0
condition			n/a
subroutine	3	3	100.0
pod	0	2	0.0
total	15	18	83.3

package Babble::SubMatch;

use Mu;

extends 'Babble::Match';

ro 'parent';
ro 'start';

sub replace_text {
  my ($self, $new_text) = @_;
  $self->replace_substring(0, length($self->text), $new_text);
}

sub transform_text {
  my ($self, $code) = @_;
  local $_ = my $text = $self->text;
  $code->($_);
  if ($_ ne $text) { $self->replace_text($_) }
  return $self;
}

before replace_substring => sub {
  my ($self, $start, $length, $new_text) = @_;
  $self->parent
       ->replace_substring($self->start + $start, $length, $new_text);
};

1;