File Coverage

blib/lib/Mustache/Simple/ContextStack.pm

Criterion	Covered	Total	%
statement	36	39	92.3
branch	4	8	50.0
condition			n/a
subroutine	11	12	91.6
pod	0	5	0.0
total	51	64	79.6

package Mustache::Simple::ContextStack;

use strict;
use warnings;
use 5.10.1;
use version;

our $VERSION = version->declare('v1.3.5');

use Scalar::Util qw(blessed reftype);
use Carp;
our @CARP_NOT = qw(Mustache::Simple);

# Don't forget to change the version in the pod

#use Data::Dumper;
#$Data::Dumper::Useqq = 1;
#$Data::Dumper::Deparse = 1;
#
#use Data::Dump qw(dumpf);
#
#sub debug($)
#{
#    say dumpf(shift, sub {
#            my ($ctx, $ref) = @_;
#            return { dump => qq(<$ref>) } if $ctx->object_isa('DateTime');
#        }
#    );
#    say "-" x 50;
#}

sub new
{
    my $class = shift;
    my $self = [];
    bless $self, $class;
}

sub push
{
    my $self = shift;
    my $context = shift;
    push @$self, $context;
}

sub pop
{
    my $self = shift;
    my $context = pop @$self;
    return $context;
}

sub search
{
    my $self = shift;
    my $element = shift;
    for (my $i = $#$self; $i >= 0; $i--)
    {
	my $context = $self->[$i];
        if (blessed $context)
        {
            my $meth;
            return sub { $context->$meth } if $meth = $context->can($element);
        }
	next unless reftype $context eq 'HASH';
	return $context->{$element} if exists $context->{$element};
    }
    return undef;
}

sub top
{
    my $self = shift;
    return $self->[-1];
}

1;