File Coverage

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

Criterion	Covered	Total	%
statement	28	28	100.0
branch	4	4	100.0
condition			n/a
subroutine	6	6	100.0
pod	0	1	0.0
total	38	39	97.4

package Mail::MtPolicyd::Plugin::Role::Scoring;

use Moose::Role;

our $VERSION = '1.23'; # VERSION
# ABSTRACT: role for plugins using scoring

has 'score_field' => (
	is => 'ro', isa => 'Str', default => 'score',
);

sub _get_score {
	my ( $self, $r ) = @_;
	my $session = $r->session;
	if( defined $session->{$self->score_field} ) {
		return $session->{$self->score_field};
	}
	return 0;
}

sub _set_score {
	my ( $self, $r, $value ) = @_;
	my $session = $r->session;
	return $session->{$self->score_field} = $value;
}

sub _push_score_detail {
	my ( $self, $r, $string ) = @_;
	my $session = $r->session;
	my $field = $self->score_field . '_detail';
	if( ! defined $session->{$field} ) {
		$session->{$field} = $string;
		return;
	}
	$session->{$field} .= ', '.$string;
	return;
}

sub _get_score_detail {
	my ( $self, $r ) = @_;
	my $field = $self->score_field . '_detail';
	return( $r->session->{$field} );
}

sub add_score {
	my ( $self, $r, $key, $value ) = @_;

	my $score = $self->_get_score($r);
	$score += $value;
	$self->_set_score($r, $score);

	$self->_push_score_detail($r, $key.'='.$value);

	return $score;
}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Mail::MtPolicyd::Plugin::Role::Scoring - role for plugins using scoring

=head1 VERSION

version 1.23

=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