File Coverage

blib/lib/Mail/MtPolicyd/SessionCache.pm

Criterion	Covered	Total	%
statement	6	25	24.0
branch	0	6	0.0
condition			n/a
subroutine	2	3	66.6
pod	0	1	0.0
total	8	35	22.8

package Mail::MtPolicyd::SessionCache;

use Moose;

our $VERSION = '2.02'; # VERSION
# ABSTRACT: class for handling session cache

use Mail::MtPolicyd::SessionCache::None;

has 'server' => (
	is => 'ro', isa => 'Net::Server', required => 1,
	handles => {
		'log' => 'log',
	}
);

has 'cache' => (
  is => 'rw', isa => 'Mail::MtPolicyd::SessionCache::Base',
  lazy => 1,
  default => sub { Mail::MtPolicyd::SessionCache::None->new },
  handles => [
    'retrieve_session', 'store_session', 'shutdown',
  ],
);

sub load_config {
  my ( $self, $config ) = @_;
	if( ! defined $config->{'module'} ) {
		die('no module defined for SessionCache!');
	}
	my $module = $config->{'module'};
	my $class = 'Mail::MtPolicyd::SessionCache::'.$module;
	my $cache;

  $self->log(1, 'loading SessionCache '.$module);
	my $code = "require ".$class.";";
	eval $code; ## no critic (ProhibitStringyEval)
	if($@) {
    die('could not load SessionCache '.$module.': '.$@);
  }

  $self->log(1, 'initializing SessionCache '.$module);
	eval {
    $cache = $class->new(
      %$config,
    );
    $cache->init();
  };
  if($@) {
    die('could not initialize SessionCache: '.$@);
  }
	$self->cache( $cache );
  return;
}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Mail::MtPolicyd::SessionCache - class for handling session cache

=head1 VERSION

version 2.02

=head1 AUTHOR

Markus Benning <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2014 by Markus Benning <[e-mail]>.

This is free software, licensed under:

  The GNU General Public License, Version 2, June 1991

=cut