diff options
Diffstat (limited to '')
| -rw-r--r-- | lib/MooseX/Privacy/Trait/Role.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/MooseX/Privacy/Trait/Role.pm b/lib/MooseX/Privacy/Trait/Role.pm index eb6ac0a..62c4c91 100644 --- a/lib/MooseX/Privacy/Trait/Role.pm +++ b/lib/MooseX/Privacy/Trait/Role.pm @@ -6,7 +6,7 @@ parameter name => ( isa => 'Str', required => 1, ); role { my $p = shift; - my $role_name = "MooseX::Privacy::Meta::Attribute::" . ucfirst($p->name); + my $role_name = "MooseX::Privacy::Meta::Attribute::" . $p->name; around accessor_metaclass => sub { my ( $orig, $self, @rest ) = @_; |