File Coverage

blib/lib/XML/Filter/XSLT.pm
Criterion Covered Total %
statement 11 12 91.6
branch 1 2 50.0
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 15 18 83.3


line stmt bran cond sub pod time code
1             # $Id: XSLT.pm,v 1.3 2002/02/25 13:09:38 matt Exp $
2              
3             package XML::Filter::XSLT;
4 2     2   29693 use strict;
  2         9  
  2         102  
5 2     2   11 use vars qw($VERSION);
  2         5  
  2         310  
6              
7             $VERSION = 0.03;
8              
9             sub new {
10 1     1 0 319 my $class = shift;
11             # try and load XSLT engines
12 1         2 eval {
13 1         789 require XML::Filter::XSLT::LibXSLT;
14             };
15 1 50       6 if (!$@) {
16 0         0 return XML::Filter::XSLT::LibXSLT->new(@_);
17             }
18              
19 1         311 die "No XSLT engines available";
20             }
21              
22             1;
23             __END__