File Coverage

blib/lib/MDOM/Directive.pm
Criterion Covered Total %
statement 6 10 60.0
branch n/a
condition n/a
subroutine 2 4 50.0
pod 2 2 100.0
total 10 16 62.5


line stmt bran cond sub pod time code
1             package MDOM::Directive;
2              
3 15     15   69 use strict;
  15         22  
  15         536  
4 15     15   68 use base 'MDOM::Node';
  15         22  
  15         77  
5              
6             sub name {
7 0     0 1   my ($self) = @_;
8             # XXX need a better way to do this:
9 0           return $self->schild(0);
10             }
11              
12             sub value {
13 0     0 1   my ($self) = @_;
14             # XXX This is a hack
15 0           return $self->schild(1);
16             }
17              
18             1;
19              
20             __END__