File Coverage

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