File Coverage

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

Criterion	Covered	Total	%
statement	23	24	95.8
branch	3	4	75.0
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	34	36	94.4

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

# ABSTRACT: Parses an individual tab stop

use strict;
use warnings;
use List::Util qw(first);
use Carp qw(croak);

my @types;
BEGIN {
	@types = map { "Text::Snippet::TabStop::$_" } qw( Basic WithDefault WithTransformer );
	for(@types){
		eval "require $_";
		croak $@ if $@;
	}
}


sub parse {
    my $class = shift;
    my $src = shift;
	foreach my $t(@types){
		my $p = $t->parse($src);
		return $p if defined $p;
	}
	croak "unable to find parser for tab stop source: [$src]";
}

1;

__END__