File Coverage

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