package option_bool; sub new { my $self = [{ value => 0 },""]; bless($self); return $self; }