From: Dave Rolsky <autarch@urth.org>
Date: Wed, 20 Aug 2008 14:11:06 +0000 (+0000)
Subject: Various style changes and de-messification
X-Git-Tag: 0_55_01~5
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3fd955cb6a328308264f7a5e64d1ccb1ca5c06af;p=gitmo%2FMoose.git

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
--- 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');