File Coverage

blib/lib/XML/Grammar/Fiction/FromProto/Node/Element.pm

Criterion	Covered	Total	%
statement	9	16	56.2
branch	0	2	0.0
condition			n/a
subroutine	3	5	60.0
pod	1	1	100.0
total	13	24	54.1

package XML::Grammar::Fiction::FromProto::Node::Element;

use strict;
use warnings;


use MooX 'late';

our $VERSION = '0.14.11';

extends("XML::Grammar::Fiction::FromProto::Node::WithContent");

has 'name' => (isa => 'Str', is => 'rw');
has 'attrs' => (isa => 'ArrayRef', is => 'rw');
has 'open_line' => (isa => 'Maybe[Int]', is => 'rw');


sub lookup_attr
{
    my ($self, $attr_name) = @_;

    my $pair = List::Util::first { $_->{key} eq $attr_name } (@{$self->attrs()});

    if (!defined($pair))
    {
        return undef;
    }
    else
    {
        return $pair->{value};
    }
}

1;

__END__