The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
# vim: set ts=2 sts=2 sw=2 expandtab smarttab:
package Dist::Zilla::Stash::Test;
# ABSTRACT: Test Dist::Zilla::Role::Stash::Plugins

use strict;
use warnings;
use Moose;
with 'Dist::Zilla::Role::Stash::Plugins';

sub expand_package {
  my ($self, $pack) = @_;
  my %exp = qw(
    + Plus
    - Minus
    @ At
  );
  $pack =~ s/^([@+-])/$exp{$1}::/;
  "Test::$pack";
}

1;