view release on metacpan or  search on metacpan

lasttouch  view on Meta::CPAN

    say join "\t" , @t ;
    $shown ++ ; 
    $mrec0 = $mrec ; 
  }
  my $num = @ Files ; 
  my $elps = sprintf "%.6f" , tv_interval $start_time ; 
  say STDERR CYAN "Files processed : $num ; Shown above : $shown ;  Elapsed seconds : $elps" ;
}

sub HELP_MESSAGE { # <-- - サブコマンドが呼ばれているときはそのヘルプが呼ばれる。
  local @ARGV = do { my ($x,@y) = 0 ; 1 while ( @y = caller $x++ )[ 0 ] eq "Getopt::Std" ; $y[1] } ;
  Pod::Perldoc -> run ;
}
sub VERSION_MESSAGE { $ Getopt::Std::STANDARD_HELP_VERSION = 1 } ; 


package App::lasttouch::fileinfo ;

sub new ( $ ) { #say 1 ;
  my $ins = { name => $_[1] , xtime => $_[2] , bytes => $_[3] } ; 
  return bless $ins ;