Login
RT #61311: Subroutines::ProhibitUnusedPrivateSubroutines dies on
[gknop/Perl-Critic.git] / t / Subroutines / ProhibitUnusedPrivateSubroutines.run
index 30e806d..ae67509 100644 (file)
@@ -221,6 +221,20 @@ sub _foo {
 
 #-----------------------------------------------------------------------------
 
+## name RT 61311: dies on "&_name" call
+## failures 0
+## cut
+
+sub first {
+    &_second();
+}
+
+sub _second {
+    print "A private sub\n";
+}
+
+#-----------------------------------------------------------------------------
+
 
 ##############################################################################
 #      $URL$