public

tobyink / perl-popcon.pl

Created 2013-03-14

use v5.10;
use strict;
use warnings;
 
use aliased "Path::Tiny" => "Path";
use aliased "Path::Iterator::Rule";
use aliased "JSON";
 
my @dists;
 
my $rule = Rule->new->file->name(".packlist");
 
for my $inc (@INC)
{
	my $auto = Path->new($inc)->child("auto");
	my $iter = $rule->iter($auto);
	while (my $f = $iter->())
	{
		my $file = Path->new($f);
		
		my $dist = $file->relative($auto);
		next unless $dist =~ s{.\.packlist$}{};
		$dist =~ s{/}{-}g;
		
		push @dists, $dist;
	}
}
 
print JSON->new->pretty(1)->canonical(1)->encode({
	distributions => [sort @dists],
	perl_version  => "$^V",
	platform      => "$^O",
});