diff options
Diffstat (limited to '')
-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; |