aboutsummaryrefslogtreecommitdiff
path: root/lib/Sietima/Role/Debounce.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Sietima/Role/Debounce.pm')
-rw-r--r--lib/Sietima/Role/Debounce.pm6
1 files changed, 2 insertions, 4 deletions
diff --git a/lib/Sietima/Role/Debounce.pm b/lib/Sietima/Role/Debounce.pm
index 59bb1f2..8df53a5 100644
--- a/lib/Sietima/Role/Debounce.pm
+++ b/lib/Sietima/Role/Debounce.pm
@@ -1,13 +1,11 @@
package Sietima::Role::Debounce;
-use 5.024;
use Moo::Role;
+use Sietima::Policy;
use namespace::clean;
my $been_there = 'X-Been-There';
-around munge_mail => sub {
- my ($orig,$self,$incoming_mail) = @_;
-
+around munge_mail => sub ($orig,$self,$incoming_mail) {
my $return_path = $self->return_path->address;
if (my $there = $incoming_mail->header_str($been_there)) {
return if $there =~ m{\b\Q$return_path\E\b};