7 use Data::Dump qw/dump/;
12 my ($class,$name,$default) = @_;
14 # my $path = $server::base_dir . '/conf/' . $name; # FIXME we can't call server because it require this package
15 my $path = "/srv/pxelator/conf/$name";
20 write_file $o->{path}, $default unless -f $o->{path};
22 warn "# TIESCALAR $name ", $o->{path}, " [$default]";
28 my ( $self, $value ) = @_;
29 write_file $$self->{path}, $value;
34 my $v = read_file $$self->{path};