lib/PXElator/ties.pm

package ties;

use warnings;
use strict;

use File::Slurp;
use Data::Dump qw/dump/;

#use server;

sub TIESCALAR {
        my ($class,$name,$default) = @_;

#       my $path = $server::base_dir . '/conf/' . $name; # FIXME we can't call server because it require this package
        my $path = "/srv/pxelator/conf/$name";

        my $o = {
                path => $path,
        };
        write_file $o->{path}, $default unless -f $o->{path};

        warn "# TIESCALAR $name ", $o->{path}, " [$default]";

        bless \$o,$class;
}

sub STORE {
        my ( $self, $value ) = @_;
        write_file $$self->{path}, $value;
}

sub FETCH {
        my $self = shift;
        my $v = read_file $$self->{path};
        chomp($v);
        $v;
}

1;
1	package ties;
2
3	use warnings;
4	use strict;
5
6	use File::Slurp;
7	use Data::Dump qw/dump/;
8
9	#use server;
10
11	sub TIESCALAR {
12	my ($class,$name,$default) = @_;
13
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";
16
17	my $o = {
18	path => $path,
19	};
20	write_file $o->{path}, $default unless -f $o->{path};
21
22	warn "# TIESCALAR $name ", $o->{path}, " [$default]";
23
24	bless \$o,$class;
25	}
26
27	sub STORE {
28	my ( $self, $value ) = @_;
29	write_file $$self->{path}, $value;
30	}
31
32	sub FETCH {
33	my $self = shift;
34	my $v = read_file $$self->{path};
35	chomp($v);
36	$v;
37	}
38
39	1;