vcs.maemo.org Git - dh-make-perl/blob - dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/Variables/ProhibitPerl4PackageNames.run

   1 ## name Perl 4 package declarations
   2 ## failures 3
   3 ## cut
   4
   5
   6 package Foo'Bar;
   7 package Foo::Bar'Baz;
   8 package Foo'Bar::Baz;
   9
  10 #-----------------------------------------------------------------------------
  11 ## name Perl 5 package declarations
  12 ## failures 0
  13 ## cut
  14
  15 package Foo;
  16 package Foo::Bar;
  17 package Foo::Bar::Baz;
  18
  19 #-----------------------------------------------------------------------------
  20 ## name Perl 4 simple variable access
  21 ## failures 9
  22 ## cut
  23
  24
  25 my $x = $Foo'bar;
  26 my $x = $Foo'Bar::baz;
  27 my $x = $Foo::Bar'baz;
  28
  29 my @x = @Foo'bar;
  30 my @x = @Foo'Bar::baz;
  31 my @x = @Foo::Bar'baz;
  32
  33
  34 my %x = %Foo'bar;
  35 my %x = %Foo'Bar::baz;
  36 my %x = %Foo::Bar'baz;
  37
  38 #-----------------------------------------------------------------------------
  39 ## name Perl 5 simple variable access
  40 ## failures 0
  41 ## cut
  42
  43 my $x = $Foo::bar;
  44 my $x = $Foo::Bar::baz;
  45
  46 my @x = @Foo;
  47 my @x = @Foo::bar;
  48
  49 my %x = %Foo::baz;
  50 my %x = %Foo::Bar::baz;
  51
  52 #-----------------------------------------------------------------------------
  53 ## name Perl 4 simple variable assignment
  54 ## failures 9
  55 ## cut
  56
  57 $Foo'bar       = $x;
  58 $Foo'Bar::baz  = $x;
  59 $Foo::Bar'baz  = $x;
  60
  61 @Foo'bar       = @x;
  62 @Foo'Bar::baz  = @x;
  63 @Foo::Bar'baz  = @x;
  64
  65 %Foo'bar       = %x;
  66 %Foo'Bar::baz  = %x;
  67 %Foo::Bar'baz  = %x;
  68
  69 #-----------------------------------------------------------------------------
  70 ## name Perl 4 localized variable assignment
  71 ## failures 11
  72 ## cut
  73
  74 local $Foo'bar       = $x;
  75 local $Foo'Bar::baz  = $x;
  76 local $Foo::Bar'baz  = $x;
  77
  78 local @Foo'bar       = @x;
  79 local @Foo'Bar::baz  = @x;
  80 local @Foo::Bar'baz  = @x;
  81
  82 local %Foo'bar       = %x;
  83 local %Foo'Bar::baz  = %x;
  84 local %Foo::Bar'baz  = %x;
  85
  86 local ($Foo'Bar'baz, $Foo'Bar'bam) = @list;
  87
  88 #-----------------------------------------------------------------------------
  89 ## name Perl 5 simple variable assignment
  90 ## failures 0
  91 ## cut
  92
  93 $Foo::Bar = $x;
  94 $Foo::Bar::baz = $x;
  95
  96 @Foo::Bar = @x;
  97 @Foo::Bar::baz = @x;
  98
  99 %Foo::Bar = %x;
 100 %Foo::Bar::baz = %x;
 101
 102 #-----------------------------------------------------------------------------
 103 ## name Perl 5 localized variable assignment
 104 ## failures 0
 105 ## cut
 106
 107 local $Foo::Bar = $x;
 108 local $Foo::Bar::baz = $x;
 109
 110 local @Foo::Bar = @x;
 111 local @Foo::Bar::baz = @x;
 112
 113 local %Foo::Bar = %x;
 114 local %Foo::Bar::baz = %x;
 115
 116 local ($Foo::Bar::baz, $Foo::Bar::bam) = @list;
 117
 118 #-----------------------------------------------------------------------------
 119 ## name Perl 4 simple subroutine invocation
 120 ## failures 8
 121 ## cut
 122
 123 Foo'bar();
 124 &Foo'bar;
 125 Foo'Bar::baz($x, 'y');
 126 Foo::Bar'baz($x, 'y');
 127
 128 my $x = Foo'bar();
 129 my $x = &Foo'bar;
 130 my $x = Foo'Bar::baz($x, 'y');
 131 my $x = Foo::Bar'baz($x, 'y');
 132
 133 #-----------------------------------------------------------------------------
 134 ## name Perl 5 simple subroutine invocation
 135 ## failures 0
 136 ## cut
 137
 138 Foo::bar();
 139 &Foo::bar;
 140 Foo::Bar::baz($x, 'y');
 141 my $x = Foo::bar();
 142 my $x = &Foo::bar;
 143 my $x = Foo::Bar::baz($x, 'y');
 144
 145 #-----------------------------------------------------------------------------
 146 ## name Perl 4 simple direct class method invocation
 147 ## failures 8
 148 ## cut
 149
 150 Foo'bar->new();
 151 &Foo'bar->new;
 152 Foo'Bar::baz->new($x, 'y');
 153 Foo::Bar'baz->new($x, 'y');
 154
 155 my $x = Foo'bar->new();
 156 my $x = &Foo'bar->new;
 157 my $x = Foo'Bar::baz->new($x, 'y');
 158 my $x = Foo::Bar'baz->new($x, 'y');
 159
 160 #-----------------------------------------------------------------------------
 161 ## name Perl 5 simple direct class method invocation
 162 ## failures 0
 163 ## cut
 164
 165 Foo::bar->new();
 166 &Foo::bar->new;
 167 Foo::Bar::baz->new($x, 'y');
 168
 169 my $x = &Foo::bar->new;
 170 my $x = Foo::bar->new();
 171 my $x = Foo::Bar::baz->new($x, 'y');
 172
 173 #-----------------------------------------------------------------------------
 174 ## name Perl 4 simple indirect class method invocation
 175 ## failures 4
 176 ## cut
 177
 178 $z = new Foo'bar();
 179 $z = new Foo'bar;
 180 $z = new Foo'Bar::baz($x, 'y');
 181 $z = new Foo::Bar'baz($x, 'y');
 182
 183 #-----------------------------------------------------------------------------
 184 ## name Perl 5 simple indirect class method invocation
 185 ## failures 0
 186 ## cut
 187
 188 $z = new Foo::bar();
 189 $z = new Foo::bar;
 190 $z = new Foo::Bar::baz($x, 'y');
 191
 192 #-----------------------------------------------------------------------------
 193 ## name complicated statements
 194 ## failures 20
 195 ## cut
 196
 197 # If PPI ever gains the ability to parse regexes failures ought to be 26.
 198 @Foo::bar = Xyzzy::Qux::corge(Grault::Thud->fred('x') + new Plugh::Waldo) =~ m/ a $B::C::d e /xms;
 199 @Foo'bar = Xyzzy::Qux::corge(Grault::Thud->fred('x') + new Plugh::Waldo) =~ m/ a $B::C::d e /xms;
 200 @Foo::bar = Xyzzy'Qux::corge(Grault::Thud->fred('x') + new Plugh::Waldo) =~ m/ a $B::C::d e /xms;
 201 @Foo::bar = Xyzzy::Qux'corge(Grault::Thud->fred('x') + new Plugh::Waldo) =~ m/ a $B::C::d e /xms;
 202 @Foo::bar = Xyzzy::Qux::corge(Grault'Thud->fred('x') + new Plugh::Waldo) =~ m/ a $B::C::d e /xms;
 203 @Foo::bar = Xyzzy::Qux::corge(Grault::Thud->fred('x') + new Plugh'Waldo) =~ m/ a $B::C::d e /xms;
 204 @Foo::bar = Xyzzy::Qux::corge(Grault::Thud->fred('x') + new Plugh::Waldo) =~ m/ a $B'C::d e /xms;
 205 @Foo::bar = Xyzzy::Qux::corge(Grault::Thud->fred('x') + new Plugh::Waldo) =~ m/ a $B::C'd e /xms;
 206
 207 @Foo'bar = Xyzzy::Qux'corge(Grault::Thud->fred('x') + new Plugh::Waldo) =~ m/ a $B::C::d e /xms;
 208 @Foo::bar = Xyzzy'Qux::corge(Grault'Thud->fred('x') + new Plugh::Waldo) =~ m/ a $B::C::d e /xms;
 209 @Foo::bar = Xyzzy::Qux'corge(Grault::Thud->fred('x') + new Plugh'Waldo) =~ m/ a $B::C::d e /xms;
 210 @Foo::bar = Xyzzy::Qux::corge(Grault'Thud->fred('x') + new Plugh::Waldo) =~ m/ a $B'C::d e /xms;
 211 @Foo::bar = Xyzzy::Qux::corge(Grault::Thud->fred('x') + new Plugh'Waldo) =~ m/ a $B::C'd e /xms;
 212
 213 @Foo'bar = Xyzzy::Qux'corge(Grault::Thud->fred('x') + new Plugh'Waldo) =~ m/ a $B'C::d e /xms;
 214
 215 @Foo'bar = Xyzzy'Qux'corge(Grault'Thud->fred('x') + new Plugh'Waldo) =~ m/ a $B'C'd e /xms;
 216
 217
 218 #-----------------------------------------------------------------------------
 219
 220 ## name hash keys
 221 ## failures 0
 222 ## cut
 223
 224 $foo = { bar'baz => 0 };
 225 print $foo{ bar'baz };
 226
 227
 228 #-----------------------------------------------------------------------------
 229
 230 ## name $POSTMATCH
 231 ## failures 0
 232 ## cut
 233
 234 $foo = $';
 235 print $';
 236
 237 @foo = @';
 238 %foo = %';
 239 $foo = \&';
 240 *foo = *';
 241
 242
 243 #-----------------------------------------------------------------------------
 244
 245 ##############################################################################
 246 #      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/Variables/ProhibitPerl4PackageNames.run $
 247 #     $Date: 2008-05-20 22:43:14 -0500 (Tue, 20 May 2008) $
 248 #   $Author: clonezone $
 249 # $Revision: 2391 $
 250 ##############################################################################
 251
 252 # Local Variables:
 253 #   mode: cperl
 254 #   cperl-indent-level: 4
 255 #   fill-column: 78
 256 #   indent-tabs-mode: nil
 257 #   c-indentation-style: bsd
 258 # End:
 259 # ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :