| blib/lib/WordList/EN/ByClass/Adjective/TalkEnglish.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| statement | 12 | 20 | 60.0 |
| branch | n/a | ||
| condition | n/a | ||
| subroutine | 4 | 6 | 66.6 |
| pod | n/a | ||
| total | 16 | 26 | 61.5 |
| line | stmt | bran | cond | sub | pod | time | code |
|---|---|---|---|---|---|---|---|
| 1 | package WordList::EN::ByClass::Adjective::TalkEnglish; | ||||||
| 2 | |||||||
| 3 | 1 | 1 | 250455 | use strict; | |||
| 1 | 2 | ||||||
| 1 | 50 | ||||||
| 4 | 1 | 1 | 8 | use warnings; | |||
| 1 | 2 | ||||||
| 1 | 75 | ||||||
| 5 | 1 | 1 | 2044 | use WordList; | |||
| 1 | 1918 | ||||||
| 1 | 64 | ||||||
| 6 | |||||||
| 7 | our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY | ||||||
| 8 | our $DATE = '2025-01-13'; # DATE | ||||||
| 9 | our $DIST = 'WordListBundle-EN-ByClass-Adjective'; # DIST | ||||||
| 10 | our $VERSION = '0.004'; # VERSION | ||||||
| 11 | |||||||
| 12 | our @ISA = qw(WordList); | ||||||
| 13 | |||||||
| 14 | 1 | 1 | 410 | use Role::Tiny::With; | |||
| 1 | 6085 | ||||||
| 1 | 178 | ||||||
| 15 | with 'WordListRole::FromArray'; | ||||||
| 16 | |||||||
| 17 | sub _array { | ||||||
| 18 | 0 | 0 | require TableData::Lingua::Word::EN::ByClass::Adjective::TalkEnglish; | ||||
| 19 | |||||||
| 20 | 0 | my $t = TableData::Lingua::Word::EN::ByClass::Adjective::TalkEnglish->new; | |||||
| 21 | 0 | my $ary = []; | |||||
| 22 | $t->each_row_arrayref( | ||||||
| 23 | sub { | ||||||
| 24 | 0 | 0 | my $row = shift; | ||||
| 25 | 0 | push @$ary, $row->[0]; | |||||
| 26 | 0 | 1; | |||||
| 27 | } | ||||||
| 28 | 0 | ); | |||||
| 29 | 0 | $ary; | |||||
| 30 | } | ||||||
| 31 | |||||||
| 32 | our $DYNAMIC = 1; | ||||||
| 33 | our $SORT = 'custom'; | ||||||
| 34 | |||||||
| 35 | our %STATS = ("num_words_contain_whitespace",0,"num_words_contain_nonword_chars",0,"num_words",143,"num_words_contains_whitespace",0,"avg_word_len",7.38461538461539,"num_words_contains_nonword_chars",0,"shortest_word_len",3,"num_words_contains_unicode",0,"longest_word_len",14,"num_words_contain_unicode",0); # STATS | ||||||
| 36 | |||||||
| 37 | 1; | ||||||
| 38 | # ABSTRACT: Words that are used as adjectives only, from talkenglish.com | ||||||
| 39 | |||||||
| 40 | __END__ |