view release on metacpan or  search on metacpan

lib/Acme/MetaSyntactic/soviet.pm  view on Meta::CPAN

# -*- 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 (<DATA>) {
    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 *

lib/Acme/MetaSyntactic/soviet.pm  view on Meta::CPAN

published by Group Three Games in 1985
(no ISBN), see
L<https://boardgamegeek.com/boardgame/6228/rolling-thunder>
abbreviated as I<RT>.

=item *

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

=item *

I<The Hunt for Red October>
by Tom Clancy,
first published by Naval Institute Press in 1984
published by Fontana in 1987
ISBN 0-00-617276-8
abbreviated at I<THFRO>.

=item *

I<Red Storm Rising>
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<RSR>.

=item *

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

=item *

I<Bullseye One Reactor> written by  Dan McKinnon published by House of
Hits  Publishing  in 1987  and  by  Airlife  Publishing Ltd  in  1988,
abbreviated  as   I<B1R>.  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<Air Warfare in the Missile Age> 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<AWMA>.

=back

=head1 SOVIET EQUIPMENT

=cut

__DATA__

=head2 ELECTRONIC

The codenames for electronic devices are composed of two words. As you
can notice, similar  devices share one word and  differ with the other
word, e.g. Scan Fix and Scan Odd.  You may find in other sources these
codenames aggregated as a single word, e.g. Barlock.

=head3 RADARS

=over 4

=item Ball End

Navigation radar, FDC 758.

=item Bar Lock

Warning radar, PL 124, mentioned in RT.

=item Bass Tilt

Gun control radar, FDC 760.

=item Bee Hind

Radar mounted on Badger and Bear, FDC 760.

=item Big Fred

Battlefield surveillance radar, PL 97.

=item Big Net

Early warning radar, FDC 758.

=item Big Nose

Radar on Tu-28P, IEAA 157.

=item Big Screen

Early warning radar, FDC 759.

=item Cake Stand

Target tracking radar, FDC 759.

=item Cross Bird

Early warning radar, FDC 758.

=item Cross Sword

Target tracking radar, FDC 759.

=item Dog Ear

2S6 and SA-9 Gaskin warning and acquisition radar, PL 104, 116, 122.