[p5sagit/Devel-Declare.git] / t / eval.t

use strict;
use warnings;
use Test::More 'no_plan';

sub method {
  my ($usepack, $name, $inpack, $sub) = @_;
  no strict 'refs';
  *{"${inpack}::${name}"} = $sub;
}

sub handle_method {
  my ($usepack, $use, $inpack, $name) = @_;
  return sub (&) { ($usepack, $name, $inpack, $_[0]); };
}

use Devel::Declare 'method' => \&handle_method;

eval "method bar ( ) { 42 }";

is( __PACKAGE__->bar, 42 );
Commit	Line	Data
8f73feac	1	use strict;
	2	use warnings;
	3	use Test::More 'no_plan';
	4
	5	sub method {
	6	my ($usepack, $name, $inpack, $sub) = @_;
	7	no strict 'refs';
	8	*{"${inpack}::${name}"} = $sub;
	9	}
	10
	11	sub handle_method {
	12	my ($usepack, $use, $inpack, $name) = @_;
	13	return sub (&) { ($usepack, $name, $inpack, $_[0]); };
	14	}
	15
	16	use Devel::Declare 'method' => \&handle_method;
	17
3592ff7e	18	eval "method bar ( ) { 42 }";
8f73feac	19
	20	is( __PACKAGE__->bar, 42 );
	21
	22