File Coverage

lib/YAX/Builder.pm

Criterion	Covered	Total	%
statement	31	36	86.1
branch	7	8	87.5
condition			n/a
subroutine	8	10	80.0
pod	4	6	66.6
total	50	60	83.3

package YAX::Builder;

use strict;

use YAX::Text;
use YAX::Element;
use YAX::Fragment;

sub new {
    my ( $class ) = @_;
    my $self = bless { }, $class;
    $self;
}

sub build {
    my ( $self, @specs ) = @_;
    my @nodes = map { $self->node( $_ ) } @specs;
    return wantarray ? @nodes : $nodes[0];
}

sub node {
    my ( $self, $spec ) = @_;
    if ( ref $spec eq 'ARRAY' ) {
        my @copy = @$spec;
        my $name = splice @copy, 0, 1;
        my %atts = ref $copy[0] eq 'HASH' ? %{ splice @copy, 0, 1 } : ( );

        my $node = $self->element( $name, %atts );
        $node->append( $_ ) for $self->build( @copy );
        return $node;
    }
    elsif ( UNIVERSAL::isa( $spec, 'YAX::Node' ) ) {
        return $spec;
    }
    else {
        return $self->text( $spec );
    }
}

sub text {
    my $self = shift;
    YAX::Text->new(@_);
}

sub element {
    my ( $self, $name, %atts ) = @_;
    YAX::Element->new( $name, %atts );
}

sub fragment {
    my ( $self, @kids ) = @_;
    YAX::Fragment->new( $self->build( @kids ) );
}

1;
__END__