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

Version 0.01 (beta)

 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

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.

You can disable the whole behavior of this class by setting

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

CORE::GLOBAL::caller

would be decorated

register_class( hidden_wrapper_class:STRING ) return:VOID

Register a wrapper class to competely hide in caller stack.

see perldoc of Fukurama::Class