parent
d801876ee9
commit
30ce7dc745
@ -78,6 +78,17 @@ sub load_config {
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
sub set_value {
|
||||||
|
my $self = shift;
|
||||||
|
my ($opt_key, $value) = @_;
|
||||||
|
|
||||||
|
my $changed = 0;
|
||||||
|
foreach my $optgroup (@{$self->{optgroups}}) {
|
||||||
|
$changed = 1 if $optgroup->set_value($opt_key, $value);
|
||||||
|
}
|
||||||
|
return $changed;
|
||||||
|
}
|
||||||
|
|
||||||
sub is_dirty { 0 }
|
sub is_dirty { 0 }
|
||||||
sub config { $_[0]->{config}->clone }
|
sub config { $_[0]->{config}->clone }
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user