Help language development. Donate to The Perl Foundation

hide-methods cpan:ELIZABETH last updated on 2020-10-20



hide-methods - hide methods of classes during runtime


use hide-methods;

class A {
    method foo() { say "foo" }
};  # foo

hide-methods(A,"foo");;  # X::Method::NotFound

class B {
    method bar() { say "bar" }
};  # bar

my $vault = B.&hide-methods("bar");;  # X::Method::NotFound

$vault.unhide-methods("bar");;  # bar


hide-methods is a module that exports a single subroutine called hide-methods. Calling this subroutine with a class and one or more method names, will hide the indicated methods from execution, resulting in either having a X::Method::NotFound exception thrown, or a method with the same name called from a parent class (if that doesn't happen to be hidden as well, of course).

Handles standard method call dispatch and the .can method on classes. Does not affect dispatch through .?, .+ or .*, or listing with the .^methods method.



hide-methods(A,<foo bar baz>);   # hide "foo","bar","baz" methods in A
A.&hide-methods(<foo bar baz>);  # same, using method syntax

my $vault = hide-methods(B,"zippo");  # allow unhiding

$vault.unhide-methods("zippo");  # make available again

The hide-methods subroutine takes a class as the first parameter, and one or more names of methods to hide. It returns a Vault object that supports a unhide-methods method, that takes the names of the methods that should become available again.


Elizabeth Mattijsen [email protected]

Source can be located at: . Comments and Pull Requests are welcome.


Copyright 2020 Elizabeth Mattijsen

This library is free software; you can redistribute it and/or modify it under the Artistic License 2.0.