use Perl

• Load the modules in dependency order, too! (Score:1)

  by mugwumpjism (1871) on 2008.11.04 4:03 (#65718) Homepage Journal

  Problem with this approach is that you don't know when errors are raised which module raised them; it might have been a dependency of the ones which you loaded. Here's one I wrote recently;

  use Test::More qw(no_plan);
  
  use FindBin qw($Bin);
  use File::Find;
  
  my @modules;
  my %uses;
  
  finddepth(sub {
          m{^\w.*\.pm$} && do {
                  my $module = $File::Find::name;
                  $module =~ s{.*/lib.}{};
                  $module =~ s{[/\\]}{::}g;
                  $module =~ s{.pm$}{};
                  push @modules, $module;
                  open MODULE, "<", $_ or die "Failed to open ($_): $!";
                  while(<MODULE>) {
                          if (m{^use (\S+)}) {
                                  $uses{$module}{$1}++;
                          }
                          if (m{^(?:extends|with) (["'])?(\S+)\1}) {
                                  $uses{$module}{$2}++;
                          }
                  }
                  close MODULE;
          };
  }, "$Bin/../lib");
  
  my %done;
  while (@modules) {
          my (@winners) = grep {!$uses{$_} or !keys %{$uses{$_}}} @modules;
          if (!@winners) {
                  @winners = shift @modules;
          }
          for my $module (sort @winners) {
                  my @fail;
                  local($SIG{__WARN__}) = sub {
                          push @fail, join " ", @_;
                          warn "# oh look a warning: @_";
                  };
                  use_ok($module);
                  is (@fail, 0, "no warnings issued");
                  $done{$module}++;
                  delete $uses{$module};
                  delete $_->{$module} for values %uses;
          }
          @modules = grep { !$done{$_} } @modules;
  }

  Reply to This