File Coverage

lib/YAX/Fragment.pm
Criterion Covered Total %
statement 9 17 52.9
branch n/a
condition n/a
subroutine 3 8 37.5
pod 3 5 60.0
total 15 30 50.0


line stmt bran cond sub pod time code
1             package YAX::Fragment;
2              
3 3     3   13 use strict;
  3         5  
  3         98  
4              
5 3     3   23 use YAX::Constants qw/DOCUMENT_FRAGMENT_NODE/;
  3         4  
  3         138  
6              
7 3     3   13 use base qw/YAX::Element/;
  3         5  
  3         533  
8              
9             sub new {
10 0     0 0   my $class = shift;
11 0           my $self = bless \[ '#fragment', { }, [ @_ ] ], $class;
12 0           $self;
13             }
14              
15 0     0 1   sub type { DOCUMENT_FRAGMENT_NODE() }
16 0     0 1   sub name { '#fragment' }
17              
18             sub as_string {
19 0     0 1   my $self = shift;
20 0           return $self->children_as_string();
21             }
22              
23 0     0 0   sub attributes_as_string { '' }
24              
25             1;
26              
27             __END__