Dave Cross: Still Munging Data With Perl: Online event - Mar 17 Learn more

requires 'match', 'match_captures';
around ['match','match_captures'] => sub {
my ($orig, $self, $ctx, @args) = @_;
return $self->$orig($ctx, @args) if $ctx->can('user') && $ctx->user->authenticated;
return 0;
};
1;