File Coverage

blib/lib/WordList/ID/ByCategory/Food.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 WordList::ID::ByCategory::Food;
2              
3 1     1   299585 use strict;
  1         3  
  1         75  
4              
5             our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
6             our $DATE = '2025-01-14'; # DATE
7             our $DIST = 'WordListBundle-ID-ByCategory'; # DIST
8             our $VERSION = '0.001'; # VERSION
9              
10 1     1   595 use WordList;
  1         2223  
  1         150  
11             our @ISA = qw(WordList);
12              
13             our %STATS = ("num_words",127,"num_words_contain_whitespace",23,"num_words_contains_whitespace",23,"avg_word_len",6.7007874015748,"num_words_contain_nonword_chars",28,"longest_word_len",18,"num_words_contains_nonword_chars",28,"num_words_contain_unicode",0,"shortest_word_len",3,"num_words_contains_unicode",0); # STATS
14              
15             1;
16             # ABSTRACT: List of foods in Indonesian
17              
18             =pod
19              
20             =encoding UTF-8
21              
22             =head1 NAME
23              
24             WordList::ID::ByCategory::Food - List of foods in Indonesian
25              
26             =head1 VERSION
27              
28             This document describes version 0.001 of WordList::ID::ByCategory::Food (from Perl distribution WordListBundle-ID-ByCategory), released on 2025-01-14.
29              
30             =head1 SYNOPSIS
31              
32             use WordList::ID::ByCategory::Food;
33              
34             my $wl = WordList::ID::ByCategory::Food->new;
35              
36             # Pick a (or several) random word(s) from the list
37             my ($word) = $wl->pick;
38             my ($word) = $wl->pick(1); # ditto
39             my @words = $wl->pick(3); # no duplicates
40              
41             # Check if a word exists in the list
42             if ($wl->word_exists('foo')) { ... } # case-sensitive
43              
44             # Call a callback for each word
45             $wl->each_word(sub { my $word = shift; ... });
46              
47             # Iterate
48             my $first_word = $wl->first_word;
49             while (defined(my $word = $wl->next_word)) { ... }
50              
51             # Get all the words (beware, some wordlists are *huge*)
52             my @all_words = $wl->all_words;
53              
54             =head1 DESCRIPTION
55              
56             =head1 WORDLIST STATISTICS
57              
58             +----------------------------------+-----------------+
59             | key | value |
60             +----------------------------------+-----------------+
61             | avg_word_len | 6.7007874015748 |
62             | longest_word_len | 18 |
63             | num_words | 127 |
64             | num_words_contain_nonword_chars | 28 |
65             | num_words_contain_unicode | 0 |
66             | num_words_contain_whitespace | 23 |
67             | num_words_contains_nonword_chars | 28 |
68             | num_words_contains_unicode | 0 |
69             | num_words_contains_whitespace | 23 |
70             | shortest_word_len | 3 |
71             +----------------------------------+-----------------+
72              
73             The statistics is available in the C<%STATS> package variable.
74              
75             =head1 HOMEPAGE
76              
77             Please visit the project's homepage at L.
78              
79             =head1 SOURCE
80              
81             Source repository is at L.
82              
83             =head1 SEE ALSO
84              
85             =head1 AUTHOR
86              
87             perlancar
88              
89             =head1 CONTRIBUTING
90              
91              
92             To contribute, you can send patches by email/via RT, or send pull requests on
93             GitHub.
94              
95             Most of the time, you don't need to build the distribution yourself. You can
96             simply modify the code, then test via:
97              
98             % prove -l
99              
100             If you want to build the distribution (e.g. to try to install it locally on your
101             system), you can install L,
102             L,
103             L, and sometimes one or two other
104             Dist::Zilla- and/or Pod::Weaver plugins. Any additional steps required beyond
105             that are considered a bug and can be reported to me.
106              
107             =head1 COPYRIGHT AND LICENSE
108              
109             This software is copyright (c) 2025 by perlancar .
110              
111             This is free software; you can redistribute it and/or modify it under
112             the same terms as the Perl 5 programming language system itself.
113              
114             =head1 BUGS
115              
116             Please report any bugs or feature requests on the bugtracker website L
117              
118             When submitting a bug or request, please include a test-file or a
119             patch to an existing test-file that illustrates the bug or desired
120             feature.
121              
122             =cut
123              
124             __DATA__