Help for this page

Select Code to Download


  1. or download this
    package option_str;
    
    ...
        my ($class, $self, $value) = (shift, shift, shift);
        return $self->{value};
    }
    
  2. or download this
    sub set_option
    {
    ...
    
        return $options->{$opt_name}->{value};
    }
    
  3. or download this
    package option_bool;
    sub new
    ...
        bless($self);
        return $self;
    }