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

use strict;
use warnings;
use Test::More;

sub class { $_[0]->(); }

sub handle_class {
  my ($usepack, $use, $inpack, $name, $proto, $is_block) = @_;
  return (sub (&) { shift; }, undef, "package ${name};");
}

use Devel::Declare;
use Devel::Declare 'class' => [ DECLARE_PACKAGE, \&handle_class ];

my $packname;

class Foo::Bar {
  $packname = __PACKAGE__;
};

is($packname, 'Foo::Bar', 'Package saved ok');
is(__PACKAGE__, 'main', 'Package scoped correctly');

done_testing;
Commit	Line	Data
15d0d014	1	use strict;
15d0d014	2	use warnings;
b52072dc	3	use Test::More;
15d0d014	4
	5	sub class { $_[0]->(); }
	6
	7	sub handle_class {
9026391e	8	my ($usepack, $use, $inpack, $name, $proto, $is_block) = @_;
15d0d014	9	return (sub (&) { shift; }, undef, "package ${name};");
	10	}
	11
	12	use Devel::Declare;
	13	use Devel::Declare 'class' => [ DECLARE_PACKAGE, \&handle_class ];
	14
	15	my $packname;
	16
	17	class Foo::Bar {
	18	$packname = __PACKAGE__;
	19	};
	20
	21	is($packname, 'Foo::Bar', 'Package saved ok');
	22	is(__PACKAGE__, 'main', 'Package scoped correctly');
b52072dc	23
b52072dc	24	done_testing;