view release on metacpan or  search on metacpan

lib/App/ExifUtils.pm  view on Meta::CPAN

            req => 1,
        },
    },
};
sub exifshow {
    require Image::ExifTool;

    my %args = @_;
    my $filename = $args{filename};

    return [404, "No such file '$filename'"] unless -f $filename;
    my $info = Image::ExifTool::ImageInfo($filename);
    [200, "OK", $info];
}

1;
# ABSTRACT: Utilities related to EXIF

__END__

=pod