view release on metacpan or  search on metacpan

dirdim  view on Meta::CPAN

use Cwd qw [ getcwd ] ;
use App::dirdim ; # $App::dirdim::VERSIONを利用するため。開発中は、既にインストール済みのものを使ってしまうので、意図しにくい動作になるだろう。
use File::Find qw[ find ] ; 
use File::Spec::Functions qw[ catfile splitdir ] ; 
use Getopt::Std ; 
use List::Util qw[ minstr maxstr all any max ] ;
use Term::ANSIColor qw [ :constants ] ; ${Term::ANSIColor::AUTORESET} = 1 ; 
use Time::HiRes qw[gettimeofday tv_interval] ; 

my $time_start ;# = [ gettimeofday ] ; 
BEGIN { $time_start = [ gettimeofday ] }; # BEGIN UNITCHECK CHECK INIT  # 動作時間の測定をできるだけ正確にするためBEGINで囲んだ。
my $I = catfile '', '' ; # OS毎に異なる可能性のある、ファイルパスの区切り文字を取得。 

getopts '.:adv' , \my%o ; 
$o{'.'} //= ''  ;
@ARGV = ( "." ) unless @ARGV  ; # & HELP_MESSAGE unless @ARGV ; 
my ($y,$z) = (0,0) ; # 結果的に処理対象となったものと、そうでないもの
& measure_simple ; 
exit 0 ; 

sub measure_simple {