lib/namespace/clean/_PP_OSE_5_8.pm

   1 package # hide from the pauses
   2   namespace::clean::_PP_OSE_5_8;
   3
   4 use warnings;
   5 use strict;
   6
   7 use namespace::clean::_PP_SG;
   8
   9 # This is the original implementation, which sadly is broken
  10 # on perl 5.10+ withing string evals
  11 sub on_scope_end (&) {
  12   $^H |= 0x020000;
  13
  14   push @{$^H{'__namespace::clean__guardstack__'} ||= [] },
  15     namespace::clean::_PP_SG->arm(shift);
  16 }
  17
  18 1;