… | |
… | |
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 | |