File Coverage

blib/lib/HTML/Template/Pro/WrapAssociate.pm

Criterion	Covered	Total	%
statement	16	41	39.0
branch	2	8	25.0
condition	1	6	16.6
subroutine	4	14	28.5
pod	0	1	0.0
total	23	70	32.8

package HTML::Template::Pro::WrapAssociate;

use strict;
use Carp;
use vars qw($VERSION @ISA);

sub _wrap {
    my ($class, $associate_object, $is_case_sensitive, $is_strict_compatibility) = @_;
    if (ref($associate_object) && UNIVERSAL::can($associate_object,'param')) {
	my %hash;
	if ($is_case_sensitive) {
	    tie %hash, $class, $associate_object;
	} else {
	    foreach my $key ($associate_object->param()) {
		$hash{lc($key)} = $associate_object->param($key);
	    }
	}
	return \%hash;
    } elsif (!$is_strict_compatibility && UNIVERSAL::isa($associate_object,'HASH')) {
	if ($is_case_sensitive) {
	    return $associate_object;
	} else {
	    my %hash;
	    foreach my $key (keys(%$associate_object)) {
		$hash{lc($key)} = $associate_object->{$key};
	    }
	    return \%hash;
	}
    } else {
	Carp::croak "bad value for associate: HTML::Template::Pro->new called with associate option, containing object of type " . ref($associate_object) . " which lacks a param() method and does not look like a hash!";
    }
}

sub param {
    my $this = shift;
    return $this->[0]->param(@_);
}

sub TIEHASH {
    my ($class, $associate) = @_;
    my $self=[$associate,[]];
    return bless $self, $class;
};

sub FETCH {
    my ($this, $key) = @_;
    return $this->[0]->param($key);
}

sub EXISTS {
    my ($this, $key) = @_;
    return defined($this->[0]->param($key));
}

sub FIRSTKEY{
    my ($this) = @_;
    my @param=$this->[0]->param();
    $this->[1]=\@param;
    return shift @{$this->[1]};
}

sub NEXTKEY{
    my ($this) = @_;
    return shift @{$this->[1]};
}

sub STORE{}
sub DELETE{}
sub CLEAR{}
sub SCALAR{}

1;

__END__