File Coverage

blib/lib/Acme/SList/XSLT.pm
Criterion Covered Total %
statement 6 10 60.0
branch n/a
condition n/a
subroutine 2 6 33.3
pod n/a
total 8 16 50.0


line stmt bran cond sub pod time code
1             package Acme::SList::XSLT;
2             $Acme::SList::XSLT::VERSION = '0.04';
3 1     1   820 use strict;
  1         2  
  1         40  
4 1     1   4 use warnings;
  1         2  
  1         149  
5              
6             my ($mod_xslt, $mod_xml);
7              
8             eval{
9             require XML::LibXSLT;
10             $mod_xslt = 'XML::LibXSLT';
11             $mod_xml = 'XML::LibXML';
12             };
13             if ($@) {
14             require Win32::MinXSLT;
15             $mod_xslt = 'Win32::MinXSLT';
16             $mod_xml = 'Win32::MinXML';
17             }
18              
19 0     0     sub module { $mod_xslt; }
20              
21 0     0     sub new { $mod_xslt->new; }
22              
23             package Acme::SList::XML;
24             $Acme::SList::XML::VERSION = '0.04';
25 0     0     sub module { $mod_xml; }
26              
27 0     0     sub new { $mod_xml->new; }
28              
29             1;
30              
31             __END__