File Coverage

blib/lib/Confman.pm

Criterion	Covered	Total	%
statement	12	31	38.7
branch	0	2	0.0
condition	0	12	0.0
subroutine	4	9	44.4
pod	0	4	0.0
total	16	58	27.5

package Confman;

use strict;
use warnings;

use Confman::API;

our $VERSION = '0.04';
our $DEFAULT;

sub load_conf_set {
  my $self = shift;

  my $getter = shift;
  my $conf_set_name = shift;

  my $conf_set = $self->api->find_by_name($conf_set_name);
  {
    my $class = ref($self) || $self;
    no strict 'refs';
    *{$class.'::'.$getter} = sub { $conf_set; };
  }
  return $conf_set ? $conf_set->pairs : undef;
}

sub api {
  my $self = shift;
  $self->{_api} ||= Confman::API->new->load_config;
  return $self->{_api};
}

sub new {
  my $class = shift;
  my $self = bless({}, ref($class) || $class);

  $self;
}

sub default {
  my $self = shift;

  $DEFAULT ||= $self->new();
  $DEFAULT;
}

1;
__END__