1 package Imager::File::JPEG;
4 use vars qw($VERSION @ISA);
10 XSLoader::load('Imager::File::JPEG', $VERSION);
13 Imager->register_reader
18 my ($im, $io, %hsh) = @_;
20 ($im->{IMG},$im->{IPTCRAW}) = i_readjpeg_wiol( $io );
23 $im->_set_error(Imager->_error_as_msg);
30 Imager->register_writer
35 my ($im, $io, %hsh) = @_;
37 $im->_set_opts(\%hsh, "i_", $im);
38 $im->_set_opts(\%hsh, "jpeg_", $im);
39 $im->_set_opts(\%hsh, "exif_", $im);
41 my $quality = $hsh{jpegquality};
42 defined $quality or $quality = 75;
44 if ( !i_writejpeg_wiol($im->{IMG}, $io, $quality)) {
45 $im->_set_error(Imager->_error_as_msg);
57 Imager::File::JPEG - read and write JPEG files
63 my $img = Imager->new;
64 $img->read(file=>"foo.jpg")
67 $img->write(file => "foo.jpg")
72 Imager's JPEG support is documented in L<Imager::Files>.
76 Tony Cook <tonyc@cpan.org>
80 Imager, Imager::Files.