… | … | ||
---|---|---|---|
174 | $_[0] /= $_[1]; | 174 | $_[0] /= $_[1]; |
175 | } | 175 | } |
176 | 176 | ||
177 | $_[0] | 177 | $_[0] |
178 | }, | 178 | }, |
179 | 'eq' => sub { "$_[0]" eq "$_[1]" }, | ||
180 | 'ne' => sub { "$_[0]" ne "$_[1]" }, | ||
179 | ; | 181 | ; |
180 | } | 182 | } |
181 | 183 | ||
182 | sub Crossfire::MoveType::new { | 184 | sub Crossfire::MoveType::new { |
183 | my ($class, $string) = @_; | 185 | my ($class, $string) = @_; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |