File Coverage

blib/lib/XML/Handler/ExtOn/IncXML.pm
Criterion Covered Total %
statement 9 13 69.2
branch 0 2 0.0
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 13 20 65.0


line stmt bran cond sub pod time code
1             package XML::Handler::ExtOn::IncXML;
2 4     4   24 use base 'XML::Handler::ExtOn';
  4         9  
  4         382  
3 4     4   23 use strict;
  4         6  
  4         114  
4 4     4   21 use warnings;
  4         6  
  4         386  
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             1