File Coverage

blib/lib/XML/Grammar/FictionBase/Event.pm

Criterion	Covered	Total	%
statement	12	18	66.6
branch			n/a
condition	0	6	0.0
subroutine	4	7	57.1
pod	3	3	100.0
total	19	34	55.8

package XML::Grammar::FictionBase::Event;

use strict;
use warnings;


use MooX 'late';

use XML::Grammar::Fiction::FromProto::Node;

has 'type' => (isa => "Str", is => "ro");
has 'tag' => (isa => "Maybe[Str]", is => "ro", predicate => '_has_tag',);
has 'elem' => (is => "ro");
has 'tag_elem' => (is => "ro");

our $VERSION = '0.14.11';

sub is_tag_of_name
{
    my ($self, $name) = @_;

    return ($self->_has_tag() && ($self->tag() eq $name));
}

sub is_open
{
    my $self = shift;

    return ($self->type() eq "open");
}

sub is_open_or_close
{
    my $self = shift;

    return (($self->type() eq "open") || ($self->type() eq "close"));
}

1;

__END__