Tangerine->import

Perl Tangerine

ちょっと手を入れてみたり。

$class->mk_classdata(
    _alias => {
        map { lc($_) => $class->_config->val('Alias', $_) }
            $class->_config->Parameters('Alias')
    }
);

foreach my $opt (qw/only except/) {
    if ($arg{$opt}) {
        if (ref $arg{$opt} eq 'ARRAY') {
            $class->mk_classdata("_$opt" => [ map { qr/$_/ } @{ $arg{$opt} } ]);
        }
        else { croak "arg '$opt' must be ARRAYref." }
    }
}

下はほぼ同じコードが2つ続いていたので、foreachでループにしてしまいました。このほうがすっきり。上のは、名前付きの変数を経由するのをやめて、直に渡すようにしたんだけど、これは元のほうがよかったかもしれない。