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


use strict;

use Test::More tests => 3;

use Devel::Declare::MethodInstaller::Simple;

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;

__END__
1..2
Use of uninitialized value $inject in concatenation (.) or string at /opt/perl/lib/site_perl/5.10.0/i686-linux/Devel/Declare/MethodInstaller/Simple.pm line 81.
ok 1
ok 2
ok 3
# Looks like you planned 2 tests but ran 3.
Commit	Line	Data
b633fbd2	1
	2	use strict;
	3
	4	use Test::More tests => 3;
	5
	6	use Devel::Declare::MethodInstaller::Simple;
	7
	8	BEGIN {
	9	Devel::Declare::MethodInstaller::Simple->install_methodhandler(
	10	name => 'method',
	11	into => 'main',
	12	);
	13	}
	14
	15	is eval { foo() } , undef;
	16	like $@, qr/subroutine &main::foo/;
	17
	18	method foo { 1 }
	19
	20	is foo(), 1;
	21
	22	__END__
	23	1..2
	24	Use of uninitialized value $inject in concatenation (.) or string at /opt/perl/lib/site_perl/5.10.0/i686-linux/Devel/Declare/MethodInstaller/Simple.pm line 81.
	25	ok 1
	26	ok 2
	27	ok 3
	28	# Looks like you planned 2 tests but ran 3.