From ea4a890234668decd6e4f3efc9c22c333176810e Mon Sep 17 00:00:00 2001 From: franck cuny Date: Thu, 29 Apr 2010 09:02:27 +0200 Subject: POD cleaning --- lib/MooseX/Privacy.pm | 42 +++++++++++++++++++++--------------------- 1 file changed, 21 insertions(+), 21 deletions(-) (limited to 'lib/MooseX/Privacy.pm') diff --git a/lib/MooseX/Privacy.pm b/lib/MooseX/Privacy.pm index 172cf82..b41afc4 100644 --- a/lib/MooseX/Privacy.pm +++ b/lib/MooseX/Privacy.pm @@ -38,27 +38,27 @@ MooseX::Privacy - Provides the syntax to restrict/control visibility of your met =head1 SYNOPSIS - use MooseX::Privacy; + use MooseX::Privacy; - has config => ( - is => 'rw', - isa => 'Some::Config', - traits => [qw/Private/], - ); + has config => ( + is => 'rw', + isa => 'Some::Config', + traits => [qw/Private/], + ); - has username => ( - is => 'rw', - isa => 'Str', - traits => [qw/Protected/], - ); + has username => ( + is => 'rw', + isa => 'Str', + traits => [qw/Protected/], + ); - private_method foo => sub { - return 23; - }; + private_method foo => sub { + return 23; + }; - protected_method bar => sub { - return 42; - }; + protected_method bar => sub { + return 42; + }; =head1 DESCRIPTION @@ -82,8 +82,8 @@ When you declare a method as B, this method can be called only within t 1; my $foo = Foo->new; - $foo->foo; # die - $foo->mul_by_foo; # ok + $foo->foo; # die + $foo->mul_by_foo; # ok =head2 Protected @@ -107,9 +107,9 @@ within the class AND any of it's subclasses. 1; my $foo = Foo->new; - $foo->foo; # die + $foo->foo; # die my $bar = Bar->new; - $bar->bar; # ok + $bar->bar; # ok =head2 Attributes -- cgit v1.2.3