Build all packages removed dependencies of libtest-exception-perl libtest-warn-perl...

[dh-make-perl] / dev / i386 / libperl-critic-perl / libperl-critic-perl-1.088 / t / Subroutines / ProhibitAmpersandSigils.run

diff --git a/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/Subroutines/ProhibitAmpersandSigils.run b/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/Subroutines/ProhibitAmpersandSigils.run
new file mode 100644 (file)
index 0000000..6652f2b
--- /dev/null
+++ b/dev/i386/libperl-critic-perl/libperl-critic-perl-1.088/t/Subroutines/ProhibitAmpersandSigils.run
@@ -0,0 +1,39 @@
+## name basic failures
+## failures 7
+## cut
+
+&function_call();
+&my_package::function_call();
+&function_call( $args );
+&my_package::function_call( %args );
+&function_call( &other_call( @foo ), @bar );
+&::function_call();
+
+#-----------------------------------------------------------------------------
+
+## name basic passing
+## failures 0
+## cut
+exists &function_call;
+defined &function_call;
+\ &function_call;
+\&function_call;
+exists &my_package::function_call;
+defined &my_package::function_call;
+\ &my_package::function_call;
+\&my_package::function_call;
+$$foo; # for Devel::Cover; skip non-backslash casts
+
+#-----------------------------------------------------------------------------
+
+## name more passing
+## failures 0
+## cut
+function_call();
+my_package::function_call();
+function_call( $args );
+my_package::function_call( %args );
+function_call( other_call( @foo ), @bar );
+\&my_package::function_call;
+\&function_call;
+goto &foo;