t/07-debugger.t

   1 use Test::More;
   2
   3 BEGIN {
   4   $ENV{PERLDB_OPTS} = 'NonStop';
   5 }
   6
   7 BEGIN {
   8
   9 #line 1
  10 #!/usr/bin/perl -d
  11 #line 10
  12
  13 }
  14
  15 {
  16     package Foo;
  17
  18     BEGIN { *baz = sub { 42 } }
  19     sub foo { 22 }
  20
  21     use namespace::clean;
  22
  23     sub bar {
  24         ::is(baz(), 42);
  25         ::is(foo(), 22);
  26     }
  27 }
  28
  29 ok( !Foo->can("foo"), "foo cleaned up" );
  30 ok( !Foo->can("baz"), "baz cleaned up" );
  31
  32 Foo->bar();
  33
  34 done_testing;