t/SelectData.pm

   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;