Upload page content

You can upload content for the page named below. If you change the page name, you can also upload content for another page. If the page name is empty, we derive the page name from the file name.

File to load page content from
Page name
Comment

    PaulHowarth/Blog/2012-04-18

Wednesday 18th April 2012

Fedora Project

  • Raised Bug #813698 requesting that the Test::Mouse module be split into a sub-package from perl-Mouse so as to avoid the latter package having a dependency on perl(Test::Builder), a development package

Local Packages

  • New package perl-MetaCPAN-API (0.43)

  • I built this package to use in a new version of my upstream monitoring script for perl module releases, since pulling data from http://search.cpan.org/ seems to be getting less reliable; whilst developing the new script, I came across a few inconsistencies:

    • Algorithm-Diff-XS 0.04 cites a version: 0.01 rather than 0.04 in its META.yml (CPAN RT#76654)

    • Crypt-RSA 1.99 cites a version: 1.97 rather than 1.99 in its META.yml (CPAN RT#76655)

    • IO-Capture 0.05 cites a version: 0.04 rather than 0.05 in its META.yml (CPAN RT#76656)

    • PlRPC 0.2020 cites a version: 0.2018 rather than 0.2020 in its META.yml (CPAN RT#76657)

    • Spiffy 0.30 cites a version: 0.25 rather than 0.30 in its META.yml (CPAN RT#19865)

    • According to MetaCPAN, the "latest" release of Class-MOP is 0.36 rather than 1.12 (MetaCPAN Issue #550)

    • common-sense doesn't show up on MetaCPAN, and neither do grepmail or weblint (MetaCPAN Issue #548)

  • Retrieving the "latest" version of a module from MetaCPAN was easy; finding the latest development version was harder, but I came up with this: 
  • use MetaCPAN::API;

my $distro = 'Archive-Tar'; # for example

my $dist = $mcpan->release(
    search => {
        q => "distribution:$distro AND maturity:developer",
        fields => "name,version,status,maturity,date",
        sort => 'date:desc',
        size => 1,
    },
);
my $hits = $dist->{'hits'}->{'hits'};
my ($best_hit, $devel_meta_version, $devel_name_version, $devel_date);
if (scalar @{ $hits }) {
    $best_hit = shift( $hits )->{'fields'};
    $devel_meta_version = $best_hit->{'version'};
    $devel_name_version = version_from_name($distro, $best_hit->{'name'});
    $devel_date = $best_hit->{'date'};
}

Recent