correct an old bug link
[imager.git] / JPEG / JPEG.pm
1 package Imager::File::JPEG;
2 use 5.006;
3 use strict;
4 use Imager;
5
6 BEGIN {
7   our $VERSION = "0.94";
8
9   require XSLoader;
10   XSLoader::load('Imager::File::JPEG', $VERSION);
11 }
12
13 Imager->register_reader
14   (
15    type=>'jpeg',
16    single =>
17    sub { 
18      my ($im, $io, %hsh) = @_;
19
20      ($im->{IMG},$im->{IPTCRAW}) = i_readjpeg_wiol( $io );
21
22      unless ($im->{IMG}) {
23        $im->_set_error(Imager->_error_as_msg);
24        return;
25      }
26      return $im;
27    },
28   );
29
30 Imager->register_writer
31   (
32    type=>'jpeg',
33    single => 
34    sub { 
35      my ($im, $io, %hsh) = @_;
36
37      $im->_set_opts(\%hsh, "i_", $im);
38      $im->_set_opts(\%hsh, "jpeg_", $im);
39      $im->_set_opts(\%hsh, "exif_", $im);
40
41      my $quality = $hsh{jpegquality};
42      defined $quality or $quality = 75;
43
44      if ( !i_writejpeg_wiol($im->{IMG}, $io, $quality)) {
45        $im->_set_error(Imager->_error_as_msg);
46        return;
47      }
48
49      return $im;
50    },
51   );
52
53 __END__
54
55 =head1 NAME
56
57 Imager::File::JPEG - read and write JPEG files
58
59 =head1 SYNOPSIS
60
61   use Imager;
62
63   my $img = Imager->new;
64   $img->read(file=>"foo.jpg")
65     or die $img->errstr;
66
67   $img->write(file => "foo.jpg")
68     or die $img->errstr;
69
70 =head1 DESCRIPTION
71
72 Imager's JPEG support is documented in L<Imager::Files>.
73
74 =head1 AUTHOR
75
76 Tony Cook <tonyc@cpan.org>
77
78 =head1 SEE ALSO
79
80 Imager, Imager::Files.
81
82 =cut