NAME

Fukurama::Class::HideCaller - Pragma to hide wrapper-classes in callers stack

VERSION

Version 0.01 (beta)

SYNOPSIS

 package MyWrapperClass;
 use Fukurama::Class::HideCaller('MyWrapperClass');
 
 sub wrap_around_test {
        my $sub = \&MyClass::test;
        no warnings;
        *MyClass::test = sub {
                print "before, ";
                &{$sub}(@_);
                print "after";
        }
 }
 
 package MyClass;
 sub test {
        no warnings;
        print "middle, caller: " . [caller(0)]->[0] . ", ";
 }
 
 package main;
 MyWrapperClass->wrap_around_test();
 MyClass->test();
 # will print: before, middle, caller: main, after
 # without the HideCaller, it will print: before, middle, caller: MyWrapper, after

DESCRIPTION

This pragma-like module provides functions to hide a wrapper-class in callers stack. It's a helper class to provide parameter and return value checking without changings in any caller stack.

CONFIG

You can disable the whole behavior of this class by setting

 $Fukurama::Class::HideCaller::DISABLE = 1;
 

EXPORT

CORE::GLOBAL::caller

would be decorated

METHODS

register_class( hidden_wrapper_class:STRING ) return:VOID

Register a wrapper class to competely hide in caller stack.

AUTHOR, BUGS, SUPPORT, ACKNOWLEDGEMENTS, COPYRIGHT & LICENSE

see perldoc of Fukurama::Class