Add ARM files

[dh-make-perl] / dev / arm / libperl-critic-perl / libperl-critic-perl-1.088 / t / Miscellanea / ProhibitTies.run

diff --git a/dev/arm/libperl-critic-perl/libperl-critic-perl-1.088/t/Miscellanea/ProhibitTies.run b/dev/arm/libperl-critic-perl/libperl-critic-perl-1.088/t/Miscellanea/ProhibitTies.run
new file mode 100644 (file)
index 0000000..b2dcb02
--- /dev/null
+++ b/dev/arm/libperl-critic-perl/libperl-critic-perl-1.088/t/Miscellanea/ProhibitTies.run
@@ -0,0 +1,27 @@
+## name basic failures
+## failures 12
+## cut
+tie $scalar, 'Some::Class';
+tie @array, 'Some::Class';
+tie %hash, 'Some::Class';
+
+tie ($scalar, 'Some::Class');
+tie (@array, 'Some::Class');
+tie (%hash, 'Some::Class');
+
+tie $scalar, 'Some::Class', @args;
+tie @array, 'Some::Class', @args;
+tie %hash, 'Some::Class' @args;
+
+tie ($scalar, 'Some::Class', @args);
+tie (@array, 'Some::Class', @args);
+tie (%hash, 'Some::Class', @args);
+
+#-----------------------------------------------------------------------------
+
+## name basic passes
+## failures 0
+## cut
+$hash{tie} = 'foo';
+%hash = ( tie => 'knot' );
+$object->tie();