sub contested : lvalue { my $self = shift; $self->{_contested} }