From d86f8c99eeee622cb49b2b0e112af9b32049d342 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Thu, 29 Apr 2010 14:09:29 +0200
Subject: uppercase, no need for ucfirst

---
 lib/MooseX/Privacy/Trait/Private.pm   | 2 +-
 lib/MooseX/Privacy/Trait/Protected.pm | 2 +-
 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 ) = @_;
-- 
cgit 1.4.1