Imager::Filter::FishEye - fisheye filter for Imager

Imager-Filter-FishEye documentation Contained in the Imager-Filter-FishEye distribution.

Index

Code Index:

NAME

Top

Imager::Filter::FishEye - fisheye filter for Imager

SYNOPSIS

Top

    use Imager;
    use Imager::Filter::FishEye;
    my $img = Imager->new;
    $img->filter(type => 'fisheye');

DESCRIPTION

Top

Imager::Filter::FishEye is fisheye filter for Imager.

AUTHOR

Top

Tokuhiro Matsuno <tokuhirom@gmail.com>

SEE ALSO

Top

Imager

LICENSE

Top

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Imager-Filter-FishEye documentation Contained in the Imager-Filter-FishEye distribution. 
package Imager::Filter::FishEye;
use strict;
use warnings;
use 5.008001;

BEGIN {
    our $VERSION = "0.04";
    require XSLoader;
    XSLoader::load( 'Imager::Filter::FishEye', $VERSION );
}

my %defaults = ( d => 40, r => -1 );

Imager->register_filter(
    type     => 'fisheye',
    callsub  => sub { my %hsh = @_; __fisheye( $hsh{image}, $hsh{r}, $hsh{d} ) },
    defaults => \%defaults,
    callseq  => ['image']
);

1;
__END__