File Coverage

blib/lib/XML/Grammar/Fiction/Struct/Tag.pm

Criterion	Covered	Total	%
statement	15	28	53.5
branch	0	2	0.0
condition			n/a
subroutine	5	9	55.5
pod	3	3	100.0
total	23	42	54.7

package XML::Grammar::Fiction::Struct::Tag;

use strict;
use warnings;

use MooX 'late';

use List::MoreUtils;


our $VERSION = '0.14.10';

has 'name' => (is => "rw", isa => "Str");
has 'line' => (is => "rw", isa => "Int");
has 'is_standalone' => (is => "rw", isa => "Bool");
has 'attrs' => (is => "rw", isa => "ArrayRef");
has 'children' => (
    is => "rw",
    isa => "Maybe[ArrayRef]",
);

sub append_children
{
    my ($self, $children) = @_;

    # This is an assert / sanity check.
    if (List::MoreUtils::any { !defined ($_) } @$children)
    {
        Carp::confess("append_children with undef.");
    }

    push @{$self->children()}, @$children;

    return;
}

sub append_child
{
    my ($self, $child) = @_;

    return $self->append_children( [ $child ] );
}

sub detach_children
{
    my $self = shift;

    my $children = $self->children();

    $self->children(undef);

    return $children;
}

package XML::Grammar::Fiction::Struct::Tag::Para;

use MooX 'late';

extends("XML::Grammar::Fiction::Struct::Tag");


1;

__END__