File Coverage

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

Criterion	Covered	Total	%
statement	37	37	100.0
branch			n/a
condition	2	2	100.0
subroutine	10	10	100.0
pod	2	2	100.0
total	51	51	100.0

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

use vars qw($nav_buttons_html);

use parent 'HTML::Latemp::NavLinks::GenHtml';

__PACKAGE__->mk_accessors(
    qw(
        _ext
        )
);

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

    $self->SUPER::_init(%args);

    $self->_ext( $args{ext} || '.png' );

    return;
}


use Template;

# load Template::Stash to make method tables visible
use Template::Stash;

# Define a method to return a substring.
$Template::Stash::SCALAR_OPS->{'substr'} = sub {
    return substr( $_[0], $_[1], $_[2] );
};

sub _get_nav_buttons_html
{
    my $self = shift;

    my (%args) = (@_);

    my $with_accesskey = $args{'with_accesskey'};

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

    my $template = Template->new(
        {
            'POST_CHOMP' => 1,
        }
    );

    my $vars = {
        'buttons'        => $self->_get_buttons(),
        'root'           => $root,
        'with_accesskey' => $with_accesskey,
        'image_base'     => $self->get_image_base(),
        ext              => $self->_ext(),
    };

    my $nav_links_template = <<'EOF';
[% USE HTML %]
[% FOREACH b = buttons %]
[% SET key = b.dir.substr(0, 1) %]

[% IF b.exists %]

[% IF with_accesskey %]
accesskey="[% key %]"
[% END %]
>[% END %]
alt="[% b.title %]" class="bless" />[% IF b.exists %]
[% END %]

[% END %]
EOF

    my $nav_buttons_html = "";

    $template->process( \$nav_links_template, $vars, \$nav_buttons_html );
    return $nav_buttons_html;
}


sub get_image_base
{
    my $self = shift;

    return "arrow-";
}


sub get_total_html
{
    my $self = shift;

    return
          "\n"
        . $self->_get_nav_buttons_html(@_)
        . "\n";
}


1;

__END__