summaryrefslogtreecommitdiff
path: root/lib/MooseX/Privacy
diff options
context:
space:
mode:
Diffstat (limited to 'lib/MooseX/Privacy')
-rw-r--r--lib/MooseX/Privacy/Meta/Attribute/Private.pm1
-rw-r--r--lib/MooseX/Privacy/Meta/Attribute/Protected.pm1
-rw-r--r--lib/MooseX/Privacy/Meta/Class.pm68
-rw-r--r--lib/MooseX/Privacy/Meta/Class/Role.pm28
4 files changed, 67 insertions, 31 deletions
diff --git a/lib/MooseX/Privacy/Meta/Attribute/Private.pm b/lib/MooseX/Privacy/Meta/Attribute/Private.pm
index 9e5bc70..241c6fb 100644
--- a/lib/MooseX/Privacy/Meta/Attribute/Private.pm
+++ b/lib/MooseX/Privacy/Meta/Attribute/Private.pm
@@ -2,7 +2,6 @@ package MooseX::Privacy::Meta::Attribute::Private;
use Moose::Role;
use Carp qw/confess/;
-use MooseX::Types::Moose qw/Str ArrayRef/;
sub _generate_accessor_method {
my $self = shift;
diff --git a/lib/MooseX/Privacy/Meta/Attribute/Protected.pm b/lib/MooseX/Privacy/Meta/Attribute/Protected.pm
index 063a2c0..05af63b 100644
--- a/lib/MooseX/Privacy/Meta/Attribute/Protected.pm
+++ b/lib/MooseX/Privacy/Meta/Attribute/Protected.pm
@@ -2,7 +2,6 @@ package MooseX::Privacy::Meta::Attribute::Protected;
use Moose::Role;
use Carp qw/confess/;
-use MooseX::Types::Moose qw/Str ArrayRef/;
sub _generate_accessor_method {
my $self = shift;
diff --git a/lib/MooseX/Privacy/Meta/Class.pm b/lib/MooseX/Privacy/Meta/Class.pm
index 0361035..554752c 100644
--- a/lib/MooseX/Privacy/Meta/Class.pm
+++ b/lib/MooseX/Privacy/Meta/Class.pm
@@ -3,7 +3,7 @@ package MooseX::Privacy::Meta::Class;
use Moose::Role;
use Moose::Meta::Class;
-with (
+with(
'MooseX::Privacy::Meta::Class::Role' => { name => 'protected' },
'MooseX::Privacy::Meta::Class::Role' => { name => 'private' },
);
@@ -14,16 +14,78 @@ sub register_implementation {'MooseX::Privacy::Trait::Private'}
package Moose::Meta::Attribute::Custom::Trait::Protected;
sub register_implementation {'MooseX::Privacy::Trait::Protected'}
-
1;
+
__END__
=head1 NAME
-MooseXMooseX::Privacy::Meta::Class
+MooseXMooseX::Privacy::Meta::Class - Meta Class for your privacy
=head1 SYNOPSIS
+=head1 DESCRIPTION
+
+=head1 METHODS
+
+=head2 local_private_attributes
+
+Arrayref of all private attributes
+
+ my $private_attributes = $self->meta->local_private_attributes;
+
+=head2 local_private_methods
+
+Arrayref of all private methods
+
+ my $private_methods = $self->meta->local_private_methods;
+
+=head2 add_private_method
+
+Add a private method to your object.
+
+ $object->meta->add_private_method('foo', sub { return 23 });
+
+or
+
+ $object->meta->add_private_method(
+ 'foo',
+ MooseX::Privacy::Meta::Method::Private->wrap(
+ name => 'foo',
+ package_name => 'Foo',
+ body => sub { return 23 }
+ )
+ );
+
+=head2 local_protected_attributes
+
+Arrayref of all protected attributes
+
+ my $protected_attributes = $self->meta->local_protected_attributes;
+
+=head2 local_protected_methods
+
+Arrayref of all protected methods
+
+ my $private_methods = $self->meta->local_protected_methods;
+
+=head2 add_protected_method
+
+Add a protected method to your object.
+
+ $object->meta->add_protected_method('foo', sub { return 23 });
+
+or
+
+ $object->meta->add_protected_method(
+ 'foo',
+ MooseX::Privacy::Meta::Method::Protected->wrap(
+ name => 'foo',
+ package_name => 'Foo',
+ body => sub { return 23 }
+ )
+ );
+
=head1 AUTHOR
franck cuny E<lt>franck@lumberjaph.netE<gt>
diff --git a/lib/MooseX/Privacy/Meta/Class/Role.pm b/lib/MooseX/Privacy/Meta/Class/Role.pm
index f9de91e..cb7e03a 100644
--- a/lib/MooseX/Privacy/Meta/Class/Role.pm
+++ b/lib/MooseX/Privacy/Meta/Class/Role.pm
@@ -4,6 +4,7 @@ use MooseX::Role::Parameterized;
use Scalar::Util;
use Carp qw/confess/;
use MooseX::Types::Moose qw/Str ArrayRef/;
+
use MooseX::Privacy::Meta::Method::Protected;
use MooseX::Privacy::Meta::Method::Private;
@@ -63,35 +64,10 @@ __END__
=head1 NAME
-MooseX::Privacy::Meta::Class::Role
+MooseX::Privacy::Meta::Class::Role - Private and Protected parameterized roles
=head1 SYNOPSIS
-=head1 METHODS
-
-=head2 local_private_attributes
-
-Arrayref of all private attributes
-
- my $private_attributes = $self->meta->local_private_attributes;
-
-=head2 local_private_methods
-
-Arrayref of all private methods
-
- my $private_methods = $self->meta->local_private_methods;
-
-=head2 add_private_method
-
-Add a private method to your object.
-
- $object->meta->add_private_method('foo', sub { return 23 });
-
-or
-
- $object->meta->add_private_method('foo', MooseX::Privacy::Meta::Method::Priva
-te->wrap(name => 'foo', package_name => 'Foo', body => sub {return 23});
-
=head1 AUTHOR
franck cuny E<lt>franck@lumberjaph.netE<gt>