File Coverage

blib/lib/Alien/Leptonica.pm
Criterion Covered Total %
statement 9 12 75.0
branch 0 2 0.0
condition n/a
subroutine 3 4 75.0
pod 0 1 0.0
total 12 19 63.1


line stmt bran cond sub pod time code
1             package Alien::Leptonica;
2             $Alien::Leptonica::VERSION = '0.006';
3 2     2   1995 use strict;
  2         5  
  2         92  
4 2     2   12 use warnings;
  2         4  
  2         81  
5              
6 2     2   2120 use parent qw(Alien::Base Exporter);
  2         707  
  2         13  
7             our @EXPORT_OK = qw(Inline);
8              
9             sub Inline {
10 0 0   0 0   return unless $_[-1] eq 'C'; # Inline's error message is good
11 0           my $self = __PACKAGE__->new;
12             +{
13 0           LIBS => $self->libs,
14             INC => $self->cflags,
15             AUTO_INCLUDE => '#include "allheaders.h"',
16             };
17             }
18              
19             1;
20              
21             =pod
22              
23             =encoding UTF-8
24              
25             =head1 NAME
26              
27             Alien::Leptonica - Alien package for the Leptonica image processing library
28              
29             =head1 VERSION
30              
31             version 0.006
32              
33             =head1 Inline support
34              
35             This module supports L.
36              
37             =head1 SEE ALSO
38              
39             L, L
40              
41             =head1 AUTHOR
42              
43             Zakariyya Mughal
44              
45             =head1 COPYRIGHT AND LICENSE
46              
47             This software is copyright (c) 2013 by Zakariyya Mughal.
48              
49             This is free software; you can redistribute it and/or modify it under
50             the same terms as the Perl 5 programming language system itself.
51              
52             =cut
53              
54             __END__