Changeset 8034 for lang/perl/App-MadEye

Show
Ignore:
Timestamp:
03/17/08 16:40:00 (9 months ago)
Author:
tokuhirom
Message:

初期化は new の中でやったる。

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/App-MadEye/trunk/lib/App/MadEye.pm

    r8030 r8034  
    1212sub context { $context } 
    1313 
     14sub new { 
     15    my $class = shift; 
     16    my $self = $class->SUPER::new(@_); 
     17 
     18    $self->{results} = {}; 
     19    $context = $self; 
     20 
     21    $self; 
     22} 
     23 
    1424sub run { 
    1525    my $self = shift; 
    1626    $self->log(debug => 'run'); 
    17  
    18     $self->{results} = {}; 
    19  
    20     $context = $self; 
    2127 
    2228    unless (defined $self->class_component_methods->{'run_job'}) {