File Coverage

blib/lib/WordList/HTTP/UserAgentString/PERLANCAR.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::HTTP::UserAgentString::PERLANCAR;
2              
3 1     1   338937 use strict;
  1         2  
  1         45  
4              
5 1     1   820 use WordList;
  1         2225  
  1         99  
6             our @ISA = qw(WordList);
7              
8             our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
9             our $DATE = '2024-12-10'; # DATE
10             our $DIST = 'WordList-HTTP-UserAgentString-PERLANCAR'; # DIST
11             our $VERSION = '0.004'; # VERSION
12              
13             our %STATS = ("num_words_contains_whitespace",4,"num_words_contain_whitespace",4,"num_words_contains_nonword_chars",4,"num_words",4,"shortest_word_len",70,"num_words_contain_nonword_chars",4,"longest_word_len",111,"num_words_contain_unicode",0,"num_words_contains_unicode",0,"avg_word_len",90.25); # STATS
14              
15             1;
16             # ABSTRACT: A selection of some HTTP User-Agent strings
17              
18             =pod
19              
20             =encoding UTF-8
21              
22             =head1 NAME
23              
24             WordList::HTTP::UserAgentString::PERLANCAR - A selection of some HTTP User-Agent strings
25              
26             =head1 VERSION
27              
28             This document describes version 0.004 of WordList::HTTP::UserAgentString::PERLANCAR (from Perl distribution WordList-HTTP-UserAgentString-PERLANCAR), released on 2024-12-10.
29              
30             =head1 SYNOPSIS
31              
32             use WordList::HTTP::UserAgentString::PERLANCAR;
33              
34             my $wl = WordList::HTTP::UserAgentString::PERLANCAR->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             My selection: recent Firefox (Linux & Windows), recent Chrome (Linux & Windows).
57              
58             NOTE: My Windows version is still at 7
59              
60             =head1 WORDLIST STATISTICS
61              
62             +----------------------------------+-------+
63             | key | value |
64             +----------------------------------+-------+
65             | avg_word_len | 90.25 |
66             | longest_word_len | 111 |
67             | num_words | 4 |
68             | num_words_contain_nonword_chars | 4 |
69             | num_words_contain_unicode | 0 |
70             | num_words_contain_whitespace | 4 |
71             | num_words_contains_nonword_chars | 4 |
72             | num_words_contains_unicode | 0 |
73             | num_words_contains_whitespace | 4 |
74             | shortest_word_len | 70 |
75             +----------------------------------+-------+
76              
77             The statistics is available in the C<%STATS> package variable.
78              
79             =head1 HOMEPAGE
80              
81             Please visit the project's homepage at L.
82              
83             =head1 SOURCE
84              
85             Source repository is at L.
86              
87             =head1 AUTHOR
88              
89             perlancar
90              
91             =head1 CONTRIBUTING
92              
93              
94             To contribute, you can send patches by email/via RT, or send pull requests on
95             GitHub.
96              
97             Most of the time, you don't need to build the distribution yourself. You can
98             simply modify the code, then test via:
99              
100             % prove -l
101              
102             If you want to build the distribution (e.g. to try to install it locally on your
103             system), you can install L,
104             L,
105             L, and sometimes one or two other
106             Dist::Zilla- and/or Pod::Weaver plugins. Any additional steps required beyond
107             that are considered a bug and can be reported to me.
108              
109             =head1 COPYRIGHT AND LICENSE
110              
111             This software is copyright (c) 2024 by perlancar .
112              
113             This is free software; you can redistribute it and/or modify it under
114             the same terms as the Perl 5 programming language system itself.
115              
116             =head1 BUGS
117              
118             Please report any bugs or feature requests on the bugtracker website L
119              
120             When submitting a bug or request, please include a test-file or a
121             patch to an existing test-file that illustrates the bug or desired
122             feature.
123              
124             =cut
125              
126             __DATA__