summaryrefslogtreecommitdiff
path: root/lib/MooseX/Privacy/Meta/Class/Protected.pm
diff options
context:
space:
mode:
authorfranck cuny <franck@lumberjaph.net>2010-04-28 21:56:55 +0200
committerfranck cuny <franck@lumberjaph.net>2010-04-28 21:56:55 +0200
commitae92eed94612f2a9434104e5934e51747bd0b188 (patch)
tree5d76a65af1e68e2345572978ca2330b20fcb876a /lib/MooseX/Privacy/Meta/Class/Protected.pm
parentuse new parameterized roles (diff)
downloadmoosex-privacy-ae92eed94612f2a9434104e5934e51747bd0b188.tar.gz
remove roles
Diffstat (limited to '')
-rw-r--r--lib/MooseX/Privacy/Meta/Class/Protected.pm93
1 files changed, 0 insertions, 93 deletions
diff --git a/lib/MooseX/Privacy/Meta/Class/Protected.pm b/lib/MooseX/Privacy/Meta/Class/Protected.pm
deleted file mode 100644
index cdd980e..0000000
--- a/lib/MooseX/Privacy/Meta/Class/Protected.pm
+++ /dev/null
@@ -1,93 +0,0 @@
-package MooseX::Privacy::Meta::Class::Protected;
-
-use Scalar::Util;
-use Carp qw/confess/;
-use Moose::Role;
-use MooseX::Types::Moose qw/Str ArrayRef/;
-use MooseX::Privacy::Meta::Method::Protected;
-
-has local_protected_methods => (
- traits => ['Array'],
- is => 'ro',
- isa => ArrayRef [Str],
- required => 1,
- default => sub { [] },
- auto_deref => 1,
- handles => { '_push_protected_method' => 'push' },
-);
-
-has local_protected_attributes => (
- traits => ['Array'],
- is => 'ro',
- isa => ArrayRef [Str],
- required => 1,
- default => sub { [] },
- auto_deref => 1,
- handles => { '_push_protected_attribute' => 'push' },
-);
-
-sub add_protected_method {
- my ( $self, $method_name, $method ) = @_;
-
- my $protected_method
- = blessed $method
- ? $method
- : MooseX::Privacy::Meta::Method::Protected->wrap(
- name => $method_name,
- package_name => $self->name,
- body => $method
- );
-
- confess $method_name . " is not a protected method"
- unless $protected_method->isa(
- 'MooseX::Privacy::Meta::Method::Protected');
-
- $self->add_method( $protected_method->name, $protected_method );
- $self->_push_protected_method( $protected_method->name );
-}
-
-1;
-__END__
-
-=head1 NAME
-
-MooseX::Privacy::Meta::Class::Protected
-
-=head1 SYNOPSIS
-
-=head1 METHODS
-
-=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 $protected_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>
-
-=head1 SEE ALSO
-
-=head1 LICENSE
-
-This library is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself.
-
-=cut