Formatting
Dave Rolsky [Sat, 6 Jun 2009 19:42:50 +0000 (14:42 -0500)]
t/100_bugs/025_universal_methods_wrappable.t

index 70a89eb..e7c4acb 100644 (file)
@@ -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';
-    };
+    }
 }