File Coverage

blib/lib/HTML/Template/HashWrapper.pm

Criterion	Covered	Total	%
statement	65	67	97.0
branch	13	16	81.2
condition			n/a
subroutine	15	15	100.0
pod	0	2	0.0
total	93	100	93.0

package HTML::Template::HashWrapper;
use strict;
use Carp 'croak';

our $VERSION = '1.3';

sub new {
  my $class = shift;
  my $wrapped = shift;
  unless ( UNIVERSAL::isa($wrapped, 'HASH') ) {
    croak "Wrapped object is not a hash reference";
  }
  my %args = @_;
  my $at_isa = $class;
  my $pkgname = $class->_GENERATE_PACKAGENAME();
  if ( UNIVERSAL::isa( $wrapped, 'UNIVERSAL' ) ) {
    # $wrapped is already blessed: add its ref to @ISA
    $at_isa .= " " . ref($wrapped);
  }
  eval "{package $pkgname; use strict; our \@ISA=qw($at_isa); 1;}";
  die $@ if $@;
  return bless $wrapped, $pkgname;
}

# If you don't like my anonymous packagename generation, you can roll your own.
sub _GENERATE_PACKAGENAME {
  my $class = shift;
  my $uniq = "ANON_".$$.time().int(rand()*10000);
  my $pkgname = "$ {class}::$ {uniq}";
  return $pkgname;
}

# todo: according to H::T, param() can also support:
#       set multiple params: hash input
#       set multuple params from a hashref input

# Standard behavior: $self is a hashref
sub param {
  my $self = shift;
  my($name, $value) = @_;
  if ( defined($name) ) {
    if (defined($value)) {
      return $self->{$name} = $value;
    } else {
      return $self->{$name};
    }
  } else {
    return keys %{$self};
  }
}


1;

package HTML::Template::HashWrapper::Plain;
use strict;
use Carp 'croak';
our @ISA=('HTML::Template::HashWrapper'); # everything is overridden, though

sub new {
  my $class = shift;
  my $target = shift;
  unless ( UNIVERSAL::isa($target, 'HASH') ) {
    croak "Wrapped object is not a hash reference";
  }
  return bless { _ref => $target }, $class;
}

# Un-reblessing behavior: $self contains a reference to the reference
sub param {
  my $self = shift;
  my($name, $value) = @_;
  if ( defined($name) ) {
    if (defined($value)) {
      return $self->{_ref}->{$name} = $value;
    } else {
      return $self->{_ref}->{$name};
    }
  } else {
    return keys %{ $self->{_ref} };
  }
}

1;
__END__