eliminate use vars
[imager.git] / DynTest / DynTest.pm
CommitLineData
92bda632 1package Imager::Filter::DynTest;
ee64a81f 2use 5.006;
92bda632
TC
3use strict;
4use Imager;
92bda632
TC
5
6BEGIN {
ee64a81f 7 our $VERSION = "0.03";
92bda632 8
a5919365
TC
9 require XSLoader;
10 XSLoader::load('Imager::Filter::DynTest', $VERSION);
92bda632
TC
11}
12
13
14sub _lin_stretch {
15 my %hsh = @_;
16
17 lin_stretch($hsh{image}, $hsh{a}, $hsh{b});
18}
19
20Imager->register_filter(type=>'lin_stretch',
21 callsub => \&_lin_stretch,
22 defaults => { a => 0, b => 255 },
23 callseq => [ qw/image a b/ ]);
24
251;