File Coverage

blib/lib/Games/Word/Phraselist/Proverb/TWW.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 21 21 100.0


line stmt bran cond sub pod time code
1             package Games::Word::Phraselist::Proverb::TWW;
2              
3             our $DATE = '2014-08-11'; # DATE
4             our $VERSION = '0.01'; # VERSION
5              
6 1     1   935 use 5.010001;
  1         4  
  1         39  
7 1     1   5 use strict;
  1         2  
  1         27  
8 1     1   5 use warnings;
  1         2  
  1         26  
9              
10 1     1   920 use parent qw(Games::Word::Phraselist);
  1         348  
  1         6  
11              
12             sub new {
13 1     1 1 261 bless Games::Word::Phraselist->new ([map {chomp;$_} ]), shift;
  472         359  
  472         603  
14             }
15              
16             1;
17              
18             # ABSTRACT: Proverb phrases from Tom Wills (English)
19              
20             =pod
21              
22             =encoding UTF-8
23              
24             =head1 NAME
25              
26             Games::Word::Phraselist::Proverb::TWW - Proverb phrases from Tom Wills (English)
27              
28             =head1 VERSION
29              
30             This document describes version 0.01 of Games::Word::Phraselist::Proverb::TWW (from Perl distribution Games-Word-Phraselist-Proverb-TWW), released on 2014-08-11.
31              
32             =head1 SYNOPSIS
33              
34             use Games::Word::Phraselist::Proverb::TWW;
35             my $pl = Games::Word::Phraselist::Proverb::TWW->new;
36             my $phrase = $pl->random_phrase;
37             print "We have a phrase." if $pl->is_phrase($phrase);
38              
39             =head1 DESCRIPTION
40              
41             C<< Games::Word::Phraselist::Proverb::TWW >> subclasses L<<
42             Games::Word::Phraselist >>, giving you phrases of English proverbs from Tom
43             Wills' website at:
44              
45             http://tww.id.au/proverbs/proverbs.html
46              
47             The license statement at the site says: "Please feel free to copy these proverbs
48             and distribute them to the younger generation."
49              
50             Some stats:
51              
52             Number of phrases: 472
53             Length of shortest phrase: 13
54             Length of longest phrase: 97
55             Average phrase length: 37.4
56              
57             Since C<< Games::Word::Phraselist >> is subclassed, all its methods (except C<<
58             new >>) are available.
59              
60             =head1 SEE ALSO
61              
62             L<< Games::Word::Phraselist >>.
63              
64             =head1 HOMEPAGE
65              
66             Please visit the project's homepage at L.
67              
68             =head1 SOURCE
69              
70             Source repository is at L.
71              
72             =head1 BUGS
73              
74             Please report any bugs or feature requests on the bugtracker website L
75              
76             When submitting a bug or request, please include a test-file or a
77             patch to an existing test-file that illustrates the bug or desired
78             feature.
79              
80             =head1 AUTHOR
81              
82             Steven Haryanto
83              
84             =head1 COPYRIGHT AND LICENSE
85              
86             This software is copyright (c) 2014 by Steven Haryanto.
87              
88             This is free software; you can redistribute it and/or modify it under
89             the same terms as the Perl 5 programming language system itself.
90              
91             =cut
92              
93             __DATA__