File Coverage

blib/lib/XML/Quote.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package XML::Quote;
2             # $Version: release/perl/base/XML-Quote/Quote.pm,v 1.6 2003/01/31 09:03:57 godegisel Exp $
3              
4 1     1   30872 use strict;
  1         3  
  1         50  
5 1     1   8 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
  1         2  
  1         203  
6              
7             require Exporter;
8             require DynaLoader;
9             require AutoLoader;
10              
11             @ISA = qw(Exporter DynaLoader);
12             @EXPORT = qw(
13             xml_quote
14             xml_dequote
15             );
16             @EXPORT_OK = qw(
17             xml_quote
18             xml_dequote
19             xml_quote_min
20             );
21             %EXPORT_TAGS = (
22             all => [qw(
23             xml_quote
24             xml_dequote
25             xml_quote_min
26             )],
27             );
28             $VERSION = '1.02';
29              
30             bootstrap XML::Quote $VERSION;
31              
32             1;
33             __END__