From: Dave Rolsky <autarch@urth.org>
Date: Sat, 6 Jun 2009 19:42:50 +0000 (-0500)
Subject: Formatting
X-Git-Tag: 0.80~4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=5bf2651021900b480fb3a5372dd7cb36e13029e4;p=gitmo%2FMoose.git

Formatting
---

diff --git a/t/100_bugs/025_universal_methods_wrappable.t b/t/100_bugs/025_universal_methods_wrappable.t
index 70a89eb..e7c4acb 100644
--- a/t/100_bugs/025_universal_methods_wrappable.t
+++ b/t/100_bugs/025_universal_methods_wrappable.t
@@ -1,32 +1,30 @@
-#!perl
-
-# UNIVERSAL methods should be wrappable
-
 use strict;
 use warnings;
-    
+
+use Test::Exception;
+use Test::More tests => 2;
+
 {
+
     package FakeBar;
     use Moose::Role;
 
     around isa => sub {
-        my ($orig, $self, $v) = @_;
+        my ( $orig, $self, $v ) = @_;
         return 1 if $v eq 'Bar';
-        return $orig->($self, $v);
+        return $orig->( $self, $v );
     };
 
     package Foo;
     use Moose;
-   
-    use Test::Exception;
-    use Test::More tests => 2;
 
-    TODO: {
+ TODO:
+    {
         local $TODO = 'UNIVERSAL methods should be wrappable';
 
         lives_ok { with 'FakeBar' } 'applied role';
 
         my $foo = Foo->new;
         isa_ok $foo, 'Bar';
-    };
+    }
 }