summary refs log tree commit diff
path: root/t/14_private_attribute.t
diff options
context:
space:
mode:
Diffstat (limited to 't/14_private_attribute.t')
-rw-r--r--t/14_private_attribute.t40
1 files changed, 25 insertions, 15 deletions
diff --git a/t/14_private_attribute.t b/t/14_private_attribute.t
index 811294a..0050298 100644
--- a/t/14_private_attribute.t
+++ b/t/14_private_attribute.t
@@ -5,22 +5,34 @@ use Test::More tests => 10;
 use Test::Exception;
 use Test::Moose;
 
-{
-
-    package Foo;
-    use Moose;
-    use MooseX::Privacy;
-
-    has foo => ( is => 'rw', isa => 'Str', traits => [qw/Private/] );
-    sub bar { my $self = shift; $self->foo('bar'); $self->foo }
+package Foo;
+use Moose;
+use MooseX::Privacy;
+
+has foo => (
+    is      => 'rw',
+    isa     => 'Str',
+    lazy    => 1,
+    default => 'test',
+    traits  => [qw/Private/]
+);
+
+sub bar {
+    my $self = shift;
+    $self->foo('bar');
+    $self->foo;
 }
 
-{
+package Bar;
+use Moose;
 
-    package Bar;
-    use Moose;
-    has bar => ( is => 'rw', isa => 'Str', traits => [qw/Private/] );
-}
+has bar => (
+    is => 'rw',
+    isa => 'Str',
+    traits => [qw/Private/]
+);
+
+package main;
 
 with_immutable {
     ok my $foo = Foo->new();
@@ -31,5 +43,3 @@ with_immutable {
     ok my $bar = Bar->new();
 }
 (qw/Foo Bar/);
-
-