File Coverage

blib/lib/XML/ExtOn/Writer.pm
Criterion Covered Total %
statement 12 17 70.5
branch 0 2 0.0
condition n/a
subroutine 4 5 80.0
pod 1 1 100.0
total 17 25 68.0


line stmt bran cond sub pod time code
1             #===============================================================================
2             #
3             # DESCRIPTION: Make XML
4             #
5             # AUTHOR: Aliaksandr P. Zahatski,
6             #===============================================================================
7             #$Id: Writer.pm 845 2010-10-13 08:11:10Z zag $
8              
9             package XML::ExtOn::Writer;
10 6     6   25979 use strict;
  6         16  
  6         288  
11 6     6   39 use warnings;
  6         14  
  6         181  
12 6     6   6586 use XML::SAX::Writer;
  6         139552  
  6         194  
13 6     6   61 use base 'XML::SAX::Writer';
  6         9  
  6         824  
14              
15             sub new {
16 0     0 1   my $self = shift;
17 0 0         my $opt = (@_ == 1) ? { %{shift()} } : {@_};
  0            
18 0           $opt->{Escape} = {};
19 0           return $self->SUPER::new($opt);
20             }
21              
22             1;
23              
24