use Carp 'confess';
-our $VERSION = '0.87';
+our $VERSION = '1.02';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use base 'Class::MOP::Method';
+use constant _PRINT_SOURCE => $ENV{MOP_PRINT_SOURCE} ? 1 : 0;
+
## accessors
sub new {
my $e = do {
local $@;
local $SIG{__DIE__};
- $code = eval join
+ my $source = join
"\n", (
map {
/^([\@\%\$])/
} keys %$__captures
),
$_[2];
+ print STDERR "\n", $_[0]->name, ":\n", $source, "\n" if _PRINT_SOURCE;
+ $code = eval $source;
$@;
};
=head1 COPYRIGHT AND LICENSE
-Copyright 2006-2009 by Infinity Interactive, Inc.
+Copyright 2006-2010 by Infinity Interactive, Inc.
L<http://www.iinteractive.com>