File Coverage

blib/lib/Config/PP.pm

Criterion	Covered	Total	%
statement	31	32	96.8
branch	3	8	37.5
condition	1	3	33.3
subroutine	9	9	100.0
pod	2	3	66.6
total	46	55	83.6

package Config::PP;
use strict;
use warnings;

use parent 'Exporter';
our @EXPORT  = qw(config_get config_set);

use Data::Dumper;
use File::Spec;
use Carp;

our $VERSION = '0.04';
our $DIR     = File::Spec->catfile($ENV{HOME}, '.ppconfig');

# path: $DIR/${namespace}.pl

sub config_get ($) {
    my $namespace = shift;
    my $path = path($namespace);
    local $@;
    return (do $path or Carp::croak "$!$@" ? "$!$@: $path" : "Can't find config: $path");
}

sub config_set ($$) {
    my ($namespace, $data) = @_;
    my $path = path($namespace);

    open my $fh, ">", $path or Carp::croak "$!: $path";
    print {$fh} Dumper($data);
    close $fh or Carp::croak $!;
}

sub path {
    my $namespace = shift;

    unless (-d $DIR) {
        mkdir $DIR, 0700 or Carp::croak "Can't mkdir: $DIR";
    }

    File::Spec->catfile($DIR, "${namespace}.pl");
}

1;
__END__