File Coverage

blib/lib/XML/Elemental.pm
Criterion Covered Total %
statement 17 18 94.4
branch 1 2 50.0
condition 2 3 66.6
subroutine 5 5 100.0
pod 1 1 100.0
total 26 29 89.6


line stmt bran cond sub pod time code
1             package XML::Elemental;
2 3     3   82905 use strict;
  3         9  
  3         117  
3 3     3   19 use warnings;
  3         7  
  3         143  
4              
5 3     3   26 use vars qw($VERSION);
  3         6  
  3         293  
6             $VERSION = '2.11';
7              
8 3     3   6179 use XML::SAX;
  3         61970  
  3         531  
9              
10             sub parser {
11 3     3 1 43 my $handler;
12 3 50 66     27 if ($_[1] && ref($_[1]) ne 'HASH') {
13 0         0 $handler = $_[1];
14             }
15             else {
16 3         1402 require XML::Elemental::SAXHandler;
17 3         31 $handler = XML::Elemental::SAXHandler->new($_[1]);
18             }
19 3         37 XML::SAX::ParserFactory->parser(Handler => $handler);
20             }
21              
22             1;
23              
24             __END__