/usr/share/perl5/Image/MetaData/JPEG/dumpers/dumpers.pl is in libimage-metadata-jpeg-perl 0.153-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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;
|