Declassify arguments to a perl exported/static method

declassify.pl

use Scalar::Util ('blessed');

###############################|     Declassify     |###############################
sub Declassify
{
	my @params = @_;
	shift (@params) if ($params[0] eq __PACKAGE__);

	my @args  = (ref $params[0] eq 'ARRAY') ? @{$params[0]} : ();
	my $pkg   = $params[1] || __PACKAGE__;
	my $class = blessed($args[0]) || $args[0];

	shift(@args) if ((defined $class) && ($class eq $pkg));

	return @args;
}
#########################################||#########################################

See my write up here for the whens, whys and hows to use this helper method.