Font-TTF-Scripts
view release on metacpan or search on metacpan
scripts/ttfeval view on Meta::CPAN
{
my ($c, $m) = @{$_}; # $c is either 'm' or 'M'; $m is the module name plus any extra info user gave
$m =~ s/^\s+//o;
$m =~ s/\s+$//o;
my $res;
if ($m =~ /^(\S+)\s*=\s*(.*)$/o) # 'module=something'
{
eval "\$res = require $1; $1->import(split(/,/,'$2'));" ;
}
elsif ($m =~ /^(\S+)\s+(.*)$/o) # 'module something'
{
eval "\$res = require $1; $1->import($2);" ;
}
else # 'module'
{
eval "\$res = require $m; $m->import unless \$c eq 'm';" ;
}
die "Couldn't find module '$m'\n" unless $res;
}
# Open the font:
my ($f);
unless (defined $prog)
{
( run in 1.052 second using v1.01-cache-2.11-cpan-0d8aa00de5b )