File Coverage

blib/lib/XML/ExtOn/IncXML.pm
Criterion Covered Total %
statement 9 15 60.0
branch 0 2 0.0
condition n/a
subroutine 3 5 60.0
pod 1 2 50.0
total 13 24 54.1


line stmt bran cond sub pod time code
1             package XML::ExtOn::IncXML;
2 6     6   32 use base 'XML::ExtOn';
  6         11  
  6         534  
3 6     6   33 use strict;
  6         14  
  6         185  
4 6     6   30 use warnings;
  6         8  
  6         733  
5              
6             sub on_start_element {
7 0     0 1   my ( $self, $elem ) = @_;
8 0 0         unless ( $self->{__NOT_SKIPED}++ ) {
9 0           $elem->delete_element;
10             }
11 0           $elem;
12             }
13              
14            
15             sub context {
16 0     0 0   my $self = shift;
17             #Handler namespaces
18 0           return $self->{Handler}->context()
19             }
20              
21              
22              
23             1