DynTest/DynTest.pm

   1 package Imager::Filter::DynTest;
   2 use strict;
   3 use Imager;
   4 use vars qw($VERSION @ISA);
   5
   6 BEGIN {
   7   $VERSION = "0.01";
   8
   9   eval {
  10     require XSLoader;
  11     XSLoader::load('Imager::Filter::DynTest', $VERSION);
  12     1;
  13   } or do {
  14     require DynaLoader;
  15     push @ISA, 'DynaLoader';
  16     bootstrap Imager::Filter::DynTest $VERSION;
  17   };
  18 }
  19
  20
  21 sub _lin_stretch {
  22   my %hsh = @_;
  23
  24   lin_stretch($hsh{image}, $hsh{a}, $hsh{b});
  25 }
  26
  27 Imager->register_filter(type=>'lin_stretch',
  28                         callsub => \&_lin_stretch,
  29                         defaults => { a => 0, b => 255 },
  30                         callseq => [ qw/image a b/ ]);
  31
  32 1;