File Coverage

blib/lib/TAP/DOM/DocumentData.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	3	3	100.0
total	23	23	100.0

package TAP::DOM::DocumentData;
our $AUTHORITY = 'cpan:SCHWIGON';
# ABSTRACT: Accessors for key/value document data
$TAP::DOM::DocumentData::VERSION = '1.001';
use 5.006;
use strict;
use warnings;

sub new {
  my $class = shift;
  return bless { @_ }, $class;
}

sub set {
    my ($self, $key, $value) = @_;
    $self->{$key} = $value;
}

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

1;

__END__