Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

executable file 13 lines (12 sloc) 0.414 kb
#!/usr/bin/perl
use strict;
use Imager;
print "Filter Arguments\n";
for my $filt (keys %Imager::filters) {
my @callseq=@{$Imager::filters{$filt}{'callseq'} || {}};
my %defaults=%{$Imager::filters{$filt}{'defaults'} || {}};
shift(@callseq);
my @b=map { exists($defaults{$_}) ? $_.'('.$defaults{$_}.')' : $_ } @callseq;
my $str=join(" ",@b);
printf("%-15s %s\n",$filt,$str );
}
Jump to Line
Something went wrong with that request. Please try again.