1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
###########################################################
# A Perl package for showing/modifying JPEG (meta)data. #
# Copyright (C) 2004,2005,2006 Stefano Bettelli #
# See the COPYING and LICENSE files for license terms. #
###########################################################
package Image::MetaData::JPEG::Segment;
no integer;
use strict;
use warnings;
###########################################################
# GENERAL NOTICE: in general, all methods included by #
# this file correspond to methods in parsers.pl, i.e., #
# each dump_* method corresponds to parse_* (with the #
# same *, I mean :-). See these methods for further #
# details. Only non-trivial comments will be added here. #
###########################################################
###########################################################
# Dumping a comment block is very easy, because it con- #
# tains only one plain ASCII record. #
###########################################################
sub dump_com {
my ($this) = @_;
# write the only record into the data area
$this->set_data($this->search_record_value('Comment'));
# return without errors
return undef;
}
###########################################################
# Require all other segment-specific dumpers. #
###########################################################
#require 'Image/MetaData/JPEG/dumpers/app0.pl';
require 'Image/MetaData/JPEG/dumpers/app1.pl';
#require 'Image/MetaData/JPEG/dumpers/app2.pl';
#require 'Image/MetaData/JPEG/dumpers/app3.pl';
#require 'Image/MetaData/JPEG/dumpers/app12.pl';
require 'Image/MetaData/JPEG/dumpers/app13.pl';
#require 'Image/MetaData/JPEG/dumpers/app14.pl';
#require 'Image/MetaData/JPEG/dumpers/image.pl';
# successful package load
1;
|
