NAME

MooseX::Privacy - Provides the syntax to restrict/control visibility of your methods

VERSION

version 0.05

SYNOPSIS

use MooseX::Privacy;

has config => (
    is     => 'rw',
    isa    => 'Some::Config',
    traits => [qw/Private/],
);

has username => (
    is     => 'rw',
    isa    => 'Str',
    traits => [qw/Protected/],
);

private_method foo => sub {
    return 23;
};

protected_method bar => sub {
    return 42;
};

DESCRIPTION

MooseX::Privacy brings the concept of private and protected methods to your class.

METHODS

Private

When you declare a method as private, this method can be called only within the class.

package Foo;

use Moose;
use MooseX::Privacy;

private_method foo => sub { return 23 };

sub mul_by_foo { my $self = shift; $self->foo * $_[0] }

1;

my $foo = Foo->new;
$foo->foo;           # die
$foo->mul_by_foo;    # ok

Protected

When you declare a method as protected, this method can be called only within the class AND any of it's subclasses.

package Foo;

use Moose;
use MooseX::Privacy;

protected_method foo => sub { return 23 };

package Bar;

use Moose;
extends Foo;

sub bar { my $self = shift; $self->foo }

1;

my $foo = Foo->new;
$foo->foo;    # die
my $bar = Bar->new;
$bar->bar;    # ok

Attributes

Private

When the Private traits is applied to an attribute, this attribute can only be read or set within the class.

Protected

When the Protected traits is applied to an attribute, this attribute can only be read or set within the class AND any of his subclasses.

AUTHOR

franck cuny <franck@lumberjaph.net>

COPYRIGHT AND LICENSE

This software is copyright (c) 2010 by franck cuny.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.