Changeset 23391

Show
Ignore:
Timestamp:
11/12/08 19:37:17 (5 years ago)
Author:
tokuhirom
Message:

main に最終的にぶっこむんなら最初っから package main; でえーやん

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

Legend:

Unmodified
Added
Removed

  • lang/perl/MENTA/trunk/app/index.cgi

    r23388 r23391  
    2323}); 
    2424 
     25run_menta(); 
     26 
    2527# あなたのプログラム 
    2628sub do_index { 
    … …  
    3840} 
    3941 
    40 # おまじない 
    41 MENTA->run; 
    42  

  • lang/perl/MENTA/trunk/lib/MENTA.pm

    r23388 r23391  
    33use warnings; 
    44use utf8; 
    5 sub DEFAULT_MAX_POST_BODY () { 1_024_000 } 
    65 
    76our $FINISHED; 
    … …  
    1312    warnings->import; 
    1413    utf8->import; 
    15  
    16     MENTA->inject(); 
    1714} 
    1815 
    19 sub inject { 
    20     no strict 'refs'; 
    21     for my $meth (qw/render redirect finalize config/) { 
    22         *{"main::$meth"} = *{"MENTA::$meth"}; 
    23     } 
    24 } 
     16package main; 
     17 
     18sub DEFAULT_MAX_POST_BODY () { 1_024_000 } 
    2519 
    2620sub config { 
    … …  
    2822        my $config = @_ == 1 ? $_[0] : {@_}; 
    2923        $config->{menta}->{max_post_body} ||= DEFAULT_MAX_POST_BODY; 
    30         $CONFIG = $config; 
     24        $MENTA::CONFIG = $config; 
    3125    } 
    3226 
    33     $CONFIG 
     27    $MENTA::CONFIG; 
    3428} 
    3529 
    36 sub run { 
     30sub run_menta { 
    3731    eval { 
    3832        my $config = config(); 
    … …  
    5246            $input = $ENV{QUERY_STRING}; 
    5347        } 
    54         local $REQ = {}; 
    55         local $FINISHED = 0; 
     48        local $MENTA::REQ = {}; 
     49        local $MENTA::FINISHED = 0; 
    5650 
    5751        for ( split /&/, $input) { 
    … …  
    6155                $val =~ s/%([a-fA-F0-9]{2})/pack("H2", $1)/eg; 
    6256            } 
    63             $REQ->{$key} = $val; 
     57            $MENTA::REQ->{$key} = $val; 
    6458        } 
    6559 
    … …  
    7569            } 
    7670        } else { 
    77             my $mode = $REQ->{mode} || 'index'; 
     71            my $mode = $MENTA::REQ->{mode} || 'index'; 
    7872            my $meth = "do_$mode"; 
    7973            if (my $code = main->can($meth)) { 
    80                 $code->($REQ); 
    81                 unless ($FINISHED) { 
     74                $code->($MENTA::REQ); 
     75                unless ($MENTA::FINISHED) { 
    8276                    die "なにも出力してません"; 
    8377                } 

  • lang/perl/MENTA/trunk/src/menta.pl

    r23388 r23391  
    66### INCLUDE 'lib/MENTA.pm' ### 
    77 
    8 MENTA->inject; 
    9  
    108### INCLUDE 'app/index.cgi' ### 
    119