Add ARM files

[dh-make-perl] / dev / arm / libperl-critic-perl / libperl-critic-perl-1.088 / t / Subroutines / ProhibitExplicitReturnUndef.run

diff --git a/dev/arm/libperl-critic-perl/libperl-critic-perl-1.088/t/Subroutines/ProhibitExplicitReturnUndef.run b/dev/arm/libperl-critic-perl/libperl-critic-perl-1.088/t/Subroutines/ProhibitExplicitReturnUndef.run
new file mode 100644 (file)
index 0000000..632d32a
--- /dev/null
+++ b/dev/arm/libperl-critic-perl/libperl-critic-perl-1.088/t/Subroutines/ProhibitExplicitReturnUndef.run
@@ -0,0 +1,38 @@
+## name simple failure
+## failures 3
+## cut
+
+sub test_sub1 {
+       $foo = shift;
+       return undef;
+}
+
+sub test_sub2 {
+       shift || return undef;
+}
+
+sub test_sub3 {
+       return undef if $bar;
+}
+
+#-----------------------------------------------------------------------------
+
+## name simple success
+## failures 0
+## cut
+
+sub test_sub1 {
+       $foo = shift;
+       return;
+}
+
+sub test_sub2 {
+       shift || return;
+}
+
+sub test_sub3 {
+       return if $bar;
+}
+
+$foo{return}; # hash key, not keyword
+sub foo {return}; # no sibling