Various style changes and de-messification

diff --git a/t/040_type_constraints/025_type_coersion_on_lazy_attributes.t b/t/040_type_constraints/025_type_coersion_on_lazy_attributes.t
index 5f11fb6..ebe9d33 100644 (file)
--- a/t/040_type_constraints/025_type_coersion_on_lazy_attributes.t
+++ b/t/040_type_constraints/025_type_coersion_on_lazy_attributes.t
@@ -1,3 +1,10 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More tests => 2;
+
 {
     package SomeClass;
     use Moose;
@@ -11,12 +18,15 @@
         => from 'DigitSix' 
         => via { confess("Cannot live without 6 ($_)") unless /^6$/; 'Six' };
 
-    has foo => ( isa => 'TextSix', coerce => 1, is => 'ro', default => 6,
-        lazy => 1
-    ); 
+    has foo => (
+        is      => 'ro',
+        isa     => 'TextSix',
+        coerce  => 1,
+        default => 6,
+        lazy    => 1
+    );
 }
 
-use Test::More tests => 2;
 my $attr = SomeClass->meta->get_attribute('foo');
 is($attr->get_value(SomeClass->new()), 'Six');
 is(SomeClass->new()->foo, 'Six');