File Coverage

blib/lib/KinoSearch1.pm
Criterion Covered Total %
statement 18 25 72.0
branch n/a
condition n/a
subroutine 6 8 75.0
pod 0 1 0.0
total 24 34 70.5


line stmt bran cond sub pod time code
1             package KinoSearch1;
2 51     51   125576 use strict;
  51         125  
  51         1795  
3 51     51   329 use warnings;
  51         93  
  51         1332  
4              
5 51     51   1449 use 5.008003;
  51         153  
  51         3095  
6              
7             our $VERSION = '1.01';
8              
9 51     51   268 use constant K_DEBUG => 0;
  51         111  
  51         4825  
10              
11 51     51   271 use XSLoader;
  51         107  
  51         2346  
12             # This loads a large number of disparate subs.
13             XSLoader::load( 'KinoSearch1', $VERSION );
14              
15 51     51   259 use base qw( Exporter );
  51         106  
  51         10930  
16             our @EXPORT_OK = qw( K_DEBUG kdump );
17              
18             sub kdump {
19 0     0 0   require Data::Dumper;
20 0           my $kdumper = Data::Dumper->new( [@_] );
21 0     0     $kdumper->Sortkeys( sub { return [ sort keys %{ $_[0] } ] } );
  0            
  0            
22 0           $kdumper->Indent(1);
23 0           warn $kdumper->Dump;
24             }
25              
26             1;
27              
28             __END__