- some sub-directory tests depended on files produced by the parent
[imager.git] / 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;