Show
Ignore:
Timestamp:
11/19/08 13:46:19 (5 years ago)
Author:
tokuhirom
Message:

added Class::Trigger

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/perl/MENTA/trunk/app/controller/perlinfo.mt

    r24206 r24232  
    3636? no strict 'refs' 
    3737? use UNIVERSAL::require 
    38 ? for my $mod (sort { $a cmp $b } qw/DateTime CGI::Simple Scalar::Util List::MoreUtils Path::Class URI Class::Accessor HTML::FillInForm Text::Hatena Data::Page HTML::TreeBuilder Text::CSV YAML Email::Send Email::MIME HTTP::MobileAttribute HTML::TreeBuilder::XPath  Carp::Always Params::Validate HTML::StickyQuery::DoCoMoGUID HTTP::Server::Simple UNIVERSAL::require/) { 
     38? for my $mod (sort { $a cmp $b } qw/DateTime CGI::Simple Scalar::Util List::MoreUtils Path::Class URI Class::Accessor HTML::FillInForm Text::Hatena Data::Page HTML::TreeBuilder Text::CSV YAML Email::Send Email::MIME HTTP::MobileAttribute HTML::TreeBuilder::XPath  Carp::Always Params::Validate HTML::StickyQuery::DoCoMoGUID HTTP::Server::Simple UNIVERSAL::require Class::Trigger/) { 
    3939?   $mod->require or die $@ 
    4040    <tr><th><?= $mod ?></th><td><?= ${"${mod}::VERSION"} ?></td>