use constant Earth => 0; use constant Air => 1; use constant Fire => 2; use constant Water => 3; my @elmt_name = qw( Earth Air Fire Water ); # Gorgon::element return $elmt_name[ $self->{element} ]; # Gorgon::Euryale::transmute $elmt = ($elmt + 1) % 4; # Gorgon::Stheno::transmute $elmt = ($elmt - 1) % 4;