9 eval "use Regexp::Common; use Locale::US;";
10 plan skip_all => "Regexp::Common & Locale::US required for this test" if $@;
15 use Scalar::Util 'isweak';
28 use Regexp::Common 'zip';
30 my $STATES = Locale::US->new;
35 (exists $STATES->{code2state}{uc($_)} || exists $STATES->{state2code}{uc($_)})
41 /^$RE{zip}{US}{-extended => 'allow'}$/
44 has 'street' => (is => 'rw', isa => 'Str');
45 has 'city' => (is => 'rw', isa => 'Str');
46 has 'state' => (is => 'rw', isa => 'USState');
47 has 'zip_code' => (is => 'rw', isa => 'USZipCode');
54 has 'name' => (is => 'rw', isa => 'Str');
55 has 'address' => (is => 'rw', isa => 'Address');
56 has 'employees' => (is => 'rw', isa => subtype ArrayRef => where {
57 ($_->isa('Employee') || return) for @$_; 1
61 my ($self, %params) = @_;
62 if ($params{employees}) {
63 foreach my $employee (@{$params{employees}}) {
64 $employee->company($self);
69 sub get_employee_count { scalar @{(shift)->employees} }
76 has 'first_name' => (is => 'rw', isa => 'Str');
77 has 'last_name' => (is => 'rw', isa => 'Str');
78 has 'middle_initial' => (is => 'rw', isa => 'Str', predicate => 'has_middle_initial');
79 has 'address' => (is => 'rw', isa => 'Address');
83 return $self->first_name .
84 ($self->has_middle_initial ? ' ' . $self->middle_initial . '. ' : ' ') .
95 has 'title' => (is => 'rw', isa => 'Str');
96 has 'company' => (is => 'rw', isa => 'Company', weak_ref => 1);
102 name => 'Infinity Interactive',
103 address => Address->new(
104 street => '565 Plandome Rd., Suite 307',
111 first_name => 'Jeremy',
113 title => 'President / Senior Consultant',
114 address => Address->new(city => 'Manhasset', state => 'NY')
117 first_name => 'Tommy',
119 title => 'Vice President / Senior Developer',
120 address => Address->new(city => 'New York', state => 'NY')
123 first_name => 'Stevan',
124 middle_initial => 'C',
125 last_name => 'Little',
126 title => 'Senior Developer',
127 address => Address->new(city => 'Madison', state => 'CT')
131 last_name => 'Kinyon',
132 title => 'Developer',
133 address => Address->new(city => 'Marysville', state => 'OH')
137 } '... created the entire company successfully';
138 isa_ok($ii, 'Company');
140 is($ii->name, 'Infinity Interactive', '... got the right name for the company');
142 isa_ok($ii->address, 'Address');
143 is($ii->address->street, '565 Plandome Rd., Suite 307', '... got the right street address');
144 is($ii->address->city, 'Manhasset', '... got the right city');
145 is($ii->address->state, 'NY', '... got the right state');
146 is($ii->address->zip_code, 11030, '... got the zip code');
148 is($ii->get_employee_count, 4, '... got the right employee count');
152 isa_ok($ii->employees->[0], 'Employee');
153 isa_ok($ii->employees->[0], 'Person');
155 is($ii->employees->[0]->first_name, 'Jeremy', '... got the right first name');
156 is($ii->employees->[0]->last_name, 'Shao', '... got the right last name');
157 ok(!$ii->employees->[0]->has_middle_initial, '... no middle initial');
158 is($ii->employees->[0]->middle_initial, undef, '... got the right middle initial value');
159 is($ii->employees->[0]->full_name, 'Jeremy Shao', '... got the right full name');
160 is($ii->employees->[0]->title, 'President / Senior Consultant', '... got the right title');
161 is($ii->employees->[0]->company, $ii, '... got the right company');
162 ok(isweak($ii->employees->[0]->{company}), '... the company is a weak-ref');
164 isa_ok($ii->employees->[0]->address, 'Address');
165 is($ii->employees->[0]->address->city, 'Manhasset', '... got the right city');
166 is($ii->employees->[0]->address->state, 'NY', '... got the right state');
170 isa_ok($ii->employees->[1], 'Employee');
171 isa_ok($ii->employees->[1], 'Person');
173 is($ii->employees->[1]->first_name, 'Tommy', '... got the right first name');
174 is($ii->employees->[1]->last_name, 'Lee', '... got the right last name');
175 ok(!$ii->employees->[1]->has_middle_initial, '... no middle initial');
176 is($ii->employees->[1]->middle_initial, undef, '... got the right middle initial value');
177 is($ii->employees->[1]->full_name, 'Tommy Lee', '... got the right full name');
178 is($ii->employees->[1]->title, 'Vice President / Senior Developer', '... got the right title');
179 is($ii->employees->[1]->company, $ii, '... got the right company');
180 ok(isweak($ii->employees->[1]->{company}), '... the company is a weak-ref');
182 isa_ok($ii->employees->[1]->address, 'Address');
183 is($ii->employees->[1]->address->city, 'New York', '... got the right city');
184 is($ii->employees->[1]->address->state, 'NY', '... got the right state');
188 isa_ok($ii->employees->[2], 'Employee');
189 isa_ok($ii->employees->[2], 'Person');
191 is($ii->employees->[2]->first_name, 'Stevan', '... got the right first name');
192 is($ii->employees->[2]->last_name, 'Little', '... got the right last name');
193 ok($ii->employees->[2]->has_middle_initial, '... got middle initial');
194 is($ii->employees->[2]->middle_initial, 'C', '... got the right middle initial value');
195 is($ii->employees->[2]->full_name, 'Stevan C. Little', '... got the right full name');
196 is($ii->employees->[2]->title, 'Senior Developer', '... got the right title');
197 is($ii->employees->[2]->company, $ii, '... got the right company');
198 ok(isweak($ii->employees->[2]->{company}), '... the company is a weak-ref');
200 isa_ok($ii->employees->[2]->address, 'Address');
201 is($ii->employees->[2]->address->city, 'Madison', '... got the right city');
202 is($ii->employees->[2]->address->state, 'CT', '... got the right state');
206 isa_ok($ii->employees->[3], 'Employee');
207 isa_ok($ii->employees->[3], 'Person');
209 is($ii->employees->[3]->first_name, 'Rob', '... got the right first name');
210 is($ii->employees->[3]->last_name, 'Kinyon', '... got the right last name');
211 ok(!$ii->employees->[3]->has_middle_initial, '... got middle initial');
212 is($ii->employees->[3]->middle_initial, undef, '... got the right middle initial value');
213 is($ii->employees->[3]->full_name, 'Rob Kinyon', '... got the right full name');
214 is($ii->employees->[3]->title, 'Developer', '... got the right title');
215 is($ii->employees->[3]->company, $ii, '... got the right company');
216 ok(isweak($ii->employees->[3]->{company}), '... the company is a weak-ref');
218 isa_ok($ii->employees->[3]->address, 'Address');
219 is($ii->employees->[3]->address->city, 'Marysville', '... got the right city');
220 is($ii->employees->[3]->address->state, 'OH', '... got the right state');
222 ## check some error conditions for the subtypes
225 Address->new(street => {}),
226 } '... we die correctly with bad args';
229 Address->new(city => {}),
230 } '... we die correctly with bad args';
233 Address->new(state => 'British Columbia'),
234 } '... we die correctly with bad args';
237 Address->new(state => 'Connecticut'),
238 } '... we live correctly with good args';
241 Address->new(zip_code => 'AF5J6$'),
242 } '... we die correctly with bad args';
245 Address->new(zip_code => '06443'),
246 } '... we live correctly with good args';
249 Company->new(employees => [ Person->new ]),
250 } '... we die correctly with good args';
253 Company->new(employees => []),
254 } '... we live correctly with good args';