Yet Another CPAN Grep

Module-Build-JSAN ( D/DW/DWHEELER/Module-Build-JSAN-0.05.tar.gz, DWHEELER, 2009; MetaCPAN )

Module-Build-JSAN/lib/Module/Build/JSAN.pm ( view source; MetaCPAN )

:Basename qw(dirname);

sub new {
    my $pkg = shift;
    my %p = @_;
    $p{metafile} ||= 'META.json';
    if (my $keywords = delete $p{keywords} || delete $p{tags}) {
        if ($p{meta_merge}) {

ake_tarball($dist_dir);
    $self->delete_filetree($dist_dir);


#    $self->add_to_cleanup('META.json');
#    $self->add_to_cleanup('*.gz');
}

sub ACTION_manifest {
    my $self = shift;
    $self->

re('JSON_support')) {
        require JSON;
        $self->prepare_metadata( my $node = {} );
        open my $meta, '>', $metafile or die "Cannot open '$metafile': $!\n";
        print $meta JSON->ne