… | … | ||
---|---|---|---|
182 | $_[0] | 182 | $_[0] |
183 | }, | 183 | }, |
184 | 'eq' => sub { "$_[0]" eq "$_[1]" }, | 184 | 'eq' => sub { "$_[0]" eq "$_[1]" }, |
185 | 'ne' => sub { "$_[0]" ne "$_[1]" }, | 185 | 'ne' => sub { "$_[0]" ne "$_[1]" }, |
186 | ; | 186 | ; |
187 | |||
188 | sub TO_JSON { | ||
189 | $_[0][0] | ||
190 | } | ||
187 | } | 191 | } |
188 | 192 | ||
189 | sub Deliantra::MoveType::new { | 193 | sub Deliantra::MoveType::new { |
190 | my ($class, $string) = @_; | 194 | my ($class, $string) = @_; |
191 | 195 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |