use strict;
use warnings;
-use Test::More tests => 70;
-
-BEGIN {
- use_ok('Moose::Autobox');
-}
+use Test::More tests => 69;
use Moose::Autobox;
use strict;
use warnings;
-use Test::More tests => 22;
+use Test::More tests => 21;
-BEGIN {
- use_ok('Moose::Autobox');
-}
+use Moose::Autobox;
ok(Moose::Autobox::SCALAR->does('Moose::Autobox::Scalar'), '... SCALAR does Moose::Autobox::Scalar');
ok(Moose::Autobox::SCALAR->does('Moose::Autobox::String'), '... SCALAR does Moose::Autobox::String');
-
\ No newline at end of file
+
use strict;
use warnings;
-use Test::More tests => 8;
+use Test::More tests => 7;
use Test::Exception;
-BEGIN {
- use_ok('Moose::Autobox');
-}
+require Moose::Autobox;
=pod
use strict;
use warnings;
-use Test::More tests => 5;
-
-BEGIN {
- use_ok('Moose::Autobox');
-}
+use Test::More tests => 4;
use Moose::Autobox;
use strict;
use warnings;
-use Test::More tests => 23;
+use Test::More tests => 22;
use Test::Exception;
-BEGIN {
- use_ok('Moose::Autobox');
-}
-
use Moose::Autobox;
my $VAR1; # for eval of dumps
use strict;
use warnings;
-use Test::More tests => 3;
+use Test::More tests => 2;
use Test::Exception;
-BEGIN {
- use_ok('Moose::Autobox');
-}
-
use Moose::Autobox;
# we need a control in the experiment
use strict;
use warnings;
-use Test::More tests => 5;
+use Test::More tests => 4;
-use_ok("Moose::Autobox");
+use Moose::Autobox ();
foreach my $stem (qw(SCALAR ARRAY HASH CODE)) {
my $class = "Moose::Autobox::${stem}";
use strict;
use warnings;
-use Test::More tests => 4;
-
-BEGIN {
- use_ok('Moose::Autobox');
-}
+use Test::More tests => 3;
use Moose::Autobox;