]>
Commit | Line | Data |
---|---|---|
67e78ff2 | 1 | package SelectData; |
2 | ||
3 | ||
4 | ||
5 | my @clan_data = ( | |
6 | { clan_name => 'janglers', clan_id => 12, selected => 1 }, | |
7 | { clan_name => 'thugknights', clan_id => 14 }, | |
8 | { clan_name => 'cavaliers' , clan_id => 13 } | |
9 | ); | |
10 | ||
11 | ||
12 | sub new { | |
13 | my $this = shift; | |
14 | bless {}, ref($this) || $this; | |
15 | } | |
16 | ||
17 | sub load_data { | |
18 | \@clan_data | |
19 | } | |
20 | ||
21 | ||
22 | 1; |