uppercase, no need for ucfirst

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 ) = @_;