summary refs log tree commit diff
diff options
context:
space:
mode:
authorfranck cuny <franck@lumberjaph.net>2010-04-29 14:09:29 +0200
committerfranck cuny <franck@lumberjaph.net>2010-04-29 14:09:29 +0200
commitd86f8c99eeee622cb49b2b0e112af9b32049d342 (patch)
tree08c6e31c6c9a5051360f626c73c9e90a2fe73ccc
parentPOD (diff)
downloadmoosex-privacy-d86f8c99eeee622cb49b2b0e112af9b32049d342.tar.gz
uppercase, no need for ucfirst
-rw-r--r--lib/MooseX/Privacy/Trait/Private.pm2
-rw-r--r--lib/MooseX/Privacy/Trait/Protected.pm2
-rw-r--r--lib/MooseX/Privacy/Trait/Role.pm2
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 ) = @_;