use non-deprecated encoding ids for freetype 2
[imager.git] / filterlist.perl
CommitLineData
02d1d628 1#!/usr/bin/perl
d75a4e19 2use strict;
02d1d628
AMH
3use Imager;
4print "Filter Arguments\n";
d75a4e19
TC
5for my $filt (keys %Imager::filters) {
6 my @callseq=@{$Imager::filters{$filt}{'callseq'} || {}};
7 my %defaults=%{$Imager::filters{$filt}{'defaults'} || {}};
02d1d628 8 shift(@callseq);
d75a4e19
TC
9 my @b=map { exists($defaults{$_}) ? $_.'('.$defaults{$_}.')' : $_ } @callseq;
10 my $str=join(" ",@b);
02d1d628
AMH
11 printf("%-15s %s\n",$filt,$str );
12}