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
|
package Imager::File::JPEG;
use 5.006;
use strict;
use Imager;
BEGIN {
our $VERSION = "0.94";
require XSLoader;
XSLoader::load('Imager::File::JPEG', $VERSION);
}
Imager->register_reader
(
type=>'jpeg',
single =>
sub {
my ($im, $io, %hsh) = @_;
($im->{IMG},$im->{IPTCRAW}) = i_readjpeg_wiol( $io );
unless ($im->{IMG}) {
$im->_set_error(Imager->_error_as_msg);
return;
}
return $im;
},
);
Imager->register_writer
(
type=>'jpeg',
single =>
sub {
my ($im, $io, %hsh) = @_;
$im->_set_opts(\%hsh, "i_", $im);
$im->_set_opts(\%hsh, "jpeg_", $im);
$im->_set_opts(\%hsh, "exif_", $im);
my $quality = $hsh{jpegquality};
defined $quality or $quality = 75;
if ( !i_writejpeg_wiol($im->{IMG}, $io, $quality)) {
$im->_set_error(Imager->_error_as_msg);
return;
}
return $im;
},
);
__END__
=head1 NAME
Imager::File::JPEG - read and write JPEG files
=head1 SYNOPSIS
use Imager;
my $img = Imager->new;
$img->read(file=>"foo.jpg")
or die $img->errstr;
$img->write(file => "foo.jpg")
or die $img->errstr;
=head1 DESCRIPTION
Imager's JPEG support is documented in L<Imager::Files>.
=head1 AUTHOR
Tony Cook <tonyc@cpan.org>
=head1 SEE ALSO
Imager, Imager::Files.
=cut
|
