line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Games::Word::Wordlist::Enable; |
2
|
|
|
|
|
|
|
|
3
|
1
|
|
|
1
|
|
32887
|
use 5.006; |
|
1
|
|
|
|
|
5
|
|
|
1
|
|
|
|
|
45
|
|
4
|
1
|
|
|
1
|
|
8
|
use strict; |
|
1
|
|
|
|
|
1
|
|
|
1
|
|
|
|
|
40
|
|
5
|
1
|
|
|
1
|
|
6
|
use warnings; |
|
1
|
|
|
|
|
8
|
|
|
1
|
|
|
|
|
44
|
|
6
|
1
|
|
|
1
|
|
5
|
no warnings 'syntax'; |
|
1
|
|
|
|
|
7
|
|
|
1
|
|
|
|
|
39
|
|
7
|
|
|
|
|
|
|
|
8
|
1
|
|
|
1
|
|
2235
|
use Games::Word::Wordlist; |
|
1
|
|
|
|
|
77913
|
|
|
1
|
|
|
|
|
167
|
|
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
our @ISA = qw [Games::Word::Wordlist]; |
11
|
|
|
|
|
|
|
our $VERSION = '2010090401'; |
12
|
|
|
|
|
|
|
|
13
|
|
|
|
|
|
|
sub new { |
14
|
1
|
|
|
1
|
1
|
65049
|
bless Games::Word::Wordlist -> new ([map {split} ]), shift |
|
23634
|
|
|
|
|
259498
|
|
15
|
|
|
|
|
|
|
} |
16
|
|
|
|
|
|
|
|
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
1; |
19
|
|
|
|
|
|
|
|
20
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
=head1 NAME |
22
|
|
|
|
|
|
|
|
23
|
|
|
|
|
|
|
Games::Word::Wordlist::Enable - Manages the Enable word list |
24
|
|
|
|
|
|
|
|
25
|
|
|
|
|
|
|
=head1 SYNOPSIS |
26
|
|
|
|
|
|
|
|
27
|
|
|
|
|
|
|
use Games::Word::Wordlist::Enable; |
28
|
|
|
|
|
|
|
my $wl = Games::Word::Wordlist::Enable -> new; |
29
|
|
|
|
|
|
|
my $word = $wl -> random_word; |
30
|
|
|
|
|
|
|
print "We have a word." if $wl -> is_word ($word); |
31
|
|
|
|
|
|
|
|
32
|
|
|
|
|
|
|
=head1 DESCRIPTION |
33
|
|
|
|
|
|
|
|
34
|
|
|
|
|
|
|
C<< Games::Word::Wordlist::Enable >> subclasses C<< Games::Word::Wordlist >>, |
35
|
|
|
|
|
|
|
giving you a managable wordlist preloaded with the words from the public |
36
|
|
|
|
|
|
|
domain I<< Enable >> wordlist. C<< Games::Word::Wordlist::Enable >> defines |
37
|
|
|
|
|
|
|
just one method, the class method C<< new >>, which doesn't take any |
38
|
|
|
|
|
|
|
arguments. |
39
|
|
|
|
|
|
|
|
40
|
|
|
|
|
|
|
Since C<< Games::Word::Wordlist >> is subclassed, all its methods (except |
41
|
|
|
|
|
|
|
C<< new >>) are available. |
42
|
|
|
|
|
|
|
|
43
|
|
|
|
|
|
|
=head1 SEE ALSO |
44
|
|
|
|
|
|
|
|
45
|
|
|
|
|
|
|
C<< Games::Word::Wordlist >>. |
46
|
|
|
|
|
|
|
|
47
|
|
|
|
|
|
|
=head1 DEVELOPMENT |
48
|
|
|
|
|
|
|
|
49
|
|
|
|
|
|
|
The current sources of this module are found on github, |
50
|
|
|
|
|
|
|
L<< git://github.com/Abigail/Games--Word--Wordlist--Enable.git >>. |
51
|
|
|
|
|
|
|
|
52
|
|
|
|
|
|
|
=head1 AUTHOR |
53
|
|
|
|
|
|
|
|
54
|
|
|
|
|
|
|
Abigail, L<< mailto:cpan@abigail.be >>. |
55
|
|
|
|
|
|
|
|
56
|
|
|
|
|
|
|
=head1 COPYRIGHT and LICENSE |
57
|
|
|
|
|
|
|
|
58
|
|
|
|
|
|
|
Copyright (C) 2009 by Abigail, except the word list itself, which is |
59
|
|
|
|
|
|
|
in the public domain. |
60
|
|
|
|
|
|
|
|
61
|
|
|
|
|
|
|
Permission is hereby granted, free of charge, to any person obtaining a |
62
|
|
|
|
|
|
|
copy of this software and associated documentation files (the "Software"), |
63
|
|
|
|
|
|
|
to deal in the Software without restriction, including without limitation |
64
|
|
|
|
|
|
|
the rights to use, copy, modify, merge, publish, distribute, sublicense, |
65
|
|
|
|
|
|
|
and/or sell copies of the Software, and to permit persons to whom the |
66
|
|
|
|
|
|
|
Software is furnished to do so, subject to the following conditions: |
67
|
|
|
|
|
|
|
|
68
|
|
|
|
|
|
|
The above copyright notice and this permission notice shall be included |
69
|
|
|
|
|
|
|
in all copies or substantial portions of the Software. |
70
|
|
|
|
|
|
|
|
71
|
|
|
|
|
|
|
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR |
72
|
|
|
|
|
|
|
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, |
73
|
|
|
|
|
|
|
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL |
74
|
|
|
|
|
|
|
THE AUTHOR BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, |
75
|
|
|
|
|
|
|
WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT |
76
|
|
|
|
|
|
|
OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN |
77
|
|
|
|
|
|
|
THE SOFTWARE. |
78
|
|
|
|
|
|
|
|
79
|
|
|
|
|
|
|
=head1 INSTALLATION |
80
|
|
|
|
|
|
|
|
81
|
|
|
|
|
|
|
To install this module, run, after unpacking the tar-ball, the |
82
|
|
|
|
|
|
|
following commands: |
83
|
|
|
|
|
|
|
|
84
|
|
|
|
|
|
|
perl Makefile.PL |
85
|
|
|
|
|
|
|
make |
86
|
|
|
|
|
|
|
make test |
87
|
|
|
|
|
|
|
make install |
88
|
|
|
|
|
|
|
|
89
|
|
|
|
|
|
|
=cut |
90
|
|
|
|
|
|
|
|
91
|
|
|
|
|
|
|
__DATA__ |