This file is indexed.

/usr/lib/perl5/Image/EXIF.pm is in libimage-exif-perl 2.01-1build1.

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
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
package Image::EXIF;

use 5.008;
use strict;
use warnings;

our $VERSION = '2.01';

use Carp ();

use XSLoader;
XSLoader::load(__PACKAGE__, $VERSION);

sub new {
    my ($class, $file_name) = @_;

    my $self = $class->_new_instance;

    $self->file_name("$file_name") if defined $file_name;

    return $self;
}

# These exist for compatibility with the historical API
sub error  { 0 }
sub errstr { undef }

sub file_name {
    my $self = shift;
    if (@_) {
        my $file_name = shift;
        Carp::croak("Image::EXIF file name undefined")
            if !defined $file_name;
        $self->_load_file("$file_name");
    }
    return $self->_file_name if defined wantarray;
}

sub get_all_info {
    my ($self) = @_;

    my %hash;
    for my $key (qw<camera image other unknown>) {
        my $method = "get_$key\_info";
        my $data = $self->$method or next;
        $hash{$key} = $data;
    }

    return %hash ? \%hash : undef;
}

sub DESTROY {
    my ($self) = @_;
    $self->_destroy_instance;
}

1;
__END__

=head1 NAME

Image::EXIF - Perl extension for exif library

=head1 SYNOPSIS

  use Image::EXIF;
  use Data::Dumper;

  my $exif = Image::EXIF->new($file_name);

  # or:
  my $exif = Image::EXIF->new;
  $exif->file_name($file_name);

  my $image_info = $exif->get_image_info(); # hash reference
  my $camera_info = $exif->get_camera_info(); # hash reference
  my $other_info = $exif->get_other_info(); # hash reference
  my $point_shoot_info = $exif->get_point_shoot_info(); # hash reference
  my $unknown_info = $exif->get_unknown_info(); # hash reference
  my $all_info = $exif->get_all_info(); # hash reference

  print Dumper($all_info);

=head1 DESCRIPTION

Perl package Image::EXIF based on exiftags by Eric M. Johnston:
L<http://johnst.org/sw/exiftags/>.

=head1 AUTHORS

=over 4

=item * Aaron Crane E<lt>arc@cpan.orgE<gt> (current maintainer)

=item * sergey s prozhogin E<lt>ccpro@rrelaxo.org.ruE<gt>

=back

=head1 REPORTING BUGS

Please report bugs at either of the following locations:

=over 4

=item *

L<https://rt.cpan.org/Public/Dist/Display.html?Name=Image-EXIF>

=item *

L<https://github.com/arc/p5-image-exif>

=back

=head1 SEE ALSO

L<exiftags>.

=cut