Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Adds more release examples.
  • Loading branch information
oalders committed Dec 11, 2016
1 parent 78c12ec commit 8715877
Show file tree
Hide file tree
Showing 4 changed files with 58 additions and 0 deletions.
12 changes: 12 additions & 0 deletions scripts/release/10-all-latest-releases.pl
@@ -0,0 +1,12 @@
use strict;
use warnings;
use feature qw( say );

use MetaCPAN::Client ();

my $mc = MetaCPAN::Client->new;
my $release_results = $mc->release( { status => 'latest' } );

while ( my $release = $release_results->next ) {
say $release->download_url;
}
14 changes: 14 additions & 0 deletions scripts/release/11-all-latest-releases-by-NEILB.pl
@@ -0,0 +1,14 @@
use strict;
use warnings;
use feature qw( say );

use MetaCPAN::Client ();

my $mc = MetaCPAN::Client->new;
my $release_results
= $mc->release(
{ all => [ { author => 'NEILB', }, { status => 'latest' } ] } );

while ( my $release = $release_results->next ) {
say $release->download_url;
}
@@ -0,0 +1,20 @@
use strict;
use warnings;
use feature qw( say );

use MetaCPAN::Client ();

my $mc = MetaCPAN::Client->new;
my $release_results = $mc->release(
{
all => [
{ author => 'NEILB', },
{ status => 'latest' },
{ 'resources.repository.type' => 'git' }
]
}
);

while ( my $release = $release_results->next ) {
say $release->resources->{repository}->{url};
}
12 changes: 12 additions & 0 deletions scripts/release/9-all-releases-excluding-backpan.pl
@@ -0,0 +1,12 @@
use strict;
use warnings;
use feature qw( say );

use MetaCPAN::Client ();

my $mc = MetaCPAN::Client->new;
my $release_results = $mc->release( { not => { status => 'backpan' } } );

while ( my $release = $release_results->next ) {
say $release->download_url;
}

0 comments on commit 8715877

Please sign in to comment.