File Coverage

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

Criterion	Covered	Total	%
statement	6	6	100.0
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	8	8	100.0

package Mail::MtPolicyd::Plugin::Role::PluginChain;

use Moose::Role;

our $VERSION = '2.01'; # VERSION
# ABSTRACT: role for plugins to support a nested plugin chain

use Mail::MtPolicyd::PluginChain;

has 'chain' => (
	is => 'ro',
	isa => 'Maybe[Mail::MtPolicyd::PluginChain]',
	lazy => 1,
	default => sub {
		my $self = shift;
		if( defined $self->Plugin ) {
			return Mail::MtPolicyd::PluginChain->new_from_config(
				$self->vhost_name,
				$self->Plugin,
			);
		}
		return;
	},
);

has 'Plugin' => ( is => 'rw', isa => 'Maybe[HashRef]' );

after 'cron' => sub {
    my $self = shift;
    if( defined $self->chain ) {
        return $self->chain->cron(@_);
    }
    return;
};

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Mail::MtPolicyd::Plugin::Role::PluginChain - role for plugins to support a nested plugin chain

=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