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 )