X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=xt%2Fmoo-object-meta-can.t;h=e8d245f75f0be4de8505a61551c3f57b88cc1a14;hb=904c916023b57856d29c15bf79ad1fe7c92f94a7;hp=3bc4f21be141cb25eedd224a844db46772117954;hpb=f1bad247e7bea8015d4d57f66c7e033b52d513a4;p=gitmo%2FMoo.git

diff --git a/xt/moo-object-meta-can.t b/xt/moo-object-meta-can.t
index 3bc4f21..e8d245f 100644
--- a/xt/moo-object-meta-can.t
+++ b/xt/moo-object-meta-can.t
@@ -1,6 +1,4 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
+use strictures 1;
 use Test::More;
 use Test::Fatal;
 use Moo::Object;
@@ -33,13 +31,13 @@ is( exception { Example->meta->can('can') } , undef, "Example->meta->can doesn't
     use base "Example_2";
 }
 
-ok( Example_2->can('meta'), 'Example_2 can meta') and subtest meta_checks_for_Example_2 => sub {
+ok( Example_2->can('meta'), 'Example_2 can meta') and do {
     return unless ok( Example_2->meta->can('get_all_attributes'), 'Example_2 meta can get_all_attributes' );
     my (@attributes) = Example_2->meta->get_all_attributes;
     is( scalar @attributes, 1, 'Has one attribute' );
 };
 
-ok( Example_3->can('meta'), 'Example_3 can meta') and subtest meta_checks_for_Example_3 => sub {
+ok( Example_3->can('meta'), 'Example_3 can meta') and do {
     return unless is( exception { Example_3->meta->can('can') } , undef, "Example_3->meta->can doesn't explode" );
     return unless ok( Example_3->meta->can('get_all_attributes'), 'Example_3 meta can get_all_attributes' );
     my (@attributes) = Example_3->meta->get_all_attributes;