File Coverage

blib/lib/Pod/Simple/PullParserTextToken.pm

Criterion	Covered	Total	%
statement	13	13	100.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	6	6	100.0
pod	2	3	66.6
total	23	27	85.1

package Pod::Simple::PullParserTextToken;
use strict;
use warnings;
use Pod::Simple::PullParserToken ();
our @ISA = ('Pod::Simple::PullParserToken');
our $VERSION = '3.45';

sub new {  # Class->new(text);
  my $class = shift;
  return bless ['text', @_], ref($class) || $class;
}

# Purely accessors:

sub text { (@_ == 2) ? ($_[0][1] = $_[1]) : $_[0][1] }

sub text_r { \ $_[0][1] }

1;

__END__