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

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

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

use Devel::Declare 'method';

my ($args1, $args2);

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

method # blather
  baz
  # whee
{
  $args2 = join(', ', @_);
};

__PACKAGE__->bar(qw(1 2));
__PACKAGE__->baz(qw(3 4));

is($args1, 'main, 1, 2', 'Method bar args ok');
is($args2, 'main, 3, 4', 'Method baz args ok');
Commit	Line	Data
94caac6e	1	use strict;
94caac6e	2	use warnings;
974f5442	3	use Test::More 'no_plan';
94caac6e	4
	5	sub method {
	6	my ($pack, $name, $sub) = @_;
	7	no strict 'refs';
	8	*{"${pack}::${name}"} = $sub;
	9	}
	10
	11	use Devel::Declare 'method';
	12
c630715a	13	my ($args1, $args2);
c630715a	14
94caac6e	15	method bar {
c630715a	16	$args1 = join(', ', @_);
	17	};
	18
	19	method # blather
	20	baz
	21	# whee
	22	{
	23	$args2 = join(', ', @_);
94caac6e	24	};
94caac6e	25
c630715a	26	__PACKAGE__->bar(qw(1 2));
	27	__PACKAGE__->baz(qw(3 4));
	28
	29	is($args1, 'main, 1, 2', 'Method bar args ok');
	30	is($args2, 'main, 3, 4', 'Method baz args ok');