diff options
| author | dakkar <dakkar@thenautilus.net> | 2023-02-28 11:12:45 +0000 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2023-02-28 11:12:45 +0000 |
| commit | c2f50021e72ad485993ee24961bdd905ce9b0318 (patch) | |
| tree | 3af11fe595d5b7f5691dda989a735aa807df27df /lib/Sietima/Role/SubscriberOnly.pm | |
| parent | v1.0.5 (diff) | |
| parent | fix perl critic policy (diff) | |
| download | Sietima-c2f50021e72ad485993ee24961bdd905ce9b0318.tar.gz Sietima-c2f50021e72ad485993ee24961bdd905ce9b0318.tar.bz2 Sietima-c2f50021e72ad485993ee24961bdd905ce9b0318.zip | |
Merge branch 'new-perl'
Diffstat (limited to 'lib/Sietima/Role/SubscriberOnly.pm')
| -rw-r--r-- | lib/Sietima/Role/SubscriberOnly.pm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lib/Sietima/Role/SubscriberOnly.pm b/lib/Sietima/Role/SubscriberOnly.pm index 6524d39..bf845f7 100644 --- a/lib/Sietima/Role/SubscriberOnly.pm +++ b/lib/Sietima/Role/SubscriberOnly.pm @@ -4,7 +4,7 @@ use Sietima::Policy; use Email::Address; use List::AllUtils qw(any); use Types::Standard qw(Object CodeRef); -use Type::Params qw(compile); +use Type::Params -sigs; use namespace::clean; # VERSION @@ -79,9 +79,11 @@ modifications. =cut +signature_for ignoring_subscriberonly => ( + method => Object, + positional => [ CodeRef ], +); sub ignoring_subscriberonly($self,$code) { - state $check = compile(Object,CodeRef); $check->(@_); - local $let_it_pass = 1; return $code->($self); } |