Changeset 24427 for lang

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

perlinfo を高速化。

Location:
lang/perl/MENTA/trunk
Files:
3 added
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/MENTA/trunk/app/controller/perlinfo.mt

    r24395 r24427  
    11? use English 
     2? load_plugin('bundle') 
    23? use Module::CoreList 
    34<!doctype html> 
    … …  
    3435    <h2>MENTA標準添付モジュール</h2> 
    3536    <table> 
    36 ? no strict 'refs' 
    37 ? use UNIVERSAL::require 
    38 ? for my $mod (sort { $a cmp $b } qw/JSON 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::MobileAgent HTML::TreeBuilder::XPath  Carp::Always Params::Validate HTML::StickyQuery::DoCoMoGUID UNIVERSAL::require Class::Trigger Text::Markdown HTTP::Session Filter::SQL/) { 
    39 ?   $mod->require or die $@ 
    40     <tr><th><?= $mod ?></th><td><?= ${"${mod}::VERSION"} ?></td> 
     37? my @vers = bundle_libs(); 
     38? while (my ($key, $val) = splice(@vers, 0, 2)) { 
     39    <tr><th><?= $key ?></th><td><?= $val ?></td> 
    4140? } 
    4241    </table>