File Coverage

blib/lib/Template/Like/Stash.pm

Criterion	Covered	Total	%
statement	35	43	81.4
branch	13	20	65.0
condition	6	8	75.0
subroutine	6	7	85.7
pod	0	6	0.0
total	60	84	71.4

package Template::Like::Stash;

use strict;

sub new {
  my $class = shift;
  my $args  = shift || {};

  return bless $args, $class;
}

sub set {
  my $self = shift;
  my $key  = shift;
  my $val  = shift;
  if (@_) {
    return $_[0]->{ $key } = $val;
  }
  $self->{ $key } = $val;
  return ;
}

sub update {
  my $self = shift;
  my $vars = shift;
  @{ $self }{ keys %{ $vars } } = values %{ $vars };
}

sub clone {
  bless { %{ $_[0] } }, 'Template::Like::Stash';
}

sub get {
  my $self = shift;
  my $key  = shift;

  if ( $key=~/([^\.]+)\.(.*)/ ) {
    return unless exists $self->{ $1 };
    return $self->next( $self->{ $1 }, $2, @_ );
  }

  return unless exists $self->{ $key };

  my $ret  = $self->{ $key };

  # execute code ref.
  if ( UNIVERSAL::isa($ret, 'CODE') ) {
    return $ret->( @_ );
  }

  return $ret;
}

sub next {
  my $self = shift;
  my $val  = shift;
  my $key  = shift;

  if ( UNIVERSAL::can($val, $key) ) {
    $val = $val->$key( @_ );
  }

  elsif ( UNIVERSAL::isa($val, "HASH") && exists $val->{$key} ) {
    $val = $val->{$key};
  }

  elsif ( UNIVERSAL::isa($val, 'ARRAY') && $key=~/^\d+$/ ) {
    $val = $val->[$key];
  }

  elsif ( Template::Like::VMethods->can($key, $val) ) {
    $val = Template::Like::VMethods->exec($key, $val, @_);
  }

  else {
    return ;
  }

  # execute code ref.
  if ( UNIVERSAL::isa($val, 'CODE') ) {
    return $val->();
  }

  return $val;
}

1;