File Coverage

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

Criterion	Covered	Total	%
statement	15	15	100.0
branch	2	2	100.0
condition	3	3	100.0
subroutine	5	5	100.0
pod	1	1	100.0
total	26	26	100.0

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

# ABSTRACT: Basic TabStop

use strict;
use warnings;

use base qw(Text::Snippet::TabStop);


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

1;

__END__