X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F300_immutable%2F015_immutable_destroy.t;h=82a5df18152d41bb6657d13b2acbeb31e0a0a959;hb=34aab661b22bed0df039dfab3aa4a84747abea06;hp=32b6fe4cc862bf1c7c1d8170b6d79e32d0c32a19;hpb=47e5ab1a005a6233ffe96221ba1aa0baee4832b2;p=gitmo%2FMoose.git

diff --git a/t/300_immutable/015_immutable_destroy.t b/t/300_immutable/015_immutable_destroy.t
index 32b6fe4..82a5df1 100644
--- a/t/300_immutable/015_immutable_destroy.t
+++ b/t/300_immutable/015_immutable_destroy.t
@@ -1,19 +1,18 @@
-#!/usr/bin/perl
 use strict;
 use warnings;
 use Test::More tests => 1;
 
-BEGIN {
+{
     package FooBar;
     use Moose;
 
-    has 'name' => (is => 'ro');
+    has 'name' => ( is => 'ro' );
 
     sub DESTROY { shift->name }
 
     __PACKAGE__->meta->make_immutable;
 }
 
-my $f = FooBar->new(name => "SUSAN");
+my $f = FooBar->new( name => 'SUSAN' );
 
-is($f->DESTROY, "SUSAN", "Did moose overload DESTROY?");
+is( $f->DESTROY, 'SUSAN', 'Did moose overload DESTROY?' );