view release on metacpan or  search on metacpan

scripts/lastaccess  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 }  # <- here?


package ff ;

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