Reformat to my style
Dave Rolsky [Mon, 10 Nov 2008 23:38:28 +0000 (23:38 +0000)]
t/04-with-attribute-helpers.t

index e1cf84a..4154b5a 100644 (file)
@@ -1,23 +1,23 @@
-#!/usr/bin/env perl
 use strict;
 use warnings;
+
 use Test::More tests => 2;
 
-do {
+{
     package MyClass;
+
     use MooseX::ClassAttribute;
     use MooseX::AttributeHelpers;
 
-    class_has counter => (
-        metaclass => 'Counter',
-        is        => 'ro',
-        provides  => {
-            inc => 'inc_counter',
-        },
-    );
-};
+    class_has counter =>
+        ( metaclass => 'Counter',
+          is        => 'ro',
+          provides  => { inc => 'inc_counter',
+                       },
+        );
+}
 
-is(MyClass->counter, 0);
-MyClass->inc_counter;
-is(MyClass->counter, 1);
+is( MyClass->counter(), 0 );
 
+MyClass->inc_counter();
+is( MyClass->counter(), 1 );