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};
}

##</code><code>##

sub set_option
{
    check_args(4,@_);
    my $class=shift;
    my $self=shift;
    my $opt_name=shift;
    my $value=shift;

    my $found=getopt_dev->is_option($self,$opt_name);
    croak "$opt_name is not a valid option" if($found==0);

    $opt_name=~s/^--?//;

    $options->{$opt_name}->set_value($value);
}

sub get_option
{
    check_args(3,@_);
    my $class=shift;
    my $self=shift;
    my $opt_name=shift;
    my $value=0;
    my $type;

    $opt_name=~s/^--?//;

    return $options->{$opt_name}->{value};
}

##</code><code>##

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