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


line stmt bran cond sub pod time code
1             package TAP::DOM::DocumentData;
2             our $AUTHORITY = 'cpan:SCHWIGON';
3             # ABSTRACT: Accessors for key/value document data
4             $TAP::DOM::DocumentData::VERSION = '0.98';
5 19     19   322 use 5.006;
  19         63  
6 19     19   90 use strict;
  19         66  
  19         362  
7 19     19   85 use warnings;
  19         36  
  19         2549  
8              
9             sub new {
10 69     69 1 164 my $class = shift;
11 69         261 return bless { @_ }, $class;
12             }
13              
14             sub set {
15 2     2 1 8 my ($self, $key, $value) = @_;
16 2         5 $self->{$key} = $value;
17             }
18              
19             sub get {
20 17     17 1 19036 my ($self, $key) = @_;
21 17         85 return $self->{$key};
22             }
23              
24             1;
25              
26             __END__