t/anon.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4 use Test::More;
   5 use Test::Fatal;
   6 use lib 't/lib';
   7
   8 use Test::Requires 'Package::Anon';
   9
  10 use Package::Stash;
  11 use Symbol;
  12
  13 plan skip_all => "Anonymous stashes in PP need at least perl 5.14"
  14     if Package::Stash::BROKEN_GLOB_ASSIGNMENT;
  15
  16 my $anon = Package::Anon->new;
  17 my $stash = Package::Stash->new($anon);
  18 my $obj = $anon->bless({});
  19
  20 {
  21     my $code = sub { 'FOO' };
  22     $stash->add_symbol('&foo' => $code);
  23     is($stash->get_symbol('&foo'), $code);
  24     is($obj->foo, 'FOO');
  25 }
  26
  27 {
  28     $anon->{bar} = \123;
  29
  30     my $code = $stash->get_symbol('&bar');
  31     is(ref($code), 'CODE');
  32     is($code->(), 123);
  33
  34     is($obj->bar, 123);
  35 }
  36
  37 {
  38     $anon->{baz} = -1;
  39
  40     my $code = $stash->get_symbol('&baz');
  41     is(ref($code), 'CODE');
  42     like(
  43         exception { $code->() },
  44         qr/Undefined subroutine \&__ANON__::baz called/
  45     );
  46 }
  47
  48 done_testing;