Source

Fiction-XML / perl / modules / XML-Grammar-Fiction / lib / XML / Grammar / Fiction / FromProto / Node / Element.pm

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

=head1 NAME

XML::Grammar::Fiction::FromProto::Node::Element - an XML element node.

=cut

use MooX 'late';

our $VERSION = '0.14.3';

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');

=head1 METHODS

=head2 lookup_attr

Internal use.

=cut

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;