diff options
author | franck cuny <franck@lumberjaph.net> | 2010-03-01 22:17:49 +0100 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2010-03-01 22:17:49 +0100 |
commit | 64cab1daa8d6fe0182cef602be235a89f95987c7 (patch) | |
tree | bb5850cb365540931e02b1f08c445421169a9cd4 /lib/MooseX/Privacy/Meta/Attribute/Protected.pm | |
parent | trait for protected and private attributes (diff) | |
download | moosex-privacy-64cab1daa8d6fe0182cef602be235a89f95987c7.tar.gz |
start to implement private and protected attributes
Diffstat (limited to 'lib/MooseX/Privacy/Meta/Attribute/Protected.pm')
-rw-r--r-- | lib/MooseX/Privacy/Meta/Attribute/Protected.pm | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/lib/MooseX/Privacy/Meta/Attribute/Protected.pm b/lib/MooseX/Privacy/Meta/Attribute/Protected.pm new file mode 100644 index 0000000..408ab50 --- /dev/null +++ b/lib/MooseX/Privacy/Meta/Attribute/Protected.pm @@ -0,0 +1,21 @@ +package MooseX::Privacy::Meta::Attribute::Protected; + +use Moose::Role; +use Carp qw/confess/; + +sub _generate_accessor_method { + my $attr = (shift)->associated_attribute; + my $package_name = $attr->associated_class->name; + + return sub { + my $self = shift; + my $caller = ( scalar caller() ); + confess "Attribute " . $attr->name . " is protected" + unless $caller eq $package_name || $caller->isa($package_name); + $attr->set_value( $self, $_[0] ) if scalar(@_) == 1; + $attr->set_value( $self, [@_] ) if scalar(@_) > 1; + $attr->get_value($self); + }; +} + +1; |