File Coverage

/root/.cpan/build/Imager-1.017-0/blib/lib/Imager/File/SGI.pm

Criterion	Covered	Total	%
statement	11	11	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	15	15	100.0

package Imager::File::SGI;
use 5.006;
use strict;
use Imager;

BEGIN {
  our $VERSION = "0.05";

  require XSLoader;
  XSLoader::load('Imager::File::SGI', $VERSION);
}

Imager->register_reader
  (
   type=>'sgi',
   single =>
   sub {
     my ($im, $io, %hsh) = @_;
     $im->{IMG} = i_readsgi_wiol($io, $hsh{page} || 0);

     unless ($im->{IMG}) {
       $im->_set_error(Imager->_error_as_msg);
       return;
     }
     return $im;
   },
  );

Imager->register_writer
  (
   type=>'sgi',
   single =>
   sub {
     my ($im, $io, %hsh) = @_;

     $im->_set_opts(\%hsh, "i_", $im);
     $im->_set_opts(\%hsh, "sgi_", $im);

     unless (i_writesgi_wiol($io, $im->{IMG})) {
       $im->_set_error(Imager->_error_as_msg);
       return;
     }
     return $im;
   },
  );

__END__