File Coverage

blib/lib/Acme/MetaSyntactic/jabberwocky.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package Acme::MetaSyntactic::jabberwocky;
2 1     1   94019 use strict;
  1         4  
  1         47  
3 1     1   9 use Acme::MetaSyntactic::List;
  1         2  
  1         390  
4             our @ISA = qw( Acme::MetaSyntactic::List );
5             our $VERSION = '1.000';
6              
7             =head1 NAME
8              
9             Acme::MetaSyntactic::jabberwocky - Jabberwocky
10              
11             =head1 DESCRIPTION
12              
13             Words from the famous poem by Lewis Carroll.
14              
15             =head1 POEM
16              
17             Source: L.
18              
19             =cut
20              
21             # include the poem in the documentation
22              
23             {
24             my %seen;
25             __PACKAGE__->init(
26             { names => join ' ',
27             grep { !$seen{$_}++ }
28             map {
29             /^(?:J(?:abberwock|ubjub)|Bandersnatch|Tumtum)$/ ? $_ : lc
30             }
31             map { Acme::MetaSyntactic::RemoteList::tr_nonword($_) }
32             map { (/([-\w]*\w)/g) }
33             grep { !/=pod/ }
34             split /\n/ => <<'=cut' } );
35              
36             =pod
37              
38             'Twas brillig, and the slithy toves
39             Did gyre and gimble in the wabe;
40             All mimsy were the borogoves,
41             And the mome raths outgrabe.
42              
43             'Beware the Jabberwock, my son!
44             The jaws that bite, the claws that catch!
45             Beware the Jubjub bird, and shun
46             The frumious Bandersnatch!'
47              
48             He took his vorpal sword in hand:
49             Long time the manxome foe he sought--
50             So rested he by the Tumtum tree,
51             And stood awhile in thought.
52              
53             And as in uffish thought he stood,
54             The Jabberwock, with eyes of flame,
55             Came whiffling through the tulgey wood,
56             And burbled as it came!
57              
58             One, two! One, two! And through and through
59             The vorpal blade went snicker-snack!
60             He left it dead, and with its head
61             He went galumphing back.
62              
63             'And has thou slain the Jabberwock?
64             Come to my arms, my beamish boy!
65             O frabjous day! Callooh! Callay!'
66             He chortled in his joy.
67              
68             'Twas brillig, and the slithy toves
69             Did gyre and gimble in the wabe;
70             All mimsy were the borogoves,
71             And the mome raths outgrabe.
72              
73             =cut
74              
75             }
76              
77             1;
78              
79             =head1 OTHER PERLISH VERSIONS
80              
81             Some perlmonks have tried their hand on this classic too:
82              
83             =over 4
84              
85             =item *
86              
87             L by wombat,
88              
89             =item *
90              
91             L by andreychek,
92              
93             =item *
94              
95             L by RMGir.
96              
97             =back
98              
99             =head1 CONTRIBUTOR
100              
101             Abigail
102              
103             =head1 CHANGES
104              
105             =over 4
106              
107             =item *
108              
109             2012-05-07 - v1.000
110              
111             Received its own version number in Acme-MetaSyntactic-Themes version 1.000.
112              
113             =item *
114              
115             2006-09-25
116              
117             Introduced in Acme-MetaSyntactic version 0.93.
118              
119             =item *
120              
121             2005-10-24
122              
123             Submitted by Abigail.
124              
125             =back
126              
127             =head1 SEE ALSO
128              
129             L, L,
130              
131             =cut
132