File Coverage

blib/lib/Judy.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package Judy;
2              
3 12     12   67 use strict;
  12         25  
  12         709  
4 12     12   65 use warnings;
  12         25  
  12         488  
5 12     12   121 use vars qw( $VERSION @ISA );
  12         20  
  12         4102  
6              
7             $VERSION = '0.41';
8              
9             require Alien::Judy;
10             my $av_version = Alien::Judy->VERSION;
11             if ( $av_version < 0.18 ) {
12             die "Alien::Judy version 0.18 required--this is only version $av_version";
13             }
14             Alien::Judy::dl_load_libjudy();
15              
16             # Now load the Perl wrapper over libJudy
17             local @ISA = 'DynaLoader';
18             __PACKAGE__->bootstrap;
19              
20             require Sub::Exporter;
21             Sub::Exporter->import(
22             -setup => {
23             exports => [qw[ PJERR JLAP_INVALID ]]
24             }
25             );
26              
27             # Load the OO interfaces.
28             #
29             require Judy::_obj;
30              
31             # Load the tie interface.
32             #
33             require Judy::_tie;
34             Judy::_tie->import;
35              
36             # Load the functional interfaces.
37             require Judy::Mem::_impl;
38             require Judy::1::_impl;
39             require Judy::L::_impl;
40             require Judy::SL::_impl;
41             require Judy::HS::_impl;
42              
43             1;