package option_str; sub set_value { my ($class, $self, $value) = (shift, shift, shift); $self->{value} = $value; } sub get_value { my ($class, $self, $value) = (shift, shift, shift); return $self->{value}; }