Model + Config

Catalyst

http://blog.kzfmix.com/entry/1184850923

>cache_rootとかdefault_expiresを設定ファイルに追い出すことはできないのだろうか?

微妙だけど、こんな感じで一応設定に持てるかなぁ。動かしてないけど...

use MyApp;
use Cache::File;

use base qw/ Catalyst::Model::Net::Amazon /;

my $cache = Cache::File->new( 
                         cache_root        => MyApp->config->{amazon}{cache_root} ,
                         default_expires   => MyApp->config->{amazon}{default_expires} ,
                            );

amazon :
    cache_root : '/tmp/amazon_cache'
    default_expires : '30 min'