File Coverage

blib/lib/Text/Snippet/TabStop.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	7	10	70.0
condition			n/a
subroutine	10	10	100.0
pod	2	2	100.0
total	47	50	94.0

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

# ABSTRACT: Abstract class for other tab stop classes

use strict;
use warnings;
use Carp qw(croak);
use overload '""' => sub { shift->to_string };


sub parse {
	croak "must be implemented in sub class" if(shift eq __PACKAGE__);
}

sub _new {
	my $class = shift;
	croak "this is an abstract class - please instantiate a sub-class of " . __PACKAGE__ if($class eq __PACKAGE__);

	my %args = @_;
	for my $k(qw(src index)){
		croak "$k is required" unless defined $args{$k};
	}
	return bless \%args, $class;
}


use Class::XSAccessor
		getters    => { src        => 'src', index => 'index', replacement => 'replacement' },
		setters    => { replace    => 'replacement' },
		accessors  => { parent     => 'parent' },
		predicates => { has_parent => 'parent', has_replacement => 'replacement' };


sub to_string {
	my $self = shift;
	return $self->parent->to_string if($self->has_parent);
	my $replacement = $self->replacement;
	return defined($replacement) ? $replacement : '';
}

1;

__END__