diff options
Diffstat (limited to 'lib/MooseX')
| -rw-r--r-- | lib/MooseX/Privacy/Trait/Private.pm | 2 | ||||
| -rw-r--r-- | lib/MooseX/Privacy/Trait/Protected.pm | 2 | ||||
| -rw-r--r-- | lib/MooseX/Privacy/Trait/Role.pm | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/lib/MooseX/Privacy/Trait/Private.pm b/lib/MooseX/Privacy/Trait/Private.pm index 9f5eeb9..7d16fd7 100644 --- a/lib/MooseX/Privacy/Trait/Private.pm +++ b/lib/MooseX/Privacy/Trait/Private.pm @@ -1,7 +1,7 @@ package MooseX::Privacy::Trait::Private; use Moose::Role; -with 'MooseX::Privacy::Trait::Role' => {name => 'private'}; +with 'MooseX::Privacy::Trait::Role' => {name => 'Private'}; 1; diff --git a/lib/MooseX/Privacy/Trait/Protected.pm b/lib/MooseX/Privacy/Trait/Protected.pm index 0c49719..78d0f11 100644 --- a/lib/MooseX/Privacy/Trait/Protected.pm +++ b/lib/MooseX/Privacy/Trait/Protected.pm @@ -1,7 +1,7 @@ package MooseX::Privacy::Trait::Protected; use Moose::Role; -with 'MooseX::Privacy::Trait::Role' => {name => 'protected'}; +with 'MooseX::Privacy::Trait::Role' => {name => 'Protected'}; 1; 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 ) = @_; |