Add ARM files

[dh-make-perl] / dev / arm / libperl-critic-perl / libperl-critic-perl-1.088 / t / Variables / ProhibitPackageVars.run

diff --git a/dev/arm/libperl-critic-perl/libperl-critic-perl-1.088/t/Variables/ProhibitPackageVars.run b/dev/arm/libperl-critic-perl/libperl-critic-perl-1.088/t/Variables/ProhibitPackageVars.run
new file mode 100644 (file)
index 0000000..db4bdc5
--- /dev/null
+++ b/dev/arm/libperl-critic-perl/libperl-critic-perl-1.088/t/Variables/ProhibitPackageVars.run
@@ -0,0 +1,149 @@
+## name Basic failures
+## failures 15
+## cut
+
+our $var1 = 'foo';
+our (%var2, %var3) = 'foo';
+our (%VAR4, $var5) = ();
+
+$Package::foo;
+@Package::list = ('nuts');
+%Package::hash = ('nuts');
+
+$::foo = $bar;
+@::foo = ($bar);
+%::foo = ();
+
+use vars qw($fooBar $baz);
+use vars qw($fooBar @EXPORT);
+use vars '$fooBar', "$baz";
+use vars '$fooBar', '@EXPORT';
+use vars ('$fooBar', '$baz');
+use vars ('$fooBar', '@EXPORT');
+
+
+#-----------------------------------------------------------------------------
+
+## name Basic passes - our
+## failures 0
+## cut
+
+our $VAR1 = 'foo';
+our (%VAR2, %VAR3) = ();
+our $VERSION = '1.0';
+our @EXPORT = qw(some symbols);
+
+#-----------------------------------------------------------------------------
+
+## name Basic passes - use vars
+## failures 0
+## cut
+
+use vars qw($VERSION @EXPORT);
+use vars ('$VERSION, '@EXPORT');
+use vars  '$VERSION, '@EXPORT';
+
+use vars  '+foo'; #Illegal, but not a violaton
+
+#-----------------------------------------------------------------------------
+
+## name Basic passes - symbols
+## failures 0
+## cut
+
+#local $Foo::bar;
+#local @This::that;
+#local %This::that;
+#local $This::that{ 'key' };
+#local $This::that[ 1 ];
+#local (@Baz::bar, %Baz::foo);
+
+$Package::VERSION = '1.2';
+%Package::VAR = ('nuts');
+@Package::EXPORT = ();
+
+$::VERSION = '1.2';
+%::VAR = ('nuts');
+@::EXPORT = ();
+&Package::my_sub();
+&::my_sub();
+*foo::glob = $code_ref;
+
+#-----------------------------------------------------------------------------
+
+## name Lexicals should pass
+## failures 0
+## cut
+
+my $var1 = 'foo';
+my %var2 = 'foo';
+my ($foo, $bar) = ();
+
+
+#-----------------------------------------------------------------------------
+
+## name Default package exceptions
+## failures 0
+## cut
+
+use File::Find;
+print $File::Find::dir;
+use Data::Dumper;
+$Data::Dumper::Indent = 1;
+
+#-----------------------------------------------------------------------------
+
+## name Add to default exceptions
+## parms {add_packages => 'Addl::Package'}
+## failures 3
+## cut
+
+
+use File::Find;
+print $File::Find::dir;
+
+$Addl::Package::bar = 27;
+
+$Addl::Other::wango = 9;
+$Addl::Other::tango = 9;
+$Addl::Other::bango = 9;
+
+
+#-----------------------------------------------------------------------------
+
+## name Override default package exceptions
+## parms {add_packages => 'Incorrect::Override::Package'}
+## failures 2
+## cut
+
+use File::Find;
+print $File::Find::dir;
+$Override::Defaults::wango = $x;
+$Override::Defaults::tango = 47;
+
+#-----------------------------------------------------------------------------
+
+## name Override default package exceptions, null package
+## parms {add_packages => 'Incorrect::Override::Package'}
+## failures 1
+## cut
+
+$::foo = 1;
+
+#-----------------------------------------------------------------------------
+
+##############################################################################
+#      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/Perl-Critic/t/Variables/ProhibitPackageVars.run $
+#     $Date: 2008-03-16 17:40:45 -0500 (Sun, 16 Mar 2008) $
+#   $Author: clonezone $
+# $Revision: 2187 $
+##############################################################################
+
+# Local Variables:
+#   mode: cperl
+#   cperl-indent-level: 4
+#   fill-column: 78
+#   indent-tabs-mode: nil
+#   c-indentation-style: bsd
+# End:
+# ex: set ts=8 sts=4 sw=4 tw=78 ft=perl expandtab shiftround :