[rt #71495] method index links now point at the method documentation
[imager.git] / DynTest / DynTest.pm
CommitLineData
92bda632
TC
1package Imager::Filter::DynTest;
2use strict;
3use Imager;
4use vars qw($VERSION @ISA);
5
6BEGIN {
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
21sub _lin_stretch {
22 my %hsh = @_;
23
24 lin_stretch($hsh{image}, $hsh{a}, $hsh{b});
25}
26
27Imager->register_filter(type=>'lin_stretch',
28 callsub => \&_lin_stretch,
29 defaults => { a => 0, b => 255 },
30 callseq => [ qw/image a b/ ]);
31
321;