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

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

use Devel::Declare ();

BEGIN {
  Devel::Declare->build_sub_installer('Foo', 'bar', '&')
                ->(sub { $_[0]->("woot"); });
}

my $args;

{
  package Foo;

  bar { $args = join(', ', @_); };
}

is($args, 'woot', 'sub installer worked');
Commit	Line	Data
8e0cf192	1	use strict;
	2	use warnings;
	3	use Test::More 'no_plan';
	4
	5	use Devel::Declare ();
	6
	7	BEGIN {
	8	Devel::Declare->build_sub_installer('Foo', 'bar', '&')
	9	->(sub { $_[0]->("woot"); });
	10	}
	11
	12	my $args;
	13
	14	{
	15	package Foo;
	16
	17	bar { $args = join(', ', @_); };
	18	}
	19
	20	is($args, 'woot', 'sub installer worked');