String::RewritePrefix(3) User Contributed Perl Documentation String::RewritePrefix(3)

# [SYNOPSIS](#SYNOPSIS)

```
  use String::RewritePrefix;
  my @to_load = String::RewritePrefix->rewrite(
    { '' => 'MyApp::', '+' => '' },
    qw(Plugin Mixin Addon +Corporate::Thinger),
  );
  # now you have:
  qw(MyApp::Plugin MyApp::Mixin MyApp::Addon Corporate::Thinger)
```

You can also import a rewrite routine:

```
  use String::RewritePrefix rewrite => {
    -as => 'rewrite_dt_prefix',
    prefixes => { '' => 'MyApp::', '+' => '' },
  };
  my @to_load = rewrite_dt_prefix( qw(Plugin Mixin Addon +Corporate::Thinger));
  # now you have:
  qw(MyApp::Plugin MyApp::Mixin MyApp::Addon Corporate::Thinger)
```

```
  String::RewritePrefix->rewrite(\%prefix, @strings);
```

This rewrites all the given strings using the rules in %prefix. Its keys are known prefixes for which its values will be substituted. This is performed in longest-first order, and only one prefix will be rewritten.

If the prefix value is a coderef, it will be executed with the remaining string as its only argument. The return value will be used as the prefix.

# [POD ERRORS](#POD_ERRORS)

Hey! **The above document had some coding errors, which are explained below:**

[Around line 36:](#Around)

Unknown directive: =method

2026-10-25 perl v5.44.0

---

Document: String::RewritePrefix(3pm) from perl-string-rewriteprefix 0.009-r3 (Chainguard OS)
Source: https://github.com/rjbs/String-RewritePrefix