view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

    paths shown in the diff.
  - "exclude-regexes" option in the YAML config file
    (an array of regexes matched against source files)

1.04  Tue Mar 10 10:20 2009
  - Fix path correction brain fart.

1.03  Sun Mar  8 13:08 2009
  - Fix the path munging of the diffs.
  - Work around what seems to be a slight bug in CPAN.pm's
    expand("Distribution, ...) to make expansion of dev
    releases on CPAN work.

1.02  Sat Mar  7 19:32 2009
  - Default to using the current directory as distribution directory.

1.01  Sat Mar  7 18:34 2009
  - Support for base-paths in bleadperl

1.00  Fri Mar  6 19:45 2009
  - Initial baby steps.

lib/App/DualLivedDiff.pm  view on Meta::CPAN

}

# turn something that may look like a module or
# distribution into an URL using CPAN
sub module_or_dist_to_url {
  my $module_name = shift;
  #my $use_dev_versions = shift;

  my $distro;
  if ($module_name =~ /[\/.]/) {
    my $dist = CPAN::Shell->expandany($module_name);
    if (not defined $dist) {
      warn "Could not find distribution '$module_name' on CPAN\n";
      return();
    }
    $dist = $dist->distribution() if ref($dist) eq 'CPAN::Module';
    if (not ref($dist) eq 'CPAN::Distribution') {
      warn "Could not find distribution '$module_name' on CPAN\n";
      return();
    }
    $distro = $dist->pretty_id();
    warn "Assuming you specified a distribution name. Found the '$distro' distribution on CPAN\n";
  }
  else {
    my $module = CPAN::Shell->expand("Module", $module_name);
    if (not defined $module) {
      warn "Could not find module '$module_name' on CPAN\n";
      return();
    }
    $distro = $module->distribution()->pretty_id();
    warn "Assuming you specified a module name. Found the '$distro' distribution on CPAN\n";
  }

  $distro =~ /^([^\/]+)/ or die;
  $distro = substr($1, 0, 1) . "/" . substr($1, 0, 2) . "/" . $distro;