File Coverage

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

Criterion	Covered	Total	%
statement	23	23	100.0
branch	4	4	100.0
condition	2	2	100.0
subroutine	8	8	100.0
pod	2	2	100.0
total	39	39	100.0

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

# ABSTRACT: Tab stop that specifies a default value for the user

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


sub replacement {
	my $self = shift;
	return $self->has_replacement ? $self->SUPER::replacement : $self->default;
}

sub parse {
	my $class = shift;
	my $src = shift;
	if($src =~ m/\$\{(\d+):(.*)\}/){
		return $class->_new( index => $1, src => $src, default => $2 || '' );
	}
	return;
}

1;

__END__