File Coverage

blib/lib/Faker/Plugin/EnUs/InternetDomainTld.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 1 2 50.0
total 21 22 95.4


line stmt bran cond sub pod time code
1             package Faker::Plugin::EnUs::InternetDomainTld;
2              
3 5     5   24916 use 5.018;
  5         23  
4              
5 5     5   29 use strict;
  5         10  
  5         119  
6 5     5   26 use warnings;
  5         18  
  5         164  
7              
8 5     5   31 use Venus::Class 'base';
  5         11  
  5         36  
9              
10             base 'Faker::Plugin::EnUs';
11              
12             # VERSION
13              
14             our $VERSION = '1.18';
15              
16             # METHODS
17              
18             sub execute {
19 23     23 1 1167 my ($self, $data) = @_;
20              
21 23         87 return $self->faker->random->select(data_for_internet_domain_tld());
22             }
23              
24             sub data_for_internet_domain_tld {
25 23     23 0 131 state $internet_domain_tld = [
26             'com',
27             'com',
28             'com',
29             'com',
30             'com',
31             'com',
32             'net',
33             'org',
34             'co',
35             ]
36             }
37              
38             1;
39              
40              
41              
42             =head1 NAME
43              
44             Faker::Plugin::EnUs::InternetDomainTld - Internet Domain Tld
45              
46             =cut
47              
48             =head1 ABSTRACT
49              
50             Internet Domain Tld for Faker
51              
52             =cut
53              
54             =head1 VERSION
55              
56             1.18
57              
58             =cut
59              
60             =head1 SYNOPSIS
61              
62             package main;
63              
64             use Faker::Plugin::EnUs::InternetDomainTld;
65              
66             my $plugin = Faker::Plugin::EnUs::InternetDomainTld->new;
67              
68             # bless(..., "Faker::Plugin::EnUs::InternetDomainTld")
69              
70             =cut
71              
72             =head1 DESCRIPTION
73              
74             This package provides methods for generating fake data for internet domain tld.
75              
76             =encoding utf8
77              
78             =cut
79              
80             =head1 INHERITS
81              
82             This package inherits behaviors from:
83              
84             L
85              
86             =cut
87              
88             =head1 METHODS
89              
90             This package provides the following methods:
91              
92             =cut
93              
94             =head2 execute
95              
96             execute(HashRef $data) (Str)
97              
98             The execute method returns a returns a random fake internet domain tld.
99              
100             I>
101              
102             =over 4
103              
104             =item execute example 1
105              
106             package main;
107              
108             use Faker::Plugin::EnUs::InternetDomainTld;
109              
110             my $plugin = Faker::Plugin::EnUs::InternetDomainTld->new;
111              
112             # bless(..., "Faker::Plugin::EnUs::InternetDomainTld")
113              
114             # my $result = $plugin->execute;
115              
116             # "com";
117              
118             # my $result = $plugin->execute;
119              
120             # "com";
121              
122             # my $result = $plugin->execute;
123              
124             # "org";
125              
126             =back
127              
128             =cut
129              
130             =head2 new
131              
132             new(HashRef $data) (Plugin)
133              
134             The new method returns a new instance of the class.
135              
136             I>
137              
138             =over 4
139              
140             =item new example 1
141              
142             package main;
143              
144             use Faker::Plugin::EnUs::InternetDomainTld;
145              
146             my $plugin = Faker::Plugin::EnUs::InternetDomainTld->new;
147              
148             # bless(..., "Faker::Plugin::EnUs::InternetDomainTld")
149              
150             =back
151              
152             =cut
153              
154             =head1 AUTHORS
155              
156             Awncorp, C
157              
158             =cut
159              
160             =head1 LICENSE
161              
162             Copyright (C) 2000, Al Newkirk.
163              
164             This program is free software, you can redistribute it and/or modify it under
165             the terms of the Apache license version 2.0.
166              
167             =cut