File Coverage

blib/lib/Tree/Simple/WithMetaData.pm

Criterion	Covered	Total	%
statement	27	28	96.4
branch	6	6	100.0
condition			n/a
subroutine	8	8	100.0
pod	4	4	100.0
total	45	46	97.8

package Tree::Simple::WithMetaData;

use strict;
use warnings;

our $VERSION = '0.01';

use base 'Tree::Simple';

sub _init {
    my $self = shift;
    $self->SUPER::_init(@_);
    $self->{meta_data} = {};
    return $self;
}

## meta data functions

sub addMetaData {
    my ($self, %data) = @_;
    my ($k, $v);
    while (($k, $v) = each %data) {
        $self->{meta_data}->{$k} = $v;
    }
}

sub hasMetaDataFor {
    my ($self, $key) = @_;
    exists $self->{meta_data}->{$key} ? 1 : 0;
}

sub getMetaDataFor {
    my ($self, $key) = @_;
    return $self->{meta_data}->{$key};
}

sub fetchMetaData {
    my ($self, $key) = @_;
    return $self->{meta_data}->{$key}
        if exists $self->{meta_data}->{$key};

    my $current = $self;
    until ($current->isRoot) {
        return $current->{meta_data}->{$key}
            if exists $current->{meta_data}->{$key};
        $current = $current->getParent();
    }

    return undef;
}

1;

__END__