t/pack.t

   1 use strict;
   2 use warnings;
   3 use Test::More 'no_plan';
   4
   5 sub class { $_[0]->(); }
   6
   7 sub handle_class {
   8   my ($usepack, $use, $inpack, $name, $proto, $is_block) = @_;
   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');