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