File Coverage

blib/lib/Bracket/Schema.pm
Criterion Covered Total %
statement 9 19 47.3
branch n/a
condition 0 2 0.0
subroutine 3 5 60.0
pod 0 2 0.0
total 12 28 42.8


line stmt bran cond sub pod time code
1             package Bracket::Schema;
2              
3             # Created by DBIx::Class::Schema::Loader
4             # DO NOT MODIFY THE FIRST PART OF THIS FILE
5              
6 1     1   26496 use strict;
  1         4  
  1         34  
7 1     1   6 use warnings;
  1         2  
  1         28  
8              
9 1     1   5 use base 'DBIx::Class::Schema';
  1         5  
  1         1336  
10              
11             __PACKAGE__->load_namespaces(result_namespace => 'Result',);
12              
13             # Created by DBIx::Class::Schema::Loader v0.05003 @ 2010-02-28 11:54:30
14             # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:9Mvnns/DJ5m0MpQNixu/qQ
15              
16             # You can replace this text with custom content, and it will be preserved on regeneration
17              
18             sub create_initial_data {
19 0     0 0   my ($schema, $config, $custom_values) = @_;
20              
21 0   0       $custom_values ||= {
22             admin_first_name => 'Admin',
23             admin_last_name => 'User',
24             admin_email => "admin\@localhost.org",
25             admin_password => 'admin',
26             };
27              
28 0           my @players = $schema->populate(
29             'Player',
30             [
31             [qw/ email password first_name last_name /],
32             [ 'no-reply@huntana.com', 'unknown', 'Perfect', 'Player', ],
33             [
34             $custom_values->{admin_email}, $custom_values->{admin_password},
35             $custom_values->{admin_first_name}, $custom_values->{admin_last_name},
36             ],
37             ]
38             );
39              
40 0           my @roles = $schema->populate('Role', [ [qw/ role /], ['admin'], ['basic'] ]);
41              
42             # Set admin account up with admin role. admins are able to edit the
43             # perfect bracket among other things.
44 0           my @player_roles =
45             $schema->populate('PlayerRole',
46             [ [qw/role player/], [ $roles[0]->id, $players[1]->id ], ]);
47            
48 0           create_new_year_data($schema);
49             }
50              
51             sub create_new_year_data {
52 0     0 0   my ($schema,) = @_;
53              
54             # Regions
55 0           my @regions = $schema->populate(
56             'Region',
57             [
58             [qw/ id name /],
59             [ 1, 'South' ],
60             [ 2, 'East' ],
61             [ 3, 'West' ],
62             [ 4, 'Midwest' ],
63             ]
64             );
65              
66             # Teams
67 0           my @teams = $schema->populate(
68             'Team',
69             [
70             [qw/ id seed name region /],
71             [ 1, 1, 'Florida', 1 ],
72             [ 2, 16, 'Play-in', 1 ],
73             [ 3, 8, 'Colorado', 1 ],
74             [ 4, 9, 'Pittsburgh', 1 ],
75             [ 5, 5, 'VCU', 1 ],
76             [ 6, 12, 'SF Austin', 1 ],
77             [ 7, 4, 'UCLA', 1 ],
78             [ 8, 13, 'Tulsa', 1 ],
79             [ 9, 6, 'Ohio St', 1 ],
80             [ 10, 11, 'Dayton', 1 ],
81             [ 11, 3, 'Syracuse.', 1 ],
82             [ 12, 14, 'W. Michigan', 1 ],
83             [ 13, 7, 'New Mexico', 1 ],
84             [ 14, 10, 'Stanford', 1 ],
85             [ 15, 2, 'Kansas', 1 ],
86             [ 16, 15, 'Eastern KY', 1 ],
87              
88             [ 17, 1, 'Virginia', 2 ],
89             [ 18, 16, 'Coastal Carolina', 2 ],
90             [ 19, 8, 'Memphis', 2 ],
91             [ 20, 9, 'Geo. Wash.', 2 ],
92             [ 21, 5, 'Cincinnati', 2 ],
93             [ 22, 12, 'Harvard', 2 ],
94             [ 23, 4, 'Michigan St.', 2 ],
95             [ 24, 13, 'Delaware', 2 ],
96             [ 25, 6, 'North Carolina', 2 ],
97             [ 26, 11, 'Providence', 2 ],
98             [ 27, 3, 'Iowa St.', 2 ],
99             [ 28, 14, 'N.C. Central', 2 ],
100             [ 29, 7, 'Connecticut', 2 ],
101             [ 30, 10, 'Saint Joseph', 2 ],
102             [ 31, 2, 'Villanova', 2 ],
103             [ 32, 15, 'UW Milwaukee', 2 ],
104              
105             [ 33, 1, 'Arizona', 3 ],
106             [ 34, 16, 'Weber St.', 3 ],
107             [ 35, 8, 'Gonzaga', 3 ],
108             [ 36, 9, 'Oklahoma St.', 3 ],
109             [ 37, 5, 'Oklahoma', 3 ],
110             [ 38, 12, 'North Dakota St.', 3 ],
111             [ 39, 4, 'San Diego St.', 3 ],
112             [ 40, 13, 'New Mexico St.', 3 ],
113             [ 41, 6, 'Baylor', 3 ],
114             [ 42, 11, 'Nebraska', 3 ],
115             [ 43, 3, 'Creighton', 3 ],
116             [ 44, 14, 'UL Layfayette', 3 ],
117             [ 45, 7, 'Oregon', 3 ],
118             [ 46, 10, 'BYU', 3 ],
119             [ 47, 2, 'Wisconsin', 3 ],
120             [ 48, 15, 'American', 3 ],
121              
122             [ 49, 1, 'Witchita St', 4 ],
123             [ 50, 16, 'Play-in', 4 ],
124             [ 51, 8, 'Kentucky', 4 ],
125             [ 52, 9, 'Kansas St.', 4 ],
126             [ 53, 5, 'Saint Louis', 4 ],
127             [ 54, 12, 'Play-in', 4 ],
128             [ 55, 4, 'Louisiville', 4 ],
129             [ 56, 13, 'Manhattan', 4 ],
130             [ 57, 6, 'UMass', 4 ],
131             [ 58, 11, 'Play-in', 4 ],
132             [ 59, 3, 'Duke', 4 ],
133             [ 60, 14, 'Mercer', 4 ],
134             [ 61, 7, "Texas", 4 ],
135             [ 62, 10, 'Arizona St.', 4 ],
136             [ 63, 2, 'Michigan', 4 ],
137             [ 64, 15, 'Wofford', 4 ],
138             ]
139             );
140              
141             # Games
142 0           my @games = $schema->populate(
143             'Game',
144             [
145             [qw/ id round /],
146             [ 1, 1 ],
147             [ 2, 1 ],
148             [ 3, 1 ],
149             [ 4, 1 ],
150             [ 5, 1 ],
151             [ 6, 1 ],
152             [ 7, 1 ],
153             [ 8, 1 ],
154             [ 9, 2 ],
155             [ 10, 2 ],
156             [ 11, 2 ],
157             [ 12, 2 ],
158             [ 13, 3 ],
159             [ 14, 3 ],
160             [ 15, 4 ],
161             [ 16, 1 ],
162             [ 17, 1 ],
163             [ 18, 1 ],
164             [ 19, 1 ],
165             [ 20, 1 ],
166             [ 21, 1 ],
167             [ 22, 1 ],
168             [ 23, 1 ],
169             [ 24, 2 ],
170             [ 25, 2 ],
171             [ 26, 2 ],
172             [ 27, 2 ],
173             [ 28, 3 ],
174             [ 29, 3 ],
175             [ 30, 4 ],
176             [ 31, 1 ],
177             [ 32, 1 ],
178             [ 33, 1 ],
179             [ 34, 1 ],
180             [ 35, 1 ],
181             [ 36, 1 ],
182             [ 37, 1 ],
183             [ 38, 1 ],
184             [ 39, 2 ],
185             [ 40, 2 ],
186             [ 41, 2 ],
187             [ 42, 2 ],
188             [ 43, 3 ],
189             [ 44, 3 ],
190             [ 45, 4 ],
191             [ 46, 1 ],
192             [ 47, 1 ],
193             [ 48, 1 ],
194             [ 49, 1 ],
195             [ 50, 1 ],
196             [ 51, 1 ],
197             [ 52, 1 ],
198             [ 53, 1 ],
199             [ 54, 2 ],
200             [ 55, 2 ],
201             [ 56, 2 ],
202             [ 57, 2 ],
203             [ 58, 3 ],
204             [ 59, 3 ],
205             [ 60, 4 ],
206             [ 61, 5 ],
207             [ 62, 5 ],
208             [ 63, 6 ],
209             ]
210             );
211             }
212              
213             1
214              
215             __END__
216             # 2010 data
217             # Regions
218             my @regions =
219             $schema->populate('Region',
220             [ [qw/ id name /], [ 1, 'Midwest' ], [ 2, 'West' ], [ 3, 'East' ], [ 4, 'South' ], ]);
221              
222             # Teams
223             my @teams = $schema->populate(
224             'Team',
225             [
226             [qw/ id seed name region /],
227             [ 1, 1, 'Kansas', 1 ],
228             [ 2, 16, 'Lehigh', 1 ],
229             [ 3, 8, 'UNLV', 1 ],
230             [ 4, 9, 'Northern Iowa', 1 ],
231             [ 5, 5, 'Michigan St.', 1 ],
232             [ 6, 12, 'New Mexico St.', 1 ],
233             [ 7, 4, 'Maryland', 1 ],
234             [ 8, 13, 'Houston', 1 ],
235             [ 9, 6, 'Tennessee', 1 ],
236             [ 10, 11, 'San Diego St.', 1 ],
237             [ 11, 3, 'Georgetown', 1 ],
238             [ 12, 14, 'Ohio', 1 ],
239             [ 13, 7, 'Oklahoma St.', 1 ],
240             [ 14, 10, 'Georgia Tech', 1 ],
241             [ 15, 2, 'Ohio St.', 1 ],
242             [ 16, 15, 'UCSB', 1 ],
243             [ 17, 1, 'Syracuse', 2 ],
244             [ 18, 16, 'Vermont', 2 ],
245             [ 19, 8, 'Gonzaga', 2 ],
246             [ 20, 9, 'Florida St.', 2 ],
247             [ 21, 5, 'Butler', 2 ],
248             [ 22, 12, 'UTEP', 2 ],
249             [ 23, 4, 'Vanderbilt', 2 ],
250             [ 24, 13, 'Murray St.', 2 ],
251             [ 25, 6, 'Xavier', 2 ],
252             [ 26, 11, 'Minnesota', 2 ],
253             [ 27, 3, 'Pittsburgh', 2 ],
254             [ 28, 14, 'Oakland', 2 ],
255             [ 29, 7, 'BYU', 2 ],
256             [ 30, 10, 'Florida', 2 ],
257             [ 31, 2, 'Kansas St.', 2 ],
258             [ 32, 15, 'North Texas', 2 ],
259             [ 33, 1, 'Kentucky', 3 ],
260             [ 34, 16, 'E. Tennessee St.', 3 ],
261             [ 35, 8, 'Texas', 3 ],
262             [ 36, 9, 'Wake Forest', 3 ],
263             [ 37, 5, 'Temple', 3 ],
264             [ 38, 12, 'Cornell', 3 ],
265             [ 39, 4, 'Wisconsin', 3 ],
266             [ 40, 13, 'Wofford', 3 ],
267             [ 41, 6, 'Marquette', 3 ],
268             [ 42, 11, 'Washington', 3 ],
269             [ 43, 3, 'New Mexico', 3 ],
270             [ 44, 14, 'Montana', 3 ],
271             [ 45, 7, 'Clemson', 3 ],
272             [ 46, 10, 'Missouri', 3 ],
273             [ 47, 2, 'West Virginia', 3 ],
274             [ 48, 15, 'Morgan St.', 3 ],
275             [ 49, 1, 'Duke', 4 ],
276             [ 50, 16, 'Ark-PB/Winthrop', 4 ],
277             [ 51, 8, 'California', 4 ],
278             [ 52, 9, 'Louisville', 4 ],
279             [ 53, 5, 'Texas A&M', 4 ],
280             [ 54, 12, 'Utah St.', 4 ],
281             [ 55, 4, 'Purdue', 4 ],
282             [ 56, 13, 'Siena', 4 ],
283             [ 57, 6, 'Notre Dame', 4 ],
284             [ 58, 11, 'Old Dominion', 4 ],
285             [ 59, 3, 'Baylor', 4 ],
286             [ 60, 14, 'Sam Houston St.', 4 ],
287             [ 61, 7, 'Richmond', 4 ],
288             [ 62, 10, "St. Mary's", 4 ],
289             [ 63, 2, 'Villanova', 4 ],
290             [ 64, 15, 'Robert Morris', 4 ],
291             ]
292             );
293              
294             # 2011 Data
295             my @regions = $schema->populate(
296             'Region',
297             [
298             [qw/ id name /],
299             [ 1, 'East' ],
300             [ 2, 'West' ],
301             [ 3, 'SouthWest' ],
302             [ 4, 'SouthEast' ],
303             ]
304             );
305              
306             # Teams
307             my @teams = $schema->populate(
308             'Team',
309             [
310             [qw/ id seed name region /],
311             [ 1, 1, 'Ohio St.', 1 ],
312             [ 2, 16, 'UTSA/Bama St', 1 ],
313             [ 3, 8, 'George Mason', 1 ],
314             [ 4, 9, 'Villanova', 1 ],
315             [ 5, 5, 'West Virginia', 1 ],
316             [ 6, 12, 'UAB/Clemson', 1 ],
317             [ 7, 4, 'Kentucky', 1 ],
318             [ 8, 13, 'Princeton', 1 ],
319             [ 9, 6, 'Xavier', 1 ],
320             [ 10, 11, 'Marquette', 1 ],
321             [ 11, 3, 'Syracuse', 1 ],
322             [ 12, 14, 'Indiana St.', 1 ],
323             [ 13, 7, 'Washington', 1 ],
324             [ 14, 10, 'Georgia', 1 ],
325             [ 15, 2, 'North Carolina', 1 ],
326             [ 16, 15, 'Long Island', 1 ],
327             [ 17, 1, 'Duke', 2 ],
328             [ 18, 16, 'Hampton', 2 ],
329             [ 19, 8, 'Michigan', 2 ],
330             [ 20, 9, 'Tennessee', 2 ],
331             [ 21, 5, 'Arizona', 2 ],
332             [ 22, 12, 'Memphis', 2 ],
333             [ 23, 4, 'Texas', 2 ],
334             [ 24, 13, 'Oakland', 2 ],
335             [ 25, 6, 'Cincinnati', 2 ],
336             [ 26, 11, 'Missouri', 2 ],
337             [ 27, 3, 'Connecticut', 2 ],
338             [ 28, 14, 'Bucknell', 2 ],
339             [ 29, 7, 'Temple', 2 ],
340             [ 30, 10, 'Penn St.', 2 ],
341             [ 31, 2, 'San Diego St.', 2 ],
342             [ 32, 15, 'No. Colorado', 2 ],
343             [ 33, 1, 'Kansas', 3 ],
344             [ 34, 16, 'Boston U.', 3 ],
345             [ 35, 8, 'UNLV', 3 ],
346             [ 36, 9, 'Illinois', 3 ],
347             [ 37, 5, 'Vanderbilt', 3 ],
348             [ 38, 12, 'Richmond', 3 ],
349             [ 39, 4, 'Louisville', 3 ],
350             [ 40, 13, 'Morehead St.', 3 ],
351             [ 41, 6, 'Georgetown', 3 ],
352             [ 42, 11, 'USC/VCU', 3 ],
353             [ 43, 3, 'Purdue', 3 ],
354             [ 44, 14, "St. Peter's", 3 ],
355             [ 45, 7, 'Texas A&M', 3 ],
356             [ 46, 10, 'Florida St.', 3 ],
357             [ 47, 2, 'Notre Dame', 3 ],
358             [ 48, 15, 'Akron', 3 ],
359             [ 49, 1, 'Pittsburgh', 4 ],
360             [ 50, 16, 'NC-Ash/Ark-LR', 4 ],
361             [ 51, 8, 'Butler', 4 ],
362             [ 52, 9, 'Old Dominion', 4 ],
363             [ 53, 5, 'Kansas St.', 4 ],
364             [ 54, 12, 'Utah St.', 4 ],
365             [ 55, 4, 'Wisconsin', 4 ],
366             [ 56, 13, 'Belmont', 4 ],
367             [ 57, 6, "St. John's", 4 ],
368             [ 58, 11, 'Gonzaga', 4 ],
369             [ 59, 3, 'BYU', 4 ],
370             [ 60, 14, 'Wofford', 4 ],
371             [ 61, 7, 'UCLA', 4 ],
372             [ 62, 10, "Michigan St.", 4 ],
373             [ 63, 2, 'Florida', 4 ],
374             [ 64, 15, 'UC Santa Barb.', 4 ],
375             ]
376             );