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, 2021 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.06';

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.06,  the  Fresco  version,  released on  the  49th
anniversary  of the  dogfight between  a  MiG-17 Fresco  flown by  ace
Colonel Tomb and a F-4 Phantom flown by soon-to-be-aces Cunningham and
Driscoll

=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  most  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) see
L
abbreviated as I.

=item *

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

=item *

I
designed by J.D. Webster
and published by GDW in 1988
(ISBN 0-943580-97-8), see
L
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), see
L
abbreviated as I.

=item *

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

=item *

I special issue I
published by Excelsior Publications SA in May 1977
abbreviated as I.

=item *

I
(or I)
written by Bill Gunston
published by Salamande Books Ltd. in 1987
(ISBN 0-86101-314-X)
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), see
L
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.

=item *

I
by James W Bradin,
published by Avon Books in 1990,
ISBN 0-380-75847-4,
abbreviated as I.

=item *

I written by  Dan McKinnon published by House of
Hits  Publishing  in 1987  and  by  Airlife  Publishing Ltd  in  1988,
abbreviated  as   I.  For  the   ISBN,  I  am  puzzled.   On  the
administrative page at  the beginning of the book, there  is a sticker
with number 1 85310 033 1 and on  the flap of the book cover, the ISBN
is 1 85310 032 3. Take your pick.

=item *

I by Lon O. Nordeen, Jr., published by
the Smithsonian  Institution in 1985  and by  Air and Armour  Press in
1985, ISBN 0-85368-751-X, abbreviated as I.

=back

=head1 SOVIET EQUIPMENT

=cut

__DATA__