From f9de2becaaca0b01dfb98334be00f27b8cbf05f4 Mon Sep 17 00:00:00 2001
From: franck cuny <franck@lumberjaph.net>
Date: Sat, 19 Jun 2010 15:08:51 +0200
Subject: some tidy

---
 t/14_private_attribute.t | 40 +++++++++++++++++++++++++---------------
 1 file changed, 25 insertions(+), 15 deletions(-)

(limited to 't/14_private_attribute.t')

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/);
-
-
-- 
cgit v1.2.3