| … | |
… | |
| 626 | my $self = bless { }, $class; |
626 | my $self = bless { }, $class; |
| 627 | |
627 | |
| 628 | $self->ring_or_ammy_to_hash ($arg{object}); |
628 | $self->ring_or_ammy_to_hash ($arg{object}); |
| 629 | |
629 | |
| 630 | $self; |
630 | $self; |
|
|
631 | } |
|
|
632 | |
|
|
633 | sub has_resist { |
|
|
634 | my ($self, $resistnam, $resistval) = @_; |
|
|
635 | my $resnum = $REV_RESMAP{uc $resistnam}; |
|
|
636 | if (defined ($resistval)) { |
|
|
637 | return 1 if $self->{hash}->{resist}->{$resnum} == $resistval; |
|
|
638 | } else { |
|
|
639 | return 1 if $self->{hash}->{resist}->{$resnum}; |
|
|
640 | } |
|
|
641 | return undef; |
| 631 | } |
642 | } |
| 632 | |
643 | |
| 633 | sub analyze { |
644 | sub analyze { |
| 634 | my ($self, $sk, $pl) = @_; |
645 | my ($self, $sk, $pl) = @_; |
| 635 | |
646 | |
