File Coverage

blib/lib/Mail/MtPolicyd/Plugin/Role/UserConfig.pm

Criterion	Covered	Total	%
statement	15	16	93.7
branch	5	6	83.3
condition			n/a
subroutine	3	3	100.0
pod	0	1	0.0
total	23	26	88.4

package Mail::MtPolicyd::Plugin::Role::UserConfig;

use strict; # make critic happy
use MooseX::Role::Parameterized;

our $VERSION = '2.01'; # VERSION
# ABSTRACT: role for plugins using per user/request configuration

parameter uc_attributes => (
        isa      => 'ArrayRef',
        required => 1,
);

role {
	my $p = shift;

	foreach my $attribute ( @{$p->uc_attributes} ) {
		has 'uc_'.$attribute => (
			is => 'rw',
			isa => 'Maybe[Str]',
		);
	}
};

sub get_uc {
	my ($self, $session, $attr) = @_;
	my $uc_attr = 'uc_'.$attr;

	if( ! $self->can($uc_attr) ) {
		die('there is no user config attribute '.$uc_attr.'!');
	}
	if( ! defined $self->$uc_attr ) {
		return $self->$attr;
	}
	my $session_value = $session->{$self->$uc_attr};
	if( ! defined $session_value ) {
		return $self->$attr;
	}
	return $session_value;
}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Mail::MtPolicyd::Plugin::Role::UserConfig - role for plugins using per user/request configuration

=head1 VERSION

version 2.01

=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