[p5sagit/Devel-Declare.git] / t / method-installer-runtime.t


use strict;

use Test::More tests => 3;

use lib 'lib';
use Devel::Declare::MethodInstaller::Simple;

# suppress warnings
sub Devel::Declare::MethodInstaller::Simple::parse_proto { '' }

BEGIN {
  Devel::Declare::MethodInstaller::Simple->install_methodhandler(
    name => 'method',
    into => 'main',
  );
}

is eval { foo() } , undef;
like $@, qr/subroutine &main::foo/;

method foo { 1 }

is foo(), 1;
Commit	Line	Data
b633fbd2	1
	2	use strict;
	3
	4	use Test::More tests => 3;
	5
2a707961	6	use lib 'lib';
b633fbd2	7	use Devel::Declare::MethodInstaller::Simple;
b633fbd2	8
2a707961	9	# suppress warnings
	10	sub Devel::Declare::MethodInstaller::Simple::parse_proto { '' }
	11
b633fbd2	12	BEGIN {
	13	Devel::Declare::MethodInstaller::Simple->install_methodhandler(
	14	name => 'method',
	15	into => 'main',
	16	);
	17	}
	18
	19	is eval { foo() } , undef;
	20	like $@, qr/subroutine &main::foo/;
	21
	22	method foo { 1 }
	23
	24	is foo(), 1;
	25