diff options
| author | franck cuny <franck@lumberjaph.net> | 2010-04-29 14:09:29 +0200 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2010-04-29 14:09:29 +0200 |
| commit | d86f8c99eeee622cb49b2b0e112af9b32049d342 (patch) | |
| tree | 08c6e31c6c9a5051360f626c73c9e90a2fe73ccc /lib | |
| parent | POD (diff) | |
| download | moosex-privacy-d86f8c99eeee622cb49b2b0e112af9b32049d342.tar.gz | |
uppercase, no need for ucfirst
Diffstat (limited to '')
| -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 ) = @_; |