view release on metacpan or  search on metacpan

bin/cmddirs  view on Meta::CPAN

      my $command = $self->{'command'};
      my $topDir = $self->{'topDir'};
  
      my @dirs = @{$self->{'dirs'}};
      foreach my $dir (@dirs) {
          next if ! -d $dir;
          next if ! $self->test($dir);
  
          # Tell the user what command is going to be run
          unless ($quiet) {
              print color 'bold green';
              print "Performing `$command` in <$dir>\n";
              print color 'reset';
          }
  
          # Descend into the directory & run the command
          chdir $dir;
          system("$command");
          chdir $topDir;
  
          print "\n";

lib/App/CmdDirs/Traverser/Base.pm  view on Meta::CPAN

    my $command = $self->{'command'};
    my $topDir = $self->{'topDir'};

    my @dirs = @{$self->{'dirs'}};
    foreach my $dir (@dirs) {
        next if ! -d $dir;
        next if ! $self->test($dir);

        # Tell the user what command is going to be run
        unless ($quiet) {
            print color 'bold green';
            print "Performing `$command` in <$dir>\n";
            print color 'reset';
        }

        # Descend into the directory & run the command
        chdir $dir;
        system("$command");
        chdir $topDir;

        print "\n";