[imager.git] / filterlist.perl

#!/usr/bin/perl 

use Imager;
print "Filter          Arguments\n";
for $filt (keys %Imager::filters) {
    @callseq=@{$Imager::filters{$filt}{'callseq'}};
    %defaults=%{$Imager::filters{$filt}{'defaults'}};
    shift(@callseq);
    @b=map { exists($defaults{$_}) ? $_.'('.$defaults{$_}.')' : $_ } @callseq;
    $str=join(" ",@b);    
    printf("%-15s %s\n",$filt,$str );
}
Commit	Line	Data
02d1d628 AMH	1	#!/usr/bin/perl
	2
	3	use Imager;
	4	print "Filter Arguments\n";
	5	for $filt (keys %Imager::filters) {
	6	@callseq=@{$Imager::filters{$filt}{'callseq'}};
	7	%defaults=%{$Imager::filters{$filt}{'defaults'}};
	8	shift(@callseq);
	9	@b=map { exists($defaults{$_}) ? $_.'('.$defaults{$_}.')' : $_ } @callseq;
	10	$str=join(" ",@b);
	11	printf("%-15s %s\n",$filt,$str );
	12	}