• Your recent searches
Acme-CPANAuthors-Czech
17 results

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN 

 - Update copyright years.

0.26 2020-03-10T12:52:38+01:00
 - Add SARFY CPAN account.

0.25 2020-02-29T09:05:05+01:00
 - Update README.

0.24 2020-02-28T20:40:33+01:00
 - Add VARISD CPAN account.
 - Update author github username.
 - Update author name.

0.23 2020-02-28T20:30:57+01:00
 - Add HOLCAPEK CPAN account.
 - Update POD to my standard.
 - Update .travis.yml to reality.
 - Update Module::Install to 1.19 version.
 - Update copyright years.
 - Update my name.

0.22 2016-10-05T07:40:15+02:00

Changes  view on Meta::CPAN 


0.21 2016-09-26T22:09:00+02:00
 - Add name for CHOROBA :-)
 - Fix minimal Perl version check.
 - Update copyright years.

0.20 2015-12-21T12:44:11+01:00
 - Add DOUGLISH CPAN account.

0.19 2015-09-21T22:12:06+02:00
 - Move author tests to xt/ directory.

0.18 2015-08-25T00:53:50+02:00
 - Add TYNOVSKY CPAN account.
 - Update Module::Install to 1.16 version.

0.17 2015-02-12T19:02:23+01:00
 - Add MICHALS CPAN account.
 - Add YENYA CPAN account.
 - Add ZABA CPAN account.

Czech.pm  view on Meta::CPAN 

1;

__END__

=pod

=encoding utf8

=head1 NAME

Acme::CPANAuthors::Czech - We are Czech CPAN authors.

=head1 SYNOPSIS

 use Acme::CPANAuthors;

 my $authors = Acme::CPANAuthors->new('Czech');
 my $url = $authors->avatar_url('TRIPIE');
 my $number = $authors->count;
 my @distors = $authors->distributions('JANPAZ');
 my @ids = $authors->id;
 my $kwalitee = $authors->kwalitee('RUS');
 my $name = $authors->name('CHOROBA');

=head1 DESCRIPTION
 
See documentation for L<Acme::CPANAuthors> for more details.

=head1 EXAMPLE1

=for comment filename=count_of_czech_cpan_authors.pl

 use strict;
 use warnings;

 use Acme::CPANAuthors;

 # Create object.
 my $authors = Acme::CPANAuthors->new('Czech');

 # Get number of Czech CPAN authors.
 my $count = $authors->count;

 # Print out.
 print "Count of Czech CPAN authors: $count\n";

 # Output:
 # Count of Czech CPAN authors: 50

=head1 EXAMPLE2

=for comment filename=list_of_czech_cpan_author_nicks.pl

 use strict;
 use warnings;

 use Acme::CPANAuthors;
 use Data::Printer;

 # Create object.
 my $authors = Acme::CPANAuthors->new('Czech');

 # Get all ids.
 my @ids = $authors->id;

 # Print out.
 p @ids;

 # Output:
 # [
 #     [0]  "ATG",
 #     [1]  "BULB",
 #     [2]  "CHOROBA",
 #     [3]  "CONTYK",

MANIFEST  view on Meta::CPAN 

Changes
Czech.pm
examples/count_of_czech_cpan_authors.pl
examples/list_of_czech_cpan_author_nicks.pl
inc/Module/Install.pm
inc/Module/Install/AuthorRequires.pm
inc/Module/Install/AuthorTests.pm
inc/Module/Install/Base.pm
inc/Module/Install/Can.pm
inc/Module/Install/Fetch.pm
inc/Module/Install/Makefile.pm
inc/Module/Install/Metadata.pm
inc/Module/Install/ReadmeFromPod.pm
inc/Module/Install/Win32.pm
inc/Module/Install/WriteAll.pm
LICENSE
Makefile.PL
MANIFEST			This list of files
META.yml
README
SIGNATURE
t/Acme-CPANAuthors-Czech/01-use.t
t/Acme-CPANAuthors-Czech/02-version.t
t/Acme-CPANAuthors-Czech/03-new.t
t/Acme-CPANAuthors-Czech/04-authors.t
t/Acme-CPANAuthors-Czech/05-count.t
t/Acme-CPANAuthors-Czech/06-id.t
xt/Acme-CPANAuthors-Czech/01-pod_coverage.t
xt/Acme-CPANAuthors-Czech/02-pod.t

META.yml  view on Meta::CPAN 

---
abstract: 'We are Czech CPAN authors.'
author:
  - 'Michal Josef Spacek <skim@cpan.org>'
build_requires:
  ExtUtils::MakeMaker: 6.59
  Test::More: 0
  Test::NoWarnings: 0
configure_requires:
  ExtUtils::MakeMaker: 6.59
distribution_type: module
dynamic_config: 1
generated_by: 'Module::Install version 1.21'

Makefile.PL  view on Meta::CPAN 

use lib '.';
use strict;
use warnings;

use inc::Module::Install;

# Definition.
abstract 'We are Czech CPAN authors.';
author 'Michal Josef Spacek <skim@cpan.org>';
author_requires 'English' => 0;
author_requires 'File::Object' => 0.05;
author_requires 'Test::Pod' => 0;
author_requires 'Test::Pod::Coverage' => 0;
license 'bsd';
name 'Acme-CPANAuthors-Czech';
perl_version 5.0100;
readme_from 'Czech.pm';
recursive_author_tests('xt');
requires 'Acme::CPANAuthors' => 0;
resources 'bugtracker' => 'https://github.com/michal-josef-spacek/Acme-CPANAuthors-Czech/issues';
resources 'homepage' => 'https://github.com/michal-josef-spacek/Acme-CPANAuthors-Czech';
resources 'repository' => 'git://github.com/michal-josef-spacek/Acme-CPANAuthors-Czech';
test_requires 'Test::NoWarnings' => 0;
test_requires 'Test::More' => 0;
tests_recursive;
version '0.32';

# Run.

README  view on Meta::CPAN 

NAME
    Acme::CPANAuthors::Czech - We are Czech CPAN authors.

SYNOPSIS
     use Acme::CPANAuthors;

     my $authors = Acme::CPANAuthors->new('Czech');
     my $url = $authors->avatar_url('TRIPIE');
     my $number = $authors->count;
     my @distors = $authors->distributions('JANPAZ');
     my @ids = $authors->id;
     my $kwalitee = $authors->kwalitee('RUS');
     my $name = $authors->name('CHOROBA');

DESCRIPTION
    See documentation for Acme::CPANAuthors for more details.

EXAMPLE1
     use strict;
     use warnings;

     use Acme::CPANAuthors;

     # Create object.
     my $authors = Acme::CPANAuthors->new('Czech');

     # Get number of Czech CPAN authors.
     my $count = $authors->count;

     # Print out.
     print "Count of Czech CPAN authors: $count\n";

     # Output:
     # Count of Czech CPAN authors: 50

EXAMPLE2
     use strict;
     use warnings;

     use Acme::CPANAuthors;
     use Data::Printer;

     # Create object.
     my $authors = Acme::CPANAuthors->new('Czech');

     # Get all ids.
     my @ids = $authors->id;

     # Print out.
     p @ids;

     # Output:
     # [
     #     [0]  "ATG",
     #     [1]  "BULB",
     #     [2]  "CHOROBA",
     #     [3]  "CONTYK",

SIGNATURE  view on Meta::CPAN 

-----BEGIN PGP SIGNED MESSAGE-----
Hash: RIPEMD160

SHA256 6f597e67dfaece0c5e0cacab9189428b35ef5103faff22c0a651a3c5f560434d Changes
SHA256 bdcb42d4fbefffb764cfda3216dc6b2b1527ca99bd26fe2e52aef7c34d70b505 Czech.pm
SHA256 718fdf88d74ab65f3d5c522d1d4621322a6821bbb3c92cb7c3d3f1bf4b4ffe8e LICENSE
SHA256 73545a60569a80cb87beb00dc5fe75fc3318d51816158a1fb8d89181ff094bd8 MANIFEST
SHA256 048bfe0433c56ef397d4ca4c2537098f1a58282ea912aa5ecec1340d2d93478b META.yml
SHA256 2ac1eccdd43d7ce1f731c35ec60cf3feaee4ccbc85f6563e2d738b2986bb2571 Makefile.PL
SHA256 3e5c87734e735b493de50c26598f6ec3f3c465dfe6d55d3070360625415cc19c README
SHA256 7426aa732e6dbc7a003dfb5c847bba2c54f2c8c291672092f71902e6c04726f8 examples/count_of_czech_cpan_authors.pl
SHA256 fea4712f6803313ff9080a9dbb2f046499064f7fb7d13c7e995d452742d46859 examples/list_of_czech_cpan_author_nicks.pl
SHA256 cd5397bbe618f5bbd4e12a33b0cf5d21114e771c2dbd0ce28e2135beb52c35a8 inc/Module/Install.pm
SHA256 8bd506c33fb78f10f6451413e931ca23541fcc4eebe05fcb7c7c9577341223c4 inc/Module/Install/AuthorRequires.pm
SHA256 1b5430a46a35142ef8914d8c745196fca825defc9dfa7e389299bf294613825e inc/Module/Install/AuthorTests.pm
SHA256 798836f9ccb8d204b1be31fc3835631f57e9d818b21a8f0d14bfcfb82ff4a72a inc/Module/Install/Base.pm
SHA256 d64cd4c16f83c5baf11f64a44bea3a0abc060a49da5aba040f0eb01394bf75ab inc/Module/Install/Can.pm
SHA256 65d7a6098bf3f829e8c1c2865476d3537aa6f0ad0ffc9149e10812c856529043 inc/Module/Install/Fetch.pm
SHA256 70c4b77acab3ff51dfb318110369607cb109e1c319459249623b787cf3859750 inc/Module/Install/Makefile.pm
SHA256 14556386168007ce913e669fc08a332ccdb6140246fd55a90c879b5190c1b57a inc/Module/Install/Metadata.pm
SHA256 53825bc78e4c910b888160bc148c8bc211be58e02b99c8edcbf4854f95faa049 inc/Module/Install/ReadmeFromPod.pm
SHA256 4c746c02c5cc19bed4c352e76205b4adff4c45ce8310d71294e1b83c059659c2 inc/Module/Install/Win32.pm
SHA256 d3d9b4583243c470ae895defa4c44564485b53693cba1c50ab0320768f443e97 inc/Module/Install/WriteAll.pm
SHA256 c8ef17aa699abb12b971799df692771102746244bf46548d9ba804f03f674f3f t/Acme-CPANAuthors-Czech/01-use.t
SHA256 7bb719882b3b1d6e1ad9130c10a545890b943dd40e0aa77897d2e5cd6df9131c t/Acme-CPANAuthors-Czech/02-version.t
SHA256 a7cd4f8182f7dd9513360ee0e0d0e8fbada4d5b76e821ae54aea74fd5bf55b67 t/Acme-CPANAuthors-Czech/03-new.t
SHA256 92d4b06d94bfba85adbdfad2f28bd415cc036e3b00e1a10527c6d29054bb4846 t/Acme-CPANAuthors-Czech/04-authors.t
SHA256 0a29b9417002357d4fb5bef5988e99e82edee882a2d150a799010ea48655f63a t/Acme-CPANAuthors-Czech/05-count.t
SHA256 e66abcfdeb8fd4ced6345118789052615c561177c6cb2d14296b919eff2bd584 t/Acme-CPANAuthors-Czech/06-id.t
SHA256 a8e6519aa9e117a90084981dd3f58874191597e2a6fad8b3e09f1b865d3a4e5f xt/Acme-CPANAuthors-Czech/01-pod_coverage.t
SHA256 cd9237952bb9447e03cf094b9f334ffef937816d6171834a41840d78256963b2 xt/Acme-CPANAuthors-Czech/02-pod.t
-----BEGIN PGP SIGNATURE-----

iQGzBAEBAwAdFiEE7CqvgROezncwcOKionze/HtIOPAFAmgvLJgACgkQonze/HtI
OPCCdgv/S372F+HTBVrhPdDRsUy772FTd3+jYLpsaS6iBlvUgURT5Tq5gkSMKt6F
KpTd7olCL+wixdJt74woGLWYNRmcHEfzK3wYgrE13nEFs1f7CdgRtPMAuoNkyyf7
4U/xWertdtBXAb3o3Siq42JNd/kpofwSsYmlR3JkpE3n+9DlEgk6i2P7ac0mn5Kx

examples/count_of_czech_cpan_authors.pl  view on Meta::CPAN 

#!/usr/bin/env perl

use strict;
use warnings;

use Acme::CPANAuthors;

# Create object.
my $authors = Acme::CPANAuthors->new('Czech');

# Get number of Czech CPAN authors.
my $count = $authors->count;

# Print out.
print "Count of Czech CPAN authors: $count\n";

# Output:
# Count of Czech CPAN authors: 50

examples/list_of_czech_cpan_author_nicks.pl  view on Meta::CPAN 

#!/usr/bin/env perl

use strict;
use warnings;

use Acme::CPANAuthors;
use Data::Printer;

# Create object.
my $authors = Acme::CPANAuthors->new('Czech');

# Get all ids.
my @ids = $authors->id;

# Print out.
p @ids;

# Output:
# [
#     [0]  "ATG",
#     [1]  "BULB",
#     [2]  "CHOROBA",
#     [3]  "CONTYK",

inc/Module/Install.pm  view on Meta::CPAN 

#line 1
package Module::Install;

# For any maintainers:
# The load order for Module::Install is a bit magic.
# It goes something like this...
#
# IF ( host has Module::Install installed, creating author mode ) {
#     1. Makefile.PL calls "use inc::Module::Install"
#     2. $INC{inc/Module/Install.pm} set to installed version of inc::Module::Install
#     3. The installed version of inc::Module::Install loads
#     4. inc::Module::Install calls "require Module::Install"
#     5. The ./inc/ version of Module::Install loads
# } ELSE {
#     1. Makefile.PL calls "use inc::Module::Install"
#     2. $INC{inc/Module/Install.pm} set to ./inc/ version of Module::Install
#     3. The ./inc/ version of Module::Install loads
# }

inc/Module/Install.pm  view on Meta::CPAN 


	#-------------------------------------------------------------

	unless ( -f $self->{file} ) {
		foreach my $key (keys %INC) {
			delete $INC{$key} if $key =~ /Module\/Install/;
		}

		local $^W;
		require "$self->{path}/$self->{dispatch}.pm";
		File::Path::mkpath("$self->{prefix}/$self->{author}");
		$self->{admin} = "$self->{name}::$self->{dispatch}"->new( _top => $self );
		$self->{admin}->init;
		@_ = ($class, _self => $self);
		goto &{"$self->{name}::import"};
	}

	local $^W;
	*{"${who}::AUTOLOAD"} = $self->autoload;
	$self->preload;

inc/Module/Install.pm  view on Meta::CPAN 

			# via $$sym (usually $main::AUTOLOAD) in this case.
			# I'm still wondering if we should slurp Makefile.PL to
			# get some context or not ...
			my ($package, $file, $line) = caller;
			die <<"EOT";
Unknown function is found at $file line $line.
Execution of $file aborted due to runtime errors.

If you're a contributor to a project, you may need to install
some Module::Install extensions from CPAN (or other repository).
If you're a user of a module, please contact the author.
EOT
		}
		my $method = $1;
		if ( uc($method) eq $method ) {
			# Do nothing
			return;
		} elsif ( $method =~ /^_/ and $self->can($method) ) {
			# Dispatch to the root M:I class
			return $self->$method(@_);
		}

inc/Module/Install.pm  view on Meta::CPAN 

	my $base_path = Cwd::abs_path($FindBin::Bin);
	unless ( Cwd::abs_path(Cwd::getcwd()) eq $base_path ) {
		delete $args{prefix};
	}
	return $args{_self} if $args{_self};

	$base_path = VMS::Filespec::unixify($base_path) if $^O eq 'VMS';

	$args{dispatch} ||= 'Admin';
	$args{prefix}   ||= 'inc';
	$args{author}   ||= ($^O eq 'VMS' ? '_author' : '.author');
	$args{bundle}   ||= 'inc/BUNDLES';
	$args{base}     ||= $base_path;
	$class =~ s/^\Q$args{prefix}\E:://;
	$args{name}     ||= $class;
	$args{version}  ||= $class->VERSION;
	unless ( $args{path} ) {
		$args{path}  = $args{name};
		$args{path}  =~ s!::!/!g;
	}
	$args{file}     ||= "$args{base}/$args{prefix}/$args{path}.pm";

inc/Module/Install/AuthorRequires.pm  view on Meta::CPAN 

package Module::Install::AuthorRequires;

use base 'Module::Install::Base';

# cargo cult
BEGIN {
    our $VERSION = '0.02';
    our $ISCORE  = 1;
}

sub author_requires {
    my $self = shift;

    return $self->{values}->{author_requires}
        unless @_;

    my @added;
    while (@_) {
        my $mod = shift or last;
        my $version = shift || 0;
        push @added, [$mod => $version];
    }

    push @{ $self->{values}->{author_requires} }, @added;
    $self->admin->author_requires(@added);

    return map { @$_ } @added;
}

1;

__END__

#line 92

inc/Module/Install/AuthorTests.pm  view on Meta::CPAN 


use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
  $VERSION = '0.002';
  $ISCORE  = 1;
  @ISA     = qw{Module::Install::Base};
}

#line 42

sub author_tests {
  my ($self, @dirs) = @_;
  _add_author_tests($self, \@dirs, 0);
}

#line 56

sub recursive_author_tests {
  my ($self, @dirs) = @_;
  _add_author_tests($self, \@dirs, 1);
}

sub _wanted {
  my $href = shift;
  sub { /\.t$/ and -f $_ and $href->{$File::Find::dir} = 1 }
}

sub _add_author_tests {
  my ($self, $dirs, $recurse) = @_;
  return unless $Module::Install::AUTHOR;

  my @tests = $self->tests ? (split / /, $self->tests) : 't/*.t';

  # XXX: pick a default, later -- rjbs, 2008-02-24
  my @dirs = @$dirs ? @$dirs : Carp::confess "no dirs given to author_tests";
     @dirs = grep { -d } @dirs;

  if ($recurse) {
    require File::Find;
    my %test_dir;
    File::Find::find(_wanted(\%test_dir), @dirs);
    $self->tests( join ' ', @tests, map { "$_/*.t" } sort keys %test_dir );
  } else {
    $self->tests( join ' ', @tests, map { "$_/*.t" } sort @dirs );
  }

inc/Module/Install/Makefile.pm  view on Meta::CPAN 

		eval "use $perl_version; 1"
			or die "ERROR: perl: Version $] is installed, "
			. "but we need version >= $perl_version";
	}

	# Make sure we have a new enough MakeMaker
	require ExtUtils::MakeMaker;

	if ( $perl_version and $self->_cmp($perl_version, '5.006') >= 0 ) {
		# This previous attempted to inherit the version of
		# ExtUtils::MakeMaker in use by the module author, but this
		# was found to be untenable as some authors build releases
		# using future dev versions of EU:MM that nobody else has.
		# Instead, #toolchain suggests we use 6.59 which is the most
		# stable version on CPAN at time of writing and is, to quote
		# ribasushi, "not terminally fucked, > and tested enough".
		# TODO: We will now need to maintain this over time to push
		# the version up as new versions are released.
		$self->build_requires(     'ExtUtils::MakeMaker' => 6.59 );
		$self->configure_requires( 'ExtUtils::MakeMaker' => 6.59 );
	} else {
		# Allow legacy-compatibility with 5.005 by depending on the

inc/Module/Install/Makefile.pm  view on Meta::CPAN 

    } elsif ( $Module::Install::ExtraTests::use_extratests ) {
        # Module::Install::ExtraTests doesn't set $self->tests and does its own tests via harness.
        # So, just ignore our xt tests here.
	} elsif ( -d 'xt' and ($Module::Install::AUTHOR or $ENV{RELEASE_TESTING}) ) {
		$args->{test} = {
			TESTS => join( ' ', map { "$_/*.t" } grep { -d $_ } qw{ t xt } ),
		};
	}
	if ( $] >= 5.005 ) {
		$args->{ABSTRACT} = $self->abstract;
		$args->{AUTHOR}   = join ', ', @{$self->author || []};
	}
	if ( $self->makemaker(6.10) ) {
		$args->{NO_META}   = 1;
		#$args->{NO_MYMETA} = 1;
	}
	if ( $self->makemaker(6.17) and $self->sign ) {
		$args->{SIGN} = 1;
	}
	unless ( $self->is_admin ) {
		delete $args->{SIGN};

inc/Module/Install/Metadata.pm  view on Meta::CPAN 

};

my @resource_keys = qw{
	homepage
	bugtracker
	repository
};

my @array_keys = qw{
	keywords
	author
};

*authors = \&author;

sub Meta              { shift          }
sub Meta_BooleanKeys  { @boolean_keys  }
sub Meta_ScalarKeys   { @scalar_keys   }
sub Meta_TupleKeys    { @tuple_keys    }
sub Meta_ResourceKeys { @resource_keys }
sub Meta_ArrayKeys    { @array_keys    }

foreach my $key ( @boolean_keys ) {
	*$key = sub {

inc/Module/Install/Metadata.pm  view on Meta::CPAN 

	# Some methods pull from POD instead of code.
	# If there is a matching .pod, use that instead
	my $pod = $file;
	$pod =~ s/\.pm$/.pod/i;
	$pod = $file unless -e $pod;

	# Pull the different values
	$self->name_from($file)         unless $self->name;
	$self->version_from($file)      unless $self->version;
	$self->perl_version_from($file) unless $self->perl_version;
	$self->author_from($pod)        unless @{$self->author || []};
	$self->license_from($pod)       unless $self->license;
	$self->abstract_from($pod)      unless $self->abstract;

	return 1;
}

sub provides {
	my $self     = shift;
	my $provides = ( $self->{values}->{provides} ||= {} );
	%$provides = (%$provides, @_) if @_;

inc/Module/Install/Metadata.pm  view on Meta::CPAN 

	my $self = shift;
	my $perl_version=_extract_perl_version(Module::Install::_read($_[0]));
	if ($perl_version) {
		$self->perl_version($perl_version);
	} else {
		warn "Cannot determine perl version info from $_[0]\n";
		return;
	}
}

sub author_from {
	my $self    = shift;
	my $content = Module::Install::_read($_[0]);
	if ($content =~ m/
		=head \d \s+ (?:authors?)\b \s*
		([^\n]*)
		|
		=head \d \s+ (?:licen[cs]e|licensing|copyright|legal)\b \s*
		.*? copyright .*? \d\d\d[\d.]+ \s* (?:\bby\b)? \s*
		([^\n]*)
	/ixms) {
		my $author = $1 || $2;

		# XXX: ugly but should work anyway...
		if (eval "require Pod::Escapes; 1") {
			# Pod::Escapes has a mapping table.
			# It's in core of perl >= 5.9.3, and should be installed
			# as one of the Pod::Simple's prereqs, which is a prereq
			# of Pod::Text 3.x (see also below).
			$author =~ s{ E<( (\d+) | ([A-Za-z]+) )> }
			{
				defined $2
				? chr($2)
				: defined $Pod::Escapes::Name2character_number{$1}
				? chr($Pod::Escapes::Name2character_number{$1})
				: do {
					warn "Unknown escape: E<$1>";
					"E<$1>";
				};
			}gex;
		}
		elsif (eval "require Pod::Text; 1" && $Pod::Text::VERSION < 3) {
			# Pod::Text < 3.0 has yet another mapping table,
			# though the table name of 2.x and 1.x are different.
			# (1.x is in core of Perl < 5.6, 2.x is in core of
			# Perl < 5.9.3)
			my $mapping = ($Pod::Text::VERSION < 2)
				? \%Pod::Text::HTML_Escapes
				: \%Pod::Text::ESCAPES;
			$author =~ s{ E<( (\d+) | ([A-Za-z]+) )> }
			{
				defined $2
				? chr($2)
				: defined $mapping->{$1}
				? $mapping->{$1}
				: do {
					warn "Unknown escape: E<$1>";
					"E<$1>";
				};
			}gex;
		}
		else {
			$author =~ s{E<lt>}{<}g;
			$author =~ s{E<gt>}{>}g;
		}
		$self->author($author);
	} else {
		warn "Cannot determine author info from $_[0]\n";
	}
}

#Stolen from M::B
my %license_urls = (
    perl         => 'http://dev.perl.org/licenses/',
    apache       => 'http://apache.org/licenses/LICENSE-2.0',
    artistic     => 'http://opensource.org/licenses/artistic-license.php',
    lgpl         => 'http://opensource.org/licenses/lgpl-license.php',
    bsd          => 'http://opensource.org/licenses/bsd-license.php',

t/Acme-CPANAuthors-Czech/04-authors.t  view on Meta::CPAN 

use strict;
use utf8;
use warnings;

use Acme::CPANAuthors::Czech;
use Test::More 'tests' => 2;
use Test::NoWarnings;

# Test.
my %ret = Acme::CPANAuthors::Czech->authors;
my %right_ret = (
	'ATG' => 'Ondřej Vostal',
	'BULB' => 'Jan Hudec',
	'CHOROBA' => 'E. Choroba',
	'CONTYK' => 'Petr Å abata',
	'DANIELR' => 'Roman Daniel',
	'DANPEDER' => 'Daniel Peder',
	'DOUGLISH' => 'Dalibor Hořínek',
	'DPOKORNY' => 'Dan Pokorny',
	'HIHIK' => 'Jiří Václavík',

t/Acme-CPANAuthors-Czech/04-authors.t  view on Meta::CPAN 

	'VARISD' => 'Dušan Variš',
	'VASEKD' => 'Václav Dovrtěl',
	'YENYA' => 'Jan "Yenya" Kasprzak',
	'ZABA' => 'Zdeněk Žabokrtský',
	'ZEMAN' => 'Dan Zeman',
	'ZOUL' => 'Tomáš Znamenáček',
);
is_deeply(
	\%ret,
	\%right_ret,
	'Czech CPAN authors.',
);

t/Acme-CPANAuthors-Czech/05-count.t  view on Meta::CPAN 

use strict;
use warnings;

use Acme::CPANAuthors;
use Test::More 'tests' => 2;
use Test::NoWarnings;

# Test.
my $obj = Acme::CPANAuthors->new('Czech');
my $ret = $obj->count;
is($ret, 50, 'Count of Czech CPAN authors.');

t/Acme-CPANAuthors-Czech/06-id.t  view on Meta::CPAN 

# Test.
my $obj = Acme::CPANAuthors->new('Czech');
my @ret = $obj->id;
my @right_ret = ('ATG', 'BULB', 'CHOROBA', 'CONTYK', 'DANIELR', 'DANPEDER',
	'DOUGLISH', 'DPOKORNY', 'HIHIK', 'HOLCAPEK', 'HPA', 'JANPAZ', 'JANPOM',
	'JENDA', 'JIRA', 'JSPICAK', 'KLE', 'KOLCON', 'MAJLIS', 'MICHALS', 'MIK',
	'MILSO', 'MJFO', 'PAJAS', 'PAJOUT', 'PASKY', 'PCIMPRICH', 'PEK',
	'PETRIS', 'PKUBANEK', 'POPEL', 'PSME', 'RADIUSCZ', 'RUR', 'RVASICEK',
	'SARFY', 'SEIDLJAN', 'SKIM', 'SMRZ', 'STRAKA', 'TKR', 'TPODER', 'TRIPIE',
	'TYNOVSKY', 'VARISD', 'VASEKD', 'YENYA', 'ZABA', 'ZEMAN', 'ZOUL');
is_deeply(\@ret, \@right_ret, 'CPAN authors ids.');



( run in 1.181 second using v1.01-cache-2.11-cpan-5c0b1e786e0 )