File Coverage

lib/Messaging/Courier/Config.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Messaging::Courier::Config;

use strict;
use warnings;

use EO::File;
use EO::Singleton;
use base qw( EO::Singleton );
use File::HomeDir;

sub filefor {
  my $self = shift;
  my $name = shift;
  return EO::File->new( path => [home(),'.courier', $name] );
}

sub getvalue {
  my $self = shift;
  my $key  = shift;
  my $file = $self->filefor( $key );
  my $val = eval { $file->load->content; };
  if ($@) {
    return '';
  } else {
    chomp $val;
    return $val;
  }
}

sub group {
  my $self = Messaging::Courier::Config->new();
  $self->{ group } ||= $self->getvalue('group');
}

sub host {
  my $self = Messaging::Courier::Config->new();
  $self->{ host } ||= $self->getvalue('host');
}

sub port {
  my $self = Messaging::Courier::Config->new();
  $self->{ port } ||= $self->getvalue('port');
}

1;

__END__