File Coverage

blib/lib/Faker/Plugin/EnUs/InternetDomainName.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 19 19 100.0


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