Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?

Re: Problems with overriding a Perl::Critic policy

by Anonymous Monk
on Sep 22, 2013 at 04:37 UTC ( #1055162=note: print w/replies, xml ) Need Help??

in reply to Problems with overriding a Perl::Critic policy - SOLVED

Untested. Just an idea:

require Subroutines::RequireArgUnpack; # Add a fake parent. unshift @Subroutines::RequireArgUnpack::ISA = 'Subroutines::RequireArg +Unpack::Fake'; # Put method you want to override in fake parent. *Subroutines::RequireArgUnpack::Fake = \&Subroutines::RequireArgUnpack +::violates; # Override method in original class. *Subroutines::RequireArgUnpack::violates = sub { my ($self, @args) = @_; # Maybe call overriden method. $self->SUPER::violates(@args); };

Replies are listed 'Best First'.
Re^2: Problems with overriding a Perl::Critic policy
by Grimy (Pilgrim) on Sep 22, 2013 at 10:15 UTC
    I donít understand what youíre trying to do. Care to explain how this idea would allow one to exclude Subroutines::RequireArgUnpack, but to include the subclass? Whatís the purpose of the fake parent?

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1055162]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (5)
As of 2018-08-20 10:27 GMT
Find Nodes?
    Voting Booth?
    Asked to put a square peg in a round hole, I would:

    Results (191 votes). Check out past polls.