package Action;

sub new {
 my $class = shift;
 my $self = {};
 bless $class, $self;
 $self;
}

# other methods

sub set_nobility {
 if ($self->{type} eq 'suffer') {
   
  $self->{nobility} = $self->{acted_upon) eq 'slings and arrows of outrageous fortune' ? 1 : .5;
} 
 if ($self->{type}  eq 'take arms against') {
   $self->{nobility} = $self->{acted_upon) eq 'a sea of troubles' ? .98 : .2;
 }
}

sub nobility {
 return $self->{nobility};
}