introspection (and Perl 6)

[Ovid]

--- Ovid <publiustemp-londonpm at yahoo.com> wrote:

>   IDENTIFICATION DIVISION.
>   PROGRAM-ID. NOT-PERL-SIX.
>   WORKING-STORAGE SECTION.
>   01  WIBBLES.
>       05  NICK     PIC X(10) VALUE "chromatic".
>       05  FILLER   PIC XXXX.
>       05  TEMPER   PIC X(10) VALUE "snarky". 
>   01  YADDA-YADDA.
>       05  OOF      PIC X(9).
>       05  FILLER   PIC X(13).
>   01  VOIB.
>       05  FILLER   PIC X(12).
>       05  TOBE     PIC XX    VALUE "is".
>   PROCEDURE DIVISION.
>   MAIN.
>       MOVE WIBBLES TO YADDA-YADDA.
>       MOVE VOIB TO WIBBLES.
>       MOVE OOF TO WIBBLES.
>       DISPLAY WIBBLES.
>       STOP RUN.

As often seems the case, I feel compelled to respond to myself (too
many years of living alone, I suppose).

First, no disrespect was meant towards chromatic :)

Second, that program might have a bug, depending on which COBOL
compiler you're using.  But you knew that.

Cheers,
Ovid

--
Buy the book  - http://www.oreilly.com/catalog/perlhks/
Perl and CGI  - http://users.easystreet.com/ovid/cgi_course/
Personal blog - http://publius-ovidius.livejournal.com/
Tech blog     - http://use.perl.org/~Ovid/journal/