File Coverage

blib/lib/Mail/MtPolicyd/Result.pm

Criterion	Covered	Total	%
statement	14	17	82.3
branch	2	4	50.0
condition			n/a
subroutine	4	5	80.0
pod	0	3	0.0
total	20	29	68.9

package Mail::MtPolicyd::Result;

use Moose;
use namespace::autoclean;

our $VERSION = '1.23'; # VERSION
# ABSTRACT: class to hold the results of a request returned by plugins

has 'plugin_results' => (
	is => 'ro',
	isa => 'ArrayRef[Mail::MtPolicyd::Plugin::Result]',
	lazy => 1,
	default => sub { [] },
	traits => [ 'Array' ],
	handles => {
		'add_plugin_result' => 'push',
	},
);

has 'last_match' => ( is => 'rw', isa => 'Maybe[Str]' );

sub actions {
	my $self = shift;
	return map {
		defined $_->action ? $_->action : ()
	} @{$self->plugin_results};
}

sub as_log {
	my $self = shift;
	return join(',', $self->actions);
}

sub as_policyd_response {
	my $self = shift;
	my @actions = $self->actions;
	if( ! @actions ) {
		# we have nothing to say
		return("action=dunno\n\n");
	}
	return('action='.join("\naction=", @actions)."\n\n");
}

__PACKAGE__->meta->make_immutable;

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Mail::MtPolicyd::Result - class to hold the results of a request returned by plugins

=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