File Coverage

blib/lib/Acme/MetaSyntactic/soviet.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	10	10	100.0
condition	3	3	100.0
subroutine	5	5	100.0
pod			n/a
total	43	43	100.0

# -*- encoding: utf-8; indent-tabs-mode: nil -*-
#
#     Acme::MetaSyntactic::soviet -- NATO codenames for Soviet-designed equipment
#     Copyright (C) 2008, 2012, 2016 Jean Forget
#
#     See the license in the embedded documentation below.
#
package Acme::MetaSyntactic::soviet;

use warnings;
use strict;

use Acme::MetaSyntactic::MultiList;
our @ISA = qw( Acme::MetaSyntactic::MultiList );
our $VERSION = '0.05';

my $data = { default => 'electronic' };
my ($category2, $category3);
my %seen;

_load_data_from_pod();

__PACKAGE__->init($data);

sub _load_data_from_pod {

  while () {
    if (/^=head2\s+(.*)/) {
      _flush_category();
      $category2 = lc($1);
      $category3 = '';
    }
    elsif (/^=head3\s+(.*)/) {
      _flush_category();
      $category3 = lc($1);
    }
    elsif (/=item\s+(.*?)\s*$/) {
      my $name = $1;
      $name =~ s/\s+/_/g;
      $name =~ s/_+/_/g;
      $seen{$name} = 1;
    }
    elsif (/^=head1/) {
      last;
    }
  }
  _flush_category();
}

sub _flush_category {
  if ($category2 and %seen) {
    $data->{names}{$category2}{$category3} = join ' ', sort keys %seen;
  }
  %seen = ();
}

38;
# Why 38? Hint: s/r$/t/

=encoding utf8

=head1 NAME

Acme::MetaSyntactic::soviet -- NATO codenames for Soviet-designed equipment

=head1 DESCRIPTION

Some codenames  given by  NATO to Soviet-designed  aircraft, missiles,
submarines,   radars  and  other   electronic  systems.   The  various
categories and sub-categories are

=over 4

=item *

electronic

=item *

electronic/radars

=item *

electronic/misc

=item *

vehicles

=item *

vehicles/aircraft

=item *

vehicles/helicopters

=item *

vehicles/missiles

=item *

vehicles/submarines

=item *

vehicles/error

=back

The default category is 'electronic'.

=head1 VERSION

This  is  version 0.05,  the  "Styx"  version,  released on  the  49th
anniversary  of the  sinking of  the Israeli  destroyer Eilat  by Styx
missiles fired from Egyptian patrol boats.

=head1 SYNOPSIS

    use Acme::MetaSyntactic;

    my $meta = Acme::MetaSyntactic->new( 'soviet' );

    print $meta->name();          # return a single name
    my @names = $meta->name( 4 ); # return 4 distinct names (if possible)

If you want some category other than 'electronic', the second line should
read:

    my $meta = Acme::MetaSyntactic->new( 'soviet', category => 'vehicle/aircraft' );

If C  from L is  installed, you can  use it
from the command line:

    meta soviet

    meta soviet/vehicles/submarines

=head1 CONTRIBUTOR

Jean Forget

=head1 SOURCES

Note: I  have used  only sources published  I the fall  of the
Soviet Union. Therefore, the  module name is C, with no
"ex-"  prefix.  For  each entry,  the  sources are  listed, with  page
numbers for the books. The games use data cards, which are unnumbered.

Some sources, especially early  sources, may contain some errors. Some
equipment  may appear with  faulty intelligence  reports which  give a
wrong  code or  description.  And  a later  intelligence  report would
correct it.  The best  example is the  Backfire, first given  the code
"Tu-26" and then the code "Tu-22M".

=head2 Main Sources

These sources  contain extensive lists  or extensive tables  of soviet
equipment.

=over 4

=item *

I
written by J-J Patry and P. Lederer
published by Editions Presse & Recherche
abbreviated as I.

=item *

I
written by Derek Wood
published by Janes in 1987
(ISBN 0-7106-0343-6)
abbreviated as I.

=item *

I
designed by J.D. Webster
and published by GDW in 1987
(ISBN 0-943580-19-6)
abbreviated as I.

=item *

I
designed by J.D. Webster
and published by GDW in 1987
(ISBN 0-943580-30-7)
abbreviated as I.

=item *

I
designed by J.D. Webster
and published by GDW in 1988
(ISBN 0-943580-97-8)
abbreviated as I.

=item *

I
written by H. Le Masson
published by Editions Maritimes et Outre-Mer
(no ISBN)
abbreviated as I.

=item *

I
written by B. Prézelin
published by Editions Maritimes et Outre-Mer
(ISBN 2.7373.0485.7)
abbreviated as I.

Note: these  last two  books are actually  the same book,  updated and
published every  other year.  You can notice  that the title  has been
shortened between the 1968 issue and the 1990 issue (FDC vs. LFDC).

=item *

I
written by Victor Flintham
published by Arms and Armour in 1989
(ISBN 0-85368-779-X)
abbreviated as I.

=item *

I
designed by David Isby
published in 1977 by SPI and then in 1983 by TSR
(no ISBN)
abbreviated as I.

=item *

I
written by James F. Dunigan
published by Quill in 1988
(ISBN 0-668-07979-2)
abbreviated as I.

=back

=head2 Minor Sources

These  sources  mention some  NATO  codes  for  soviet equipment,  but
without trying to give an exhaustive list of some category or other.

=over 4

=item *

I
designed by Steve Weiss
published by Group Three Games in 1985
(no ISBN)
abbreviated as I.

=item *

I
by Randy Cunningham with Jeff Ethell
published by Warner Books in 1984
ISBN 0-446-35458-9
abbreviated as I.

=item *

I
by Tom Clancy,
first published by Naval Institute Press in 1984
published by Fontana in 1987
ISBN 0-00-617276-8
abbreviated at I.

=item *

I
by Tom Clancy,
first published by G.P. Putnam's Sons in 1986,
published by Berkley International Edition in 1987
ISBN 0-425-10242-4
abbreviated as I.

=back

=head1 SOVIET EQUIPMENT

=cut

__DATA__