Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
executable file 13 lines (11 sloc) 376 Bytes
#!/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 );
}
Jump to Line
Something went wrong with that request. Please try again.