added back refresh, this time in as server->refresh

[pxelator] / lib / PXElator / server.pm

diff --git a/lib/PXElator/server.pm b/lib/PXElator/server.pm
index cd1c07b..5af7169 100644 (file)
--- a/lib/PXElator/server.pm
+++ b/lib/PXElator/server.pm
@@ -2,7 +2,9 @@ package server;
 
 use warnings;
 use strict;
-use File::Slurp;
+
+use Module::Refresh;
+sub refresh { Module::Refresh->refresh };
 
 our $ip      = '172.16.10.1';
 our $netmask = '255.255.255.0';
@@ -11,16 +13,9 @@ our ( $ip_from, $ip_to ) = ( 10, 100 );
 
 our $base_dir = '/home/dpavlin/llin/pxelator';
 
-our $debug = 0;
-sub debug {
-       my $new = shift;
-       my $path ="$base_dir/conf/debug";
-       if ( defined $new ) {
-               write_file $path, $debug = $new;
-       } else {
-               $debug = read_file $path if -e $path;
-       }
-       return $debug;
-}
+use config;
+
+our $debug;
+sub debug { $debug = config::shared('debug', @_) || 0 }
 
 warn "loaded";