File Coverage

blib/lib/Image/ExifTool/GE.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             #------------------------------------------------------------------------------
2             # File: GE.pm
3             #
4             # Description: General Imaging maker notes tags
5             #
6             # Revisions: 2010-12-14 - P. Harvey Created
7             #------------------------------------------------------------------------------
8              
9             package Image::ExifTool::GE;
10              
11 5     5   4180 use strict;
  5         15  
  5         227  
12 5     5   31 use vars qw($VERSION);
  5         18  
  5         241  
13 5     5   43 use Image::ExifTool qw(:DataAccess :Utils);
  5         21  
  5         1356  
14 5     5   1360 use Image::ExifTool::Exif;
  5         17  
  5         838  
15              
16             $VERSION = '1.00';
17              
18             sub ProcessGE2($$$);
19              
20             # GE type 1 maker notes (ref PH)
21             # (similar to Kodak::Type11 and Ricoh::Type2)
22             %Image::ExifTool::GE::Main = (
23             WRITE_PROC => \&Image::ExifTool::Exif::WriteExif,
24             CHECK_PROC => \&Image::ExifTool::Exif::CheckExif,
25             WRITABLE => 1,
26             GROUPS => { 0 => 'MakerNotes', 2 => 'Camera' },
27             NOTES => q{
28             This table lists tags found in the maker notes of some General Imaging
29             camera models.
30             },
31             # 0x0104 - int32u
32             # 0x0200 - int32u[3] (with invalid offset of 0)
33             0x0202 => {
34             Name => 'Macro',
35             Writable => 'int16u',
36             PrintConv => { 0 => 'Off', 1 => 'On' },
37             },
38             # 0x0203 - int16u: 0
39             # 0x0204 - rational64u: 10/10
40             # 0x0205 - rational64u: 7.249,7.34,9.47 (changes with camera model)
41             # 0x0206 - int16u[6] (with invalid offset of 0)
42             0x0207 => {
43             Name => 'GEModel',
44             Format => 'string',
45             },
46             0x0300 => {
47             Name => 'GEMake',
48             Format => 'string',
49             },
50             # 0x0500 - int16u: 0
51             # 0x0600 - int32u: 0
52             );
53              
54             __END__