File Coverage

blib/lib/Geoffrey/Template.pm

Criterion	Covered	Total	%
statement	42	42	100.0
branch	6	8	75.0
condition	6	8	75.0
subroutine	10	10	100.0
pod	4	4	100.0
total	68	72	94.4

package Geoffrey::Template;

use utf8;
use 5.016;
use strict;
use warnings;

$Geoffrey::Template::VERSION = '0.000206';

sub _handle_template {
    my ( $self, $hr_template ) = @_;
    if ( $hr_template->{template}
        && scalar @{ $self->template( $hr_template->{template} ) } == 0 )
    {
        require Geoffrey::Exception::Template;
        Geoffrey::Exception::Template::throw_template_not_found( $hr_template->{template} );
    }
    $self->_merge_templates( $hr_template->{name}, $hr_template->{template} );
    push @{ $self->template( $hr_template->{name} ) }, $_ for @{ $hr_template->{columns} };
    return 1;
}

sub _merge_templates {
    my ( $self, $s_destination_template, $s_source_template ) = @_;
    return if !$s_source_template;
    push
      @{ $self->template($s_destination_template) },
      @{ $self->template($s_source_template) };
    return 1;
}

sub new {
    my $class = shift;
    my $self  = {@_};
    $self->{templates} = {};
    return bless $self, $class;
}

sub template {
    my ( $self, $s_template_name, $hr_template_value ) = @_;
    return unless $s_template_name;
    $self->templates->{$s_template_name} //= $hr_template_value // [];
    return $self->templates->{$s_template_name};

}

sub templates {
    my ( $self, $hr_templates ) = @_;
    $self->{templates} = $hr_templates if $hr_templates;
    return $self->{templates};
}

sub load_templates {
    my ( $self, $ar_templates ) = @_;
    $self->_handle_template($_) foreach @{$ar_templates};
    return $self;
}

1;

__END__