Changes updates
[imager.git] / filterlist.perl
1 #!/usr/bin/perl 
2 use strict;
3 use Imager;
4 print "Filter          Arguments\n";
5 for my $filt (keys %Imager::filters) {
6     my @callseq=@{$Imager::filters{$filt}{'callseq'} || {}};
7     my %defaults=%{$Imager::filters{$filt}{'defaults'} || {}};
8     shift(@callseq);
9     my @b=map { exists($defaults{$_}) ? $_.'('.$defaults{$_}.')' : $_ } @callseq;
10     my $str=join(" ",@b);    
11     printf("%-15s %s\n",$filt,$str );
12 }