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 0 2 0.0
total 8 16 50.0


line stmt bran cond sub pod time code
1             package MDOM::Directive;
2              
3 15     15   1430 use strict;
  15         39  
  15         552  
4 15     15   86 use base 'MDOM::Node';
  15         223  
  15         86  
5              
6             sub name {
7 0     0 0   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 0   my ($self) = @_;
14             # XXX This is a hack
15 0           return $self->schild(1);
16             }
17              
18             1;
19