File Coverage

blib/lib/Imager/Filter/FishEye.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Imager::Filter::FishEye;
2 1     1   74799 use strict;
  1         2  
  1         29  
3 1     1   4 use warnings;
  1         2  
  1         92  
4 1     1   28 use 5.008001;
  1         8  
  1         55  
5              
6             BEGIN {
7 1     1   2 our $VERSION = "0.04";
8 1         4 require XSLoader;
9 1         641 XSLoader::load( 'Imager::Filter::FishEye', $VERSION );
10             }
11              
12             my %defaults = ( d => 40, r => -1 );
13              
14             Imager->register_filter(
15             type => 'fisheye',
16             callsub => sub { my %hsh = @_; __fisheye( $hsh{image}, $hsh{r}, $hsh{d} ) },
17             defaults => \%defaults,
18             callseq => ['image']
19             );
20              
21             1;
22             __END__