Login
RT #61311: Subroutines::ProhibitUnusedPrivateSubroutines dies on
[gknop/Perl-Critic.git] / t / Subroutines / ProhibitUnusedPrivateSubroutines.run
index 7e92d75..ae67509 100644 (file)
@@ -183,12 +183,64 @@ sub _Foo::_foo {}
 
 #-----------------------------------------------------------------------------
 
 
 #-----------------------------------------------------------------------------
 
+## name Subroutine called in replacement portion of s/.../.../e
+## failures 0
+## cut
+
+s/ ( foo ) / _bar( $1 ) /smxe;
+
+sub _bar {
+    my ( $foo ) = @_;
+    return $foo x 3;
+}
+
+#-----------------------------------------------------------------------------
+
+## name Subroutine called in regexp interpolation
+## failures 0
+## cut
+
+s/ ( foo ) /@{[ _bar( $1 ) ]}/smx;
+
+sub _bar {
+    my ( $foo ) = @_;
+    return $foo x 3;
+}
+
+#-----------------------------------------------------------------------------
+
+## name Subroutine called in regexp embedded code
+## failures 0
+## cut
+
+m/ (?{ _foo() }) /smx;
+
+sub _foo {
+    return 'bar';
+}
+
+#-----------------------------------------------------------------------------
+
+## name RT 61311: dies on "&_name" call
+## failures 0
+## cut
+
+sub first {
+    &_second();
+}
+
+sub _second {
+    print "A private sub\n";
+}
+
+#-----------------------------------------------------------------------------
+
 
 ##############################################################################
 
 ##############################################################################
-#      $URL: http://perlcritic.tigris.org/svn/perlcritic/trunk/distributions/Perl-Critic/t/Subroutines/ProtectPrivateSubs.run $
-#     $Date: 2009-03-01 13:21:29 -0500 (Sun, 01 Mar 2009) $
-#   $Author: clonezone $
-# $Revision: 3194 $
+#      $URL$
+#     $Date$
+#   $Author$
+# $Revision$
 ##############################################################################
 
 # Local Variables:
 ##############################################################################
 
 # Local Variables: