File Coverage

blib/lib/HTML/Latemp/NavLinks/GenHtml.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	1	2	50.0
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	37	38	97.3

package HTML::Latemp::NavLinks::GenHtml;
$HTML::Latemp::NavLinks::GenHtml::VERSION = '0.2.8';
use warnings;
use strict;

use 5.008;

use parent 'Class::Accessor';

__PACKAGE__->mk_accessors(
    qw(
        nav_links_obj
        root
        )
);



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

sub _init
{
    my $self = shift;
    my (%args) = @_;

    $self->root( $args{root} );
    $self->nav_links_obj( $args{nav_links_obj} );

    return $self;
}


sub _get_buttons
{
    my $self = shift;

    my @buttons = (
        {
            'dir'    => "prev",
            'button' => "left",
            'title'  => "Previous Page",
        },
        {
            'dir'    => "up",
            'button' => "up",
            'title'  => "Up in the Site",
        },
        {
            'dir'    => "next",
            'button' => "right",
            'title'  => "Next Page",
        },
    );

    foreach my $button (@buttons)
    {
        my $dir = $button->{'dir'};
        if ( $button->{'exists'} = exists( $self->nav_links_obj->{$dir} ) )
        {
            $button->{'link_obj'} = $self->nav_links_obj->{$dir};
        }
    }

    return \@buttons;
}


1;

__END__