Acme-CPANAuthors-Malaysian

 view release on metacpan or  search on metacpan

README  view on Meta::CPAN

        my $authors = Acme::CPANAuthors->new('Malaysian');
    
        my $number   = $authors->count;
        my @ids      = $authors->id;
        my @distros  = $authors->distributions('KIANMENG');
        my $url      = $authors->avatar_url('KIANMENG');
        my $kwalitee = $authors->kwalitee('KIANMENG');

DESCRIPTION

    This module provides a list of Malaysian CPAN author's Pause ID mapped
    to name for Acme::CPANAuthors.

MAINTENANCE

    Send email, open a ticket, or make a pull request to add your own Pause
    ID and name.

REPOSITORY

    Source repository at

lib/Acme/CPANAuthors/Malaysian.pm  view on Meta::CPAN

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

    my $number   = $authors->count;
    my @ids      = $authors->id;
    my @distros  = $authors->distributions('KIANMENG');
    my $url      = $authors->avatar_url('KIANMENG');
    my $kwalitee = $authors->kwalitee('KIANMENG');

=head1 DESCRIPTION

This module provides a list of Malaysian CPAN author's Pause ID mapped to name
for L<Acme::CPANAuthors|Acme::CPANAuthors>.

=head1 MAINTENANCE

Send email, open a ticket, or make a pull request to add your own Pause ID and
name.

=head1 REPOSITORY

Source repository at L<https://github.com/kianmeng/acme-cpanauthors-malaysian|https://github.com/kianmeng/acme-cpanauthors-malaysian>.

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

use IO::Handle;

open my $stdin, '<', File::Spec->devnull or die "can't open devnull: $!";

my @warnings;
for my $lib (@module_files)
{
    # see L<perlfaq8/How can I capture STDERR from an external command?>
    my $stderr = IO::Handle->new;

    diag('Running: ', join(', ', map { my $str = $_; $str =~ s/'/\\'/g; q{'} . $str . q{'} }
            $^X, @switches, '-e', "require q[$lib]"))
        if $ENV{PERL_COMPILE_TEST_DEBUG};

    my $pid = open3($stdin, '>&STDERR', $stderr, $^X, @switches, '-e', "require q[$lib]");
    binmode $stderr, ':crlf' if $^O eq 'MSWin32';
    my @_warnings = <$stderr>;
    waitpid($pid, 0);
    is($?, 0, "$lib loaded ok");

    shift @_warnings if @_warnings and $_warnings[0] =~ /^Using .*\bblib/

t/000-report-versions.t  view on Meta::CPAN

    # Skip modules that either don't want to be loaded directly, such as
    # Module::Install, or that mess with the test count, such as the Test::*
    # modules listed here.
    #
    # Moose::Role conflicts if Moose is loaded as well, but Moose::Role is in
    # the Moose distribution and it's certain that someone who uses
    # Moose::Role also uses Moose somewhere, so if we disallow Moose::Role,
    # we'll still get the relevant version number.

    my %skip = map { $_ => 1 } qw(
      App::FatPacker
      Class::Accessor::Classy
      Devel::Cover
      Module::Install
      Moose::Role
      POE::Loop::Tk
      Template::Test
      Test::Kwalitee
      Test::Pod::Coverage
      Test::Portability::Files

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

use Test::Pod::Coverage 1.08;
use Test::More 0.88;

BEGIN {
    if ( $] <= 5.008008 ) {
        plan skip_all => 'These tests require Pod::Coverage::TrustPod, which only works with Perl 5.8.9+';
    }
}
use Pod::Coverage::TrustPod;

my %skip = map { $_ => 1 } qw(  );

my @modules;
for my $module ( all_modules() ) {
    next if $skip{$module};

    push @modules, $module;
}

plan skip_all => 'All the modules we found were excluded from POD coverage test.'
    unless @modules;