lib/CXGN/Insitu/FormHash.pm

   1
   2 use strict;
   3
   4
   5 =head1
   6
   7 <HTML>
   8
   9 Name: $form{name}
  10
  11 =cut
  12
  13 use strict;
  14 require Tie::Hash;
  15
  16 package CXGN::Insitu::Form;
  17
  18 use base qw( Tie::Hash );
  19
  20 sub TIEHASH {
  21     my $class = shift;
  22     return bless {}, $class;
  23 }
  24
  25 sub STORE {
  26     my $self = shift;
  27     my $key = shift;
  28     my $value = shift;
  29     $self->{$key}=$value;
  30 }
  31
  32 sub FETCH {
  33     my $self = shift;
  34     my $key = shift;
  35
  36     if (exists($self->{$key})) {
  37         return "Haha!".$self->{$key};
  38     }
  39     else {
  40         return undef;
  41     }
  42 }
  43
  44 sub FIRSTKEY {
  45     my $self = shift;
  46     return (keys(%$self))[0];
  47 }
  48
  49
  50 sub NEXTKEY {
  51     my $self = shift;
  52     my $lastkey = shift;
  53     my @keys = keys(%$self);
  54     for (my $i=0; $i<@keys; $i++) {
  55         if ($lastkey eq $keys[$i]) {
  56             return $keys[$i+1];
  57         }
  58     }
  59
  60 }
  61
  62
  63 return 1;