File Coverage

blib/lib/Pod/Simple/PullParserEndToken.pm

Criterion	Covered	Total	%
statement	14	15	93.3
branch	1	2	50.0
condition	1	3	33.3
subroutine	7	8	87.5
pod	4	5	80.0
total	27	33	81.8

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

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

# Purely accessors:

sub tagname { (@_ == 2) ? ($_[0][1] = $_[1]) : $_[0][1] }
sub tag { shift->tagname(@_) }

# shortcut:
sub is_tagname { $_[0][1] eq $_[1] }
sub is_tag { shift->is_tagname(@_) }

1;


__END__