File Coverage

blib/lib/cmt/libchm.pm
Criterion Covered Total %
statement 18 29 62.0
branch 0 4 0.0
condition n/a
subroutine 6 8 75.0
pod n/a
total 24 41 58.5


line stmt bran cond sub pod time code
1             package cmt::libchm;
2              
3 1     1   26840 use 5.008;
  1         3  
  1         41  
4 1     1   7 use strict;
  1         2  
  1         37  
5 1     1   5 use warnings;
  1         7  
  1         40  
6 1     1   6 use Carp;
  1         1  
  1         125  
7              
8             require Exporter;
9 1     1   1079 use AutoLoader;
  1         2085  
  1         6  
10              
11             our @ISA = qw(Exporter);
12              
13             our @EXPORT = qw(
14             CHM_COMPRESSED
15             CHM_ENUMERATE_ALL
16             CHM_ENUMERATE_DIRS
17             CHM_ENUMERATE_FILES
18             CHM_ENUMERATE_META
19             CHM_ENUMERATE_NORMAL
20             CHM_ENUMERATE_SPECIAL
21             CHM_ENUMERATOR_CONTINUE
22             CHM_ENUMERATOR_FAILURE
23             CHM_ENUMERATOR_SUCCESS
24             CHM_MAX_PATHLEN
25             CHM_PARAM_MAX_BLOCKS_CACHED
26             CHM_RESOLVE_FAILURE
27             CHM_RESOLVE_SUCCESS
28             CHM_UNCOMPRESSED
29            
30             chm_open
31             chm_close
32             chm_set_param
33             chm_resolve_object
34             chm_retrieve_object
35             chm_enumerate
36             chm_enumerate_dir
37            
38             dumpUnitInfo
39             getUnitInfo
40             );
41              
42             our %EXPORT_TAGS = ( 'all' => [ @EXPORT ] );
43              
44             our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
45              
46             our $VERSION = '0.01';
47              
48             sub AUTOLOAD {
49 0     0     my $constname;
50 0           our $AUTOLOAD;
51 0           ($constname = $AUTOLOAD) =~ s/.*:://;
52 0 0         croak "&cmt::libchm::constant not defined" if $constname eq 'constant';
53 0           my ($error, $val) = constant($constname);
54 0 0         if ($error) { croak $error; }
  0            
55             {
56 1     1   204 no strict 'refs';
  1         2  
  1         98  
  0            
57 0     0     *$AUTOLOAD = sub { $val };
  0            
58             }
59 0           goto &$AUTOLOAD;
60             }
61              
62             require XSLoader;
63             XSLoader::load('cmt::libchm', $VERSION);
64              
65              
66              
67             1;
68             __END__