Acme-CPANAuthors-AnyEvent

 view release on metacpan or  search on metacpan

ex/test.pl  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use lib::abs '../lib';
use Acme::CPANAuthors;

my $authors = Acme::CPANAuthors->new('AnyEvent');

print  'AnyEvent CPAN authors: ', $authors->count, "\n\n";
printf "%-20s %s\n", $_, $authors->name($_) for $authors->id;

print "\nAlso:\n";
print "Marc have distros: ", 0+$authors->distributions("MLEHMANN"),"\n";
print "Robin have avatar: ", $authors->avatar_url("ELMEX"),"\n";

script/generate.pl  view on Meta::CPAN

#!/usr/bin/env perl

use strict;

use CPANPLUS::Backend;

use lib::abs '../lib';
use Acme::CPANAuthors;
use Acme::CPANAuthors::AnyEvent;

my $authors = Acme::CPANAuthors->new('AnyEvent');
my %current = %$authors;
my $current = 0+keys %$authors;

my $cb = CPANPLUS::Backend->new();

my %dist;

t/00-load.t  view on Meta::CPAN

#!/usr/bin/env perl -w

use Test::More tests => 5;
use Test::NoWarnings;
use lib::abs "../lib";

BEGIN {
	use_ok('Acme::CPANAuthors::Register');
	use_ok('Acme::CPANAuthors');
	use_ok('Acme::CPANAuthors::AnyEvent');
}
ok + Acme::CPANAuthors->new('AnyEvent'), 'new';

diag( "Testing Acme::CPANAuthors::AnyEvent $Acme::CPANAuthors::AnyEvent::VERSION, Perl $], $^X" );

t/pod-coverage.t  view on Meta::CPAN

#!/usr/bin/env perl -w

use strict;
use Test::More;
use lib::abs "../lib";
BEGIN {
	my $lib = lib::abs::path( ".." );
	chdir $lib or plan skip_all => "Can't chdir to dist $lib";
}

$ENV{TEST_AUTHOR} or plan skip_all => '$ENV{TEST_AUTHOR} not set';
# Ensure a recent version of Test::Pod::Coverage
eval "use Test::Pod::Coverage 1.08; 1"
	or plan skip_all => "Test::Pod::Coverage 1.08 required for testing POD coverage";
eval "use Pod::Coverage 0.18; 1"

t/pod.t  view on Meta::CPAN

#!/usr/bin/env perl -w

use strict;
use Test::More;
use lib::abs "../lib";
BEGIN {
	my $lib = lib::abs::path( ".." );
	chdir $lib or plan skip_all => "Can't chdir to dist $lib";
}

# Ensure a recent version of Test::Pod
eval "use Test::Pod 1.22; 1"
	or plan skip_all => "Test::Pod 1.22 required for testing POD";

all_pod_files_ok();

xt/99-dist.t  view on Meta::CPAN

#!/usr/bin/perl

use lib::abs '../lib';
use Test::More;
use Test::If 'Test::Dist';
use Test::NoWarnings;
chdir lib::abs::path('..');

Test::Dist::dist_ok(
	'+' => 1,
	skip => [qw(prereq)],
	kwalitee => {
		req => [qw( has_separate_license_file has_example