Acme-123

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

abstract:           Acme::123 - Prints numbers in different languages
author:
    - Nathan McClurg ()
license:            unknown
distribution_type:  module
configure_requires:
    ExtUtils::MakeMaker:  0
build_requires:
    ExtUtils::MakeMaker:  0
requires:
    Test::Simple:  0.44
no_index:
    directory:
        - t
        - inc
generated_by:       ExtUtils::MakeMaker version 6.57_05
meta-spec:
    url:      http://module-build.sourceforge.net/META-spec-v1.4.html
    version:  1.4

Makefile.PL  view on Meta::CPAN

use ExtUtils::MakeMaker;
# See lib/ExtUtils/MakeMaker.pm for details of how to influence
# the contents of the Makefile that is written.
WriteMakefile(
    NAME         => 'Acme::123',
    VERSION_FROM => 'lib/Acme/123.pm', # finds \$VERSION
    AUTHOR       => 'Nathan McClurg ()',
    ABSTRACT     => 'Acme::123 - Prints numbers in different languages',
    PREREQ_PM    => {
                     'Test::Simple' => 0.44,
                    },
);

t/001_load.t  view on Meta::CPAN

# -*- perl -*-

# t/001_load.t - check module loading and create testing directory

use Test::More tests => 2;

BEGIN { use_ok( 'Acme::123' ); }

my $object = Acme::123->new ();
isa_ok ($object, 'Acme::123');

t/002_numbers.t  view on Meta::CPAN

# -*- perl -*-

# t/001_numbers.t - check if numbers in database are correct

use Test::More tests => 4;

use Acme::123;
my $object = Acme::123->new();
my @numbers = $object->getnumbers();
is($numbers[0],"one","English language as default language");
is($numbers[9],"ten","Check all numbers are in English numbers array");
$object->setLanguage('fr');
@numbers = $object->getnumbers();
is($numbers[0],"un","French language check");
is($numbers[9],"dix","Another French language check");