Add ARM files

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

diff --git a/dev/arm/libperl-critic-perl/libperl-critic-perl-1.088/t/Subroutines/ProhibitExcessComplexity.run b/dev/arm/libperl-critic-perl/libperl-critic-perl-1.088/t/Subroutines/ProhibitExcessComplexity.run
new file mode 100644 (file)
index 0000000..b92f9a1
--- /dev/null
+++ b/dev/arm/libperl-critic-perl/libperl-critic-perl-1.088/t/Subroutines/ProhibitExcessComplexity.run
@@ -0,0 +1,46 @@
+## name parm-based pass
+## failures 0
+## parms { max_mccabe => 100 }
+## cut
+sub test_sub {
+    if ( $foo && $bar || $baz ) {
+        open my $fh, '<', $file or die $!;
+    }
+    elsif ( $blah >>= some_function() ) {
+        return if $barf;
+    }
+    else {
+        $results = $condition ? 1 : 0;
+    }
+    croak unless $result;
+
+    while( $condition ){ frobulate() }
+    until( $foo > $baz ){ blech() }
+}
+
+#-----------------------------------------------------------------------------
+
+## name parm-based failure
+## failures 1
+## parms { max_mccabe => 1 }
+## cut
+sub test_sub {
+    if ( $foo && $bar || $baz ) {
+        open my $fh, '<', $file or die $!;
+    }
+    elsif ( $blah >>= some_function() ) {
+        return if $barf;
+    }
+    else {
+        $results = $condition ? 1 : 0;
+    }
+    croak unless $result;
+}
+
+#-----------------------------------------------------------------------------
+
+## name no-op sub
+## failures 0
+## cut
+sub test_sub {
+}