t/simple.t

   1 use strict;
   2 use warnings FATAL => 'all';
   3 use Sub::ScalarLike ();
   4 use Test::More;
   5
   6 BEGIN {
   7   package Spoon;
   8
   9   my %scope; sub _SCOPE { \%scope }
  10
  11   BEGIN { Sub::ScalarLike::setup_for(__PACKAGE__) }
  12
  13   sub froom {
  14     foo = bar + baz;
  15   }
  16
  17   BEGIN { Sub::ScalarLike::teardown_for(__PACKAGE__) }
  18 }
  19
  20 ok(Spoon->can($_), "sub for $_ created") for qw(foo bar baz);
  21
  22 Spoon->_SCOPE->{bar} = 1;
  23 Spoon->_SCOPE->{baz} = 2;
  24
  25 Spoon::froom();
  26
  27 cmp_ok(Spoon->_SCOPE->{foo}, '==', 3, 'bareword assign also works');
  28
  29 done_testing;