File Coverage

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