File Coverage

blib/lib/Mail/MtPolicyd/Plugin/SetField.pm

Criterion	Covered	Total	%
statement	9	12	75.0
branch			n/a
condition			n/a
subroutine	3	4	75.0
pod	1	1	100.0
total	13	17	76.4

package Mail::MtPolicyd::Plugin::SetField;

use Moose;
use namespace::autoclean;

our $VERSION = '2.01'; # VERSION
# ABSTRACT: mtpolicyd plugin which just sets and key=value in the session


extends 'Mail::MtPolicyd::Plugin';

use Mail::MtPolicyd::Plugin::Result;

has 'key' => ( is => 'rw', isa => 'Str', required => 1 );
has 'value' => ( is => 'rw', isa => 'Str', required => 1 );

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

__PACKAGE__->meta->make_immutable;

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Mail::MtPolicyd::Plugin::SetField - mtpolicyd plugin which just sets and key=value in the session

=head1 VERSION

version 2.01

=head1 DESCRIPTION

This plugin can be used to set key/values within the session.

=head1 EXAMPLE

  <Plugin set-scanned>
    module = "SetField"
    key=mail-is-scanned
    value=1
  </Plugin>

=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