Flines/Flines.pm

   1 package Imager::Filter::Flines;
   2 use strict;
   3 use Imager;
   4 use vars qw($VERSION @ISA);
   5
   6 BEGIN {
   7   $VERSION = "0.02";
   8
   9   eval {
  10     require XSLoader;
  11     XSLoader::load('Imager::Filter::Flines', $VERSION);
  12     1;
  13   } or do {
  14     require DynaLoader;
  15     push @ISA, 'DynaLoader';
  16     bootstrap Imager::Filter::Flines $VERSION;
  17   };
  18 }
  19
  20 Imager->register_filter(type=>'flines',
  21                         callsub => sub { my %hsh = @_; flines($hsh{image}) },
  22                         defaults => {},
  23                         callseq => [ 'image' ] );
  24
  25 1;
  26
  27 __END__
  28
  29 =head1 NAME
  30
  31 Imager::Filter::Flines - dim alternate lines to emulate a video display
  32
  33 =head1 SYNOPSIS
  34
  35   use Imager;
  36   use Imager::Filter::Flines;
  37
  38   $img->filter(type=>'flines');
  39
  40 =head1 DESCRIPTION
  41
  42 This is an adaption of the C<flines> dynamically loadable filter
  43 provided in dynfilt/ in previous releases of Imager.
  44
  45 This filter has no parameters.
  46
  47 =head1 AUTHOR
  48
  49 Original by Arnar M. Hrafnkelsson.
  50
  51 Adapted by Tony Cook <tony@imager.perl.org>
  52
  53 =head1 SEE ALSO
  54
  55 Imager, Imager::Filters.
  56
  57 =cut