File Coverage

blib/lib/Template/Plugin/LLHash.pm

Criterion	Covered	Total	%
statement	9	70	12.8
branch	0	4	0.0
condition			n/a
subroutine	3	21	14.2
pod	18	18	100.0
total	30	113	26.5

package Template::Plugin::LLHash;
use strict;

use base 'Template::Plugin';

our $VERSION = '0.01';

use Tie::LLHash;

sub new {
    my $class = shift;

    my %hash;

    tie (%hash, "Tie::LLHash", @_);

    my $self = {
        hash => \%hash,
    };

    bless $self, $class;
    return $self;

}


*insert_after = \&insert;
sub insert {
    my $self = shift;

    (tied %{$self->{hash}})->insert(@_);
}

sub insert_before {
    my $self = shift;


    my $find_name = (tied %{$self->{hash}})->key_before($_[2]);
    (tied %{$self->{hash}})->insert($_[0], $_[1],$find_name);

}



sub first {
    my $self = shift;

    (tied %{$self->{hash}})->first(@_);
}

sub last {
    my $self = shift;

    (tied %{$self->{hash}})->last(@_);

}

sub key_before {
    my $self = shift;

    (tied %{$self->{hash}})->key_before(@_);

}

sub key_after {
    my $self = shift;

    (tied %{$self->{hash}})->key_after(@_);
}

sub current_key {
    my $self = shift;

    (tied %{$self->{hash}})->key_after(@_);

}

sub current_value {
    my $self = shift;

    (tied %{$self->{hash}})->current_value(@_);

}

sub next {
    my $self = shift;

    (tied %{$self->{hash}})->next(@_);

}

sub prev {
    my $self = shift;

    (tied %{$self->{hash}})->prev(@_);

}

sub reset {
    my $self = shift;

    (tied %{$self->{hash}})->reset(@_);

}

sub keys {
    my $self = shift;

    keys %{$self->{hash}};
}

sub value_of {
    my $self = shift;

    $self->{hash}->{$_[0]};
}


*add = \&push;
*add_before = \&insert_before;
*add_after  = \&insert;
sub push {
    my $self = shift;

    return unless $_[0];

    (tied %{$self->{hash}})->last(@_);

    return;
}


sub unshift {
    my $self = shift;

    return unless $_[0];

    (tied %{$self->{hash}})->first(@_);

}


sub pop {
    my $self = shift;
    my $last = (tied %{$self->{hash}})->last();

    delete $self->{hash}->{$last};
}

sub delete {
    my $self = shift;

    delete $self->{hash}->{$_[0]};

}

1;
# The preceding line will help the module return a true value

__END__