avoid dead code in i_t1_glyph_names().
[imager.git] / DynTest / DynTest.pm
CommitLineData
92bda632
TC
1package Imager::Filter::DynTest;
2use strict;
3use Imager;
4use vars qw($VERSION @ISA);
5
6BEGIN {
a5919365 7 $VERSION = "0.02";
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;