2006-08-07から1日間の記事一覧
use Data::Dumper; my @modules_info = (); MODULE_LOOP: for my $module_path (keys %INC) { $module_path =~ s/\.\w+$//; $module_path =~ s/\//::/g; # * CPAN モジュールじゃないものはここで省く next MODULE_LOOP if $module_path =~ /^MyApp/; my $mo…
use Data::Dumper; my @modules_info = (); MODULE_LOOP: for my $module_path (keys %INC) { $module_path =~ s/\.\w+$//; $module_path =~ s/\//::/g; # * CPAN モジュールじゃないものはここで省く next MODULE_LOOP if $module_path =~ /^MyApp/; my $mo…