Gecko [ www.thearyasamaj.org ]

Name	Size	Permission
lib	[ DIR ]	drwxr-xr-x
00-basic.t	347 B	-rw-r--r--
01-function-wipeout.t	676 B	-rw-r--r--
02-inheritance.t	737 B	-rw-r--r--
03-unimport.t	427 B	-rw-r--r--
04-except.t	756 B	-rw-r--r--
05-explicit-cleanee.t	1.6 KB	-rw-r--r--
05-syntax-error.t	178 B	-rw-r--r--
06-other-types.t	1.41 KB	-rw-r--r--
07-debugger.t	660 B	-rw-r--r--
07-pseudo-debugger.t	405 B	-rw-r--r--
08-const-sub.t	162 B	-rw-r--r--
09-fiddle-hinthash.t	860 B	-rw-r--r--
10-pure-perl.t	1.93 KB	-rw-r--r--
11-multiclean-in-scope.t	1.55 KB	-rw-r--r--

Code Editor : 11-multiclean-in-scope.t

use strict;
use warnings;

use Test::More tests => 13;

eval q{
  package Class1;
  sub cleaned1 {}
  use namespace::clean;
  1;
} or die $@;

ok !Class1->can('cleaned1'), 'basic clean';

eval q{
  package Class1;
  sub cleaned2 {}
  use namespace::clean;
  1;
} or die $@;

ok !Class1->can('cleaned2'), 'clean same class again';

eval q{
  package Class2;
  sub cleaned1 {}
  use namespace::clean;
  sub left1 {}
  no namespace::clean;
  sub cleaned2 {}
  use namespace::clean;
  1;
} or die $@;

ok !Class2->can('cleaned1'), 'basic clean before no';
ok +Class2->can('left1'),    'basic no clean';
ok !Class2->can('cleaned2'), 'basic clean after no';

eval q{
  package Class2;
  sub cleaned3 {}
  use namespace::clean;
  sub left2 {}
  no namespace::clean;
  sub cleaned4 {}
  use namespace::clean;
  1;
} or die $@;

ok !Class2->can('cleaned3'),  'clean again before no';
ok +Class2->can('left2'),     'clean again no clean';
ok !Class2->can('cleaned4'),  'clean again after no';

eval q{
  package Class3;
  sub cleaned1 {}
  use namespace::clean;
  sub cleaned2 {}
  no namespace::clean;
  {
    sub cleaned3 {}
    use namespace::clean;
  }
  BEGIN {
    package main;
    ok !Class3->can('cleaned3'), 'clean inner scope';
    {
      local $TODO = 'unable to differentiate scopes';
      ok +Class3->can('cleaned1'), 'clean inner scope leaves outer';
    }
    ok +Class3->can('cleaned2'), 'clean inner scope leaves outer no';
  }
  use namespace::clean;
  1;
} or die $@;

ok !Class3->can('cleaned1'), 'clean after scoped';
ok +Class3->can('cleaned2'), 'no clean after scoped';

${this.title}

Code Editor : 11-multiclean-in-scope.t