File Coverage

blib/lib/Class/Privacy.pm

Criterion	Covered	Total	%
statement	14	18	77.7
branch	2	4	50.0
condition	3	6	50.0
subroutine	4	5	80.0
pod			n/a
total	23	33	69.7

package Class::Privacy;

use strict;

require 5.006001; # Overloading %{} et alia doesn't work before this.

our $VERSION = 0.03;

sub import {
    my $class = shift;
    my ($caller, $file) = (caller(0))[0,1];
    my $check = "Class::Privacy::check::$caller";
    eval <<__EOF__;
sub $check {
    my (\$caller, \$file, \$line) = (caller(0))[0,1,2];
    if (\$caller eq "$caller" && \$file eq "$file") {
	return \$_[0];
    } else {
	# Tried to use Carp::croak here but that lead into strange
	# error where Carp::Heavy tried to stringify the object for
	# no apparent good reason.  Anyway, using die() directly
	# is here much simpler and faster.
	die("Cannot dereference '$caller' object at \$file line \$line.\n");
    }
}
package $caller;
use overload
    '\%{}' => \\&$check,
    '\@{}' => \\&$check,
    '\${}' => \\&$check,
    '\&{}' => \\&$check; # Unlikely, but while we are at it...
__EOF__
}

1;
__END__