unknownplace.org

package MyProvider;
use base qw/Template::Provider/;

sub _load {
    my ($data, $error) = shift->SUPER::_load(@_);

    if ($data && $data->{text}) {
        $data->{text} =~ s/(\[%[ ]+INCLUDE[ ]+["'])(.+)(["'].*?%\])/$1common:$2$3/;
    }

    ($data, $error);
}

とかいう適当なProviderをつくってcommon側はこれを指定したら動いた。け、ど、だせえええええ。

• テストコード: http://unknownplace.org/tmp/template/

パッケージ化するかなぁ。

ダサいのでもっとうまい方法でやりたいんだけど。