[ViewVC] Diff of: cvs/deliantra/Deliantra/Deliantra.pm

Comparing deliantra/Deliantra/Deliantra.pm (file contents):
Revision 1.129 by root, Sun Jan 11 22:03:03 2009 UTC vs.
Revision 1.132 by root, Wed Sep 2 22:38:57 2009 UTC

 =cut
 package Deliantra;
-our $VERSION = '1.23';
+our $VERSION = '1.25';
-use strict;
+use common::sense;
 use base 'Exporter';
 use Carp ();
 use File::Spec;
    boat     => MOVE_BOAT,
    ship     => MOVE_SHIP,
    all      => MOVE_ALL,
 );
-our @MOVE_TYPE = keys %MOVE_TYPE;
+our @MOVE_TYPE = qw(all walk flying fly_low fly_high swim boat ship);
 {
    package Deliantra::MoveType;
    use overload
          $_[0]
       },
       'eq' => sub { "$_[0]" eq "$_[1]" },
       'ne' => sub { "$_[0]" ne "$_[1]" },
    ;
+   sub TO_JSON {
+      $_[0][0]
+   }
 }
 sub Deliantra::MoveType::new {
    my ($class, $string) = @_;

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines