package Mouse;
use strict;
use warnings;
+use 5.006;
use base 'Exporter';
- our $VERSION;
+ our $VERSION = '0.13';
+ use 5.006;
+BEGIN {
- $VERSION = '0.12';
-
+ if ($ENV{MOUSE_DEBUG}) {
+ *DEBUG = sub (){ 1 };
+ } else {
+ *DEBUG = sub (){ 0 };
+ }
+}
+
use Carp 'confess';
-use Mouse::Util 'blessed';
+use Scalar::Util 'blessed';
+use Mouse::Util;
use Mouse::Meta::Attribute;
use Mouse::Meta::Class;
#!/usr/bin/env perl
use strict;
use warnings;
- use Test::More tests => 8;
+ use Test::More tests => 9;
-use Mouse::Util ':test';
+use Test::Exception;
do {
package Class;
#!/usr/bin/env perl
use strict;
use warnings;
- use Test::More tests => 29;
+ use Test::More tests => 30;
-use Mouse::Util ':test';
+use Test::Exception;
do {
package Class;