File Coverage

blib/lib/XML/LibXML/Devel.pm
Criterion Covered Total %
statement 20 20 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 27 27 100.0


line stmt bran cond sub pod time code
1             # $Id: $
2             # This is free software, you may use it and distribute it under the same terms as
3             # Perl itself.
4             #
5             # Copyright 2011 Joachim Zobel
6             #
7             package XML::LibXML::Devel;
8              
9 1     1   476 use strict;
  1         3  
  1         31  
10 1     1   5 use warnings;
  1         2  
  1         24  
11              
12 1     1   5 use XML::LibXML;
  1         2  
  1         5  
13              
14 1     1   7 use vars qw ($VERSION);
  1         2  
  1         63  
15             $VERSION = "2.0209"; # VERSION TEMPLATE: DO NOT CHANGE
16              
17 1     1   30 use 5.008_000;
  1         3  
18              
19 1     1   482 use parent qw(Exporter);
  1         283  
  1         6  
20              
21 1     1   61 use vars qw( @EXPORT @EXPORT_OK %EXPORT_TAGS );
  1         2  
  1         103  
22              
23             # This allows declaration use XML::LibXML::Devel ':all';
24             # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
25             # will save memory.
26             our %EXPORT_TAGS = ( 'all' => [ qw(
27             node_to_perl
28             node_from_perl
29             refcnt_inc
30             refcnt_dec
31             refcnt
32             fix_owner
33             mem_used
34             ) ] );
35              
36             our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
37              
38             # Preloaded methods go here.
39              
40             1;
41             __END__