summary refs log tree commit diff
path: root/lib/MooseX/Privacy/Meta
diff options
context:
space:
mode:
Diffstat (limited to 'lib/MooseX/Privacy/Meta')
-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>