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'} || {}};
9 my @b=map { exists($defaults{$_}) ? $_.'('.$defaults{$_}.')' : $_ } @callseq;
11 printf("%-15s %s\n",$filt,$str );