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__ |