と、自虐はこの辺にしといて、そろそろまともにMooseなモジュールを組んでみたくて、やらかしました。MooseでAutouseしたかったんです。use HogeFugaとかいちいち書くのダルくなっただけですが。
こんな感じでの使い方を想定しています。
MyClass.pm
package MyClass;
use Moose;
with 'MooseX::Autouse';
no Moose;
1;
__END__
myscript.cgi
use MyClass;
use Data::Dumper;
my $c = MyClass->new;
my $dbi = $c->DBI->connect( qw( dbi:mysql:mydb:mydbhost user pass ) );
my $cgi = $c->CGI->new;
print $cgi->header( 'text/html' );
print '<html><body><pre>'. Dumper( $dbi ). '</pre></body></html>';
今改めて見直すと、本当にただMoose使いたかっただけなんだなあって思えますね＞＜
0 件のコメント:
コメントを投稿