Lingua-Abbreviate-Hierarchy

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

use Module::Build;
use MyBuilder;

my $builder = MyBuilder->new(
  module_name       => 'Lingua::Abbreviate::Hierarchy',
  license           => 'perl',
  dist_author       => 'Andy Armstrong <andy@hexten.net>',
  dist_version_from => 'lib/Lingua/Abbreviate/Hierarchy.pm',
  requires          => {
    'Test::More'        => 0,
    'Test::Differences' => 0,
  },
  add_to_cleanup => ['Lingua-Abbreviate-Hierarchy-*'],
);

$builder->create_build_script();

Changes  view on Meta::CPAN

0.01    2009-05-29
        - Initial release.

0.02    2009-05-30
        - Added the C<ex> method.

0.03    2009-05-30
        - Add missing t/expand.t to MANIFEST

0.04    2009-06-05
        - Add missing Test::Differences dependency to Build.PL

META.yml  view on Meta::CPAN

version: 0.04
author:
  - 'Andy Armstrong <andy@hexten.net>'
abstract: Shorten verbose namespaces
license: perl
resources:
  bugtracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=Lingua-Abbreviate-Hierarchy
  license: http://dev.perl.org/licenses/
  repository: git://github.com/AndyA/Lingua--Abbreviate--Hierarchy.git
requires:
  Test::Differences: 0
  Test::More: 0
provides:
  Lingua::Ab::H:
    file: lib/Lingua/Ab/H.pm
    version: 0.04
  Lingua::Abbreviate::Hierarchy:
    file: lib/Lingua/Abbreviate/Hierarchy.pm
    version: 0.04
generated_by: Module::Build version 0.33
meta-spec:

t/basic.t  view on Meta::CPAN

#!perl

use strict;
use warnings;

use Test::More tests => 16;
use Test::Differences;
use Data::Dumper;
use Lingua::Ab::H;

my @ns = qw(
 comp.lang.perl.misc
 comp.lang.perl.advocacy
 comp.lang.perl.mod_perl
 comp.lang.forth
 comp.lang.basic
 comp.lang.basic.bbc

t/expand.t  view on Meta::CPAN

#!perl

use strict;
use warnings;

use Test::More;
use Test::Differences;
use Data::Dumper;
use Lingua::Ab::H;

my @case = (
  { name => 'clean',  args => [] },
  { name => 'keep 1', args => [ keep => 1 ] },
  { name => 'only 1', args => [ only => 1 ] },
  { name => 'flip',   args => [ flip => 1 ] },
  { name => 'max 9',  args => [ max => 9 ] },
);