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	dpavlin	410	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;