git.maemo.org Git - pkg-perl/blob - deb-src/libperl-critic-perl/libperl-critic-perl-1.088/t/TestingAndDebugging/ProhibitNoStrict.run

   1 ## name strictures disabled
   2 ## failures 1
   3 ## cut
   4
   5 package foo;
   6 no strict;
   7
   8 #-----------------------------------------------------------------------------
   9
  10 ## name selective strictures disabled
  11 ## failures 1
  12 ## cut
  13
  14 package foo;
  15 no strict 'refs', 'vars';
  16
  17 #-----------------------------------------------------------------------------
  18
  19 ## name selective strictures disabled
  20 ## failures 1
  21 ## cut
  22
  23 package foo;
  24 no strict qw(vars refs subs);
  25
  26 #-----------------------------------------------------------------------------
  27
  28 ## name allowed no strict
  29 ## failures 0
  30 ## parms { allow => 'vars refs subs' }
  31 ## cut
  32
  33 package foo;
  34 no strict qw(vars refs subs);
  35
  36 #-----------------------------------------------------------------------------
  37
  38 ## name allowed no strict
  39 ## failures 0
  40 ## parms { allow => 'vars refs subs' }
  41 ## cut
  42
  43 package foo;
  44 no strict "vars", "refs", "subs";
  45
  46 #-----------------------------------------------------------------------------
  47
  48 ## name partially allowed no strict
  49 ## failures 1
  50 ## parms {allow => 'VARS SUBS'}
  51 # Note wrong case!
  52 ## cut
  53
  54 package foo;
  55 no strict "vars", "refs", 'subs';
  56
  57 #-----------------------------------------------------------------------------
  58
  59 ## name partially allowed no strict
  60 ## failures 1
  61 ## parms {allow => 'VARS SUBS'}
  62 # Note wrong case!
  63 ## cut
  64
  65 package foo;
  66 no strict qw(vars refs subs);
  67
  68 #-----------------------------------------------------------------------------
  69
  70 ## name allow no strict, mixed case config
  71 ## parms {allow => 'RefS SuBS'}
  72 ## failures 0
  73 ## cut
  74
  75 package foo;
  76 no strict qw(refs subs);
  77
  78 #-----------------------------------------------------------------------------
  79
  80 ## name allow no strict, comma-delimimted config
  81 ## parms {allow => 'refs,subs'}
  82 ## failures 0
  83 ## cut
  84
  85 package foo;
  86 no strict "refs", "subs";
  87
  88 #-----------------------------------------------------------------------------
  89
  90 ## name wrong case, funky config
  91 ## parms { allow => 'REfs;vArS' }
  92 ## failures 1
  93 ## cut
  94
  95 package foo;
  96 no strict "refs", 'vars', "subs";