filterlist.perl

   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 }