diff options
Diffstat (limited to 'lib/Sietima/Role/Debounce.pm')
-rw-r--r-- | lib/Sietima/Role/Debounce.pm | 6 |
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}; |