File Coverage

blib/lib/Tree/Template/Declare/DAG_Node.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	3	4	75.0
condition	1	2	50.0
subroutine	10	10	100.0
pod	0	7	0.0
total	46	55	83.6

package Tree::Template::Declare::DAG_Node;
{
  $Tree::Template::Declare::DAG_Node::DIST = 'Tree-Template-Declare';
}
$Tree::Template::Declare::DAG_Node::VERSION = '0.7';
use strict;
use warnings;
use Carp;

sub new {
    my ($class,$node_class)=@_;
    $node_class||='Tree::DAG_Node';

    eval "require $node_class" or ## no critic (ProhibitStringyEval)
        croak "Can't load $node_class: $@"; ## no critic (ProhibitPunctuationVars)

    return bless {nc=>$node_class},$class;
}

sub new_tree {
    my ($self)=@_;

    return bless [],'Tree::Template::Declare::DAG_Node::Tree';
}

sub finalize_tree {
    my ($self,$tree)=@_;

    return $tree->[0];
}

sub new_node {
    my ($self)=@_;

    return $self->{nc}->new();
}

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

    if ($parent->isa('Tree::Template::Declare::DAG_Node::Tree')) {
        push @{$parent},$child;
        return $parent;
    }
    return $parent->add_daughter($child);
}

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

    return $node->name($name);
}

sub set_node_attributes {
    my ($self,$node,$attrs)=@_;

    my %all_attributes=(
        %{$node->attributes},
        %{$attrs},
    );

    return $node->attributes(\%all_attributes);
}

1;

=pod

=encoding UTF-8

=head1 NAME

Tree::Template::Declare::DAG_Node - adaptor for Tree::DAG_Node

=head1 VERSION

version 0.7

=head1 SYNOPSIS

See L.

=head1 SPECIFICITIES

This module will build trees using L. You can make it
use another module (assuming it has the same interface, for example
L) by passing the class name to the C
method.

 use Tree::Template::Declare builder => '+DAG_Node'; # default

 use Tree::Template::Declare builder =>
     Tree::Template::Declare::DAG_Node->new('Tree::DAG_Node::XPath');
     # custom class

=for Pod::Coverage add_child_node finalize_tree new new_node new_tree set_node_attributes set_node_name

=head1 AUTHOR

Gianni Ceccarelli

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2015 by Gianni Ceccarelli .

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut

__END__