File Coverage

blib/lib/Text/APL/Context.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	2	2	100.0
condition	4	4	100.0
subroutine	12	12	100.0
pod	2	7	28.5
total	53	58	91.3

package Text::APL::Context;

use strict;
use warnings;

use base 'Text::APL::Base';

use Digest::MD5 ();

sub _BUILD {
    my $self = shift;

    $self->{vars}    ||= {};
    $self->{helpers} ||= {};
}

sub id {
    my $self = shift;

    my $id = '';

    $id .= join ':', sort keys %{$self->{vars}};
    $id .= ',';
    $id .= join ':', sort keys %{$self->{helpers}};

    return Digest::MD5::md5_hex($id);
}

sub name    { $_[0]->{name} || '' }
sub vars    { $_[0]->{vars} }
sub helpers { $_[0]->{helpers} }

sub add_helper {
    my $self = shift;

    $self->add('helpers', @_);
}

sub add_var {
    my $self = shift;

    $self->add('vars', @_);
}

sub add {
    my $self = shift;
    my ($type, $key, $value) = @_;

    $self->{$type}->{$key} = $value;
}

1;
__END__