Changeset 8033 for lang/perl/App-MadEye

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

使ってない関数を削除

Files:
1 modified

Legend:

Unmodified
Added
Removed

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

    r8023 r8033  
    2626} 
    2727 
    28 sub log_stopwatch ($&) {    ## no critic. 
    29     my ( $msg, $code ) = @_; 
    30  
    31     my $start = time; 
    32     $code->(); 
    33     my $end = time; 
    34  
    35     my $time = $end - $start; 
    36  
    37     openlog 'MadEye', 'cons', 'local6'; 
    38     syslog 'info', sprintf( $msg, $time ); 
    39     closelog; 
    40 } 
    41  
    4228sub get_schema_from_pod { 
    4329    my $target = shift;