| blib/lib/Crypt/XkcdPassword/Words/EN/Roget.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| statement | 12 | 12 | 100.0 |
| branch | 1 | 2 | 50.0 |
| condition | n/a | ||
| subroutine | 3 | 3 | 100.0 |
| pod | 0 | 1 | 0.0 |
| total | 16 | 18 | 88.8 |
| line | stmt | bran | cond | sub | pod | time | code |
|---|---|---|---|---|---|---|---|
| 1 | package Crypt::XkcdPassword::Words::EN::Roget; | ||||||
| 2 | 1 | 1 | 2596 | use 5.010001; | |||
| 1 | 4 | ||||||
| 1 | 59 | ||||||
| 3 | BEGIN { | ||||||
| 4 | 1 | 1 | 3 | $Crypt::XkcdPassword::Words::EN::Roget::AUTHORITY = 'cpan:TOBYINK'; | |||
| 5 | 1 | 76 | $Crypt::XkcdPassword::Words::EN::Roget::VERSION = '0.005'; | ||||
| 6 | } | ||||||
| 7 | sub words | ||||||
| 8 | { | ||||||
| 9 | 1 | 1 | 0 | 2 | state $words = do { | ||
| 10 | 1 | 2 | my @w; | ||||
| 11 | 1 | 7 | while () { | ||||
| 12 | 38854 | 33042 | chomp; | ||||
| 13 | 38854 | 50 | 115151 | push @w, $_ if length; | |||
| 14 | } | ||||||
| 15 | 1 | 9 | \@w; | ||||
| 16 | }; | ||||||
| 17 | 1 | 31 | $words; | ||||
| 18 | } | ||||||
| 19 | __PACKAGE__ | ||||||
| 20 | __DATA__ |