File: filterlist.perl

package info (click to toggle)
libimager-perl 1.005%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 6,308 kB
  • ctags: 4,067
  • sloc: perl: 30,915; ansic: 27,680; makefile: 55; cpp: 4
file content (12 lines) | stat: -rwxr-xr-x 414 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
 
#!/usr/bin/perl 
use strict;
use Imager;
print "Filter          Arguments\n";
for my $filt (keys %Imager::filters) {
    my @callseq=@{$Imager::filters{$filt}{'callseq'} || {}};
    my %defaults=%{$Imager::filters{$filt}{'defaults'} || {}};
    shift(@callseq);
    my @b=map { exists($defaults{$_}) ? $_.'('.$defaults{$_}.')' : $_ } @callseq;
    my $str=join(" ",@b);    
    printf("%-15s %s\n",$filt,$str );
}