File Coverage

blib/lib/Image/ExifTool/Unknown.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             #------------------------------------------------------------------------------
2             # File: Unknown.pm
3             #
4             # Description: Unknown EXIF maker notes tags
5             #
6             # Revisions: 04/07/2004 - P. Harvey Created
7             #------------------------------------------------------------------------------
8              
9             package Image::ExifTool::Unknown;
10              
11 2     2   4346 use strict;
  2         5  
  2         69  
12 2     2   11 use vars qw($VERSION);
  2         4  
  2         80  
13 2     2   1291 use Image::ExifTool::Exif;
  2         13  
  2         325  
14              
15             $VERSION = '1.13';
16              
17             # Unknown maker notes
18             %Image::ExifTool::Unknown::Main = (
19             WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
20             CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
21             GROUPS => { 0 => 'MakerNotes', 1 => 'MakerUnknown', 2 => 'Camera' },
22              
23             # this seems to be a common fixture, so look for it in unknown maker notes
24             0x0e00 => {
25             Name => 'PrintIM',
26             Description => 'Print Image Matching',
27             SubDirectory => {
28             TagTable => 'Image::ExifTool::PrintIM::Main',
29             },
30             },
31             );
32              
33              
34             1; # end
35              
36             __END__