Acme-MetaSyntactic-soviet

 view release on metacpan or  search on metacpan

CONTRIBUTING.md  view on Meta::CPAN

failed to reach  me. In your message, please  mention the distribution
name in the subject, so my spam  filter and I will easily dispatch the
email to the proper folder.

On the other  hand, I may be  on vacation or away from  Internet for a
good  reason. Do  not be  upset if  I do  not answer  immediately. You
should write  me at a leisurely  rythm, about once per  month, until I
react.

If after about six  months or a year, there is  still no reaction from
me, you can worry and start the CPAN procedure for module adoption.
See <https://groups.google.com/g/perl.module-authors/c/IPWjASwuLNs>,
<https://www.cpan.org/misc/cpan-faq.html#How_maintain_module>
and <https://www.cpan.org/misc/cpan-faq.html#How_adopt_module>.

LICENSE  view on Meta::CPAN

meet all of these conditions:

a) You must cause the modified files to carry prominent notices stating that you
changed the files and the date of any change.

b) You must cause any work that you distribute or publish, that in whole or in
part contains or is derived from the Program or any part thereof, to be licensed
as a whole at no charge to all third parties under the terms of this License.

c) If the modified program normally reads commands interactively when run, you
must cause it, when started running for such interactive use in the most ordinary
way, to print or display an announcement including an appropriate copyright
notice and a notice that there is no warranty (or else, saying that you provide a
warranty) and that users may redistribute the program under these conditions,
and telling the user how to view a copy of this License. (Exception: if the
Program itself is interactive but does not normally print such an announcement,
your work based on the Program is not required to print an announcement.)

These requirements apply to the modified work as a whole. If identifiable
sections of that work are not derived from the Program, and can be reasonably
considered independent and separate works in themselves, then this License,

t/06-aircraft.t  view on Meta::CPAN

#
use Test::More;
use Acme::MetaSyntactic;

my $number = 10;
plan('tests', $number);
my $meta = Acme::MetaSyntactic->new( 'soviet', category => 'vehicles/aircraft' );
my @names = $meta->name( $number );

foreach (@names) {
  like($_, qr/^[BCFM][a-z]*$/, "An aircraft codename is a single word, starting with B, C, F or M");
}

t/07-helicopters.t  view on Meta::CPAN

#
use Test::More;
use Acme::MetaSyntactic;

my $number = 10;
plan('tests', $number);
my $meta = Acme::MetaSyntactic->new( 'soviet', category => 'vehicles/helicopters' );
my @names = $meta->name( $number );

foreach (@names) {
  like($_, qr/^H[a-z]*$/, "An helicopter codename is a single word, starting with H");
}

t/08-missiles.t  view on Meta::CPAN

#
use Test::More;
use Acme::MetaSyntactic;

my $number = 10;
plan('tests', $number);
my $meta = Acme::MetaSyntactic->new( 'soviet', category => 'vehicles/missiles' );
my @names = $meta->name( $number );

foreach (@names) {
  like($_, qr/^(?:Frog|[AGKS][a-z]*)$/, "Except for the Frog, a missile codename is a single word, starting with A, G, K or S");
}