Login
RT #61311: Subroutines::ProhibitUnusedPrivateSubroutines dies on
[gknop/Perl-Critic.git] / t / Subroutines / ProhibitUnusedPrivateSubroutines.run
index 1054225..ae67509 100644 (file)
@@ -183,6 +183,58 @@ 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$