File Coverage

blib/lib/Image/ValidJpeg.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Image::ValidJpeg;
2              
3 3     3   77060 use 5.006002;
  3         12  
  3         120  
4 3     3   17 use strict;
  3         5  
  3         104  
5 3     3   24 use warnings;
  3         10  
  3         99  
6 3     3   15 use Carp;
  3         6  
  3         750  
7              
8             require Exporter;
9              
10             our $VERSION = '1.002001';
11              
12             our @ISA = qw(Exporter);
13              
14             # Items to export into callers namespace by default. Note: do not export
15             # names by default without a very good reason. Use EXPORT_OK instead.
16             # Do not simply export all your public functions/methods/constants.
17              
18             # This allows declaration use Image::ValidJpeg ':all';
19             # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
20             # will save memory.
21             our %EXPORT_TAGS = (
22             all => [ qw(
23             check_tail
24             check_jpeg
25             check_all
26             GOOD
27             BAD
28             SHORT
29             EXTRA
30             ) ],
31              
32             constants => [ qw(
33             GOOD
34             BAD
35             SHORT
36             EXTRA
37             ) ],
38              
39             );
40              
41             our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
42              
43             our @EXPORT;
44              
45              
46             require XSLoader;
47             XSLoader::load('Image::ValidJpeg', $VERSION);
48              
49             __END__