package Mouse;
use 5.006_002;
-use strict;
-use warnings;
+use Mouse::Exporter; # enables strict and warnings
our $VERSION = '0.37_02';
use Carp qw(confess);
-use Scalar::Util ();
+use Scalar::Util qw(blessed);
use Mouse::Util qw(load_class is_class_loaded get_code_package not_supported);
use Mouse::Meta::Attribute;
use Mouse::Object;
use Mouse::Util::TypeConstraints ();
-use Mouse::Exporter;
Mouse::Exporter->setup_import_methods(
as_is => [qw(
],
);
+# XXX: for backward compatibility
+our @EXPORT = qw(
+ extends with
+ has
+ before after around
+ override super
+ augment inner
+ blessed confess
+);
+
sub extends { Mouse::Meta::Class->initialize(scalar caller)->superclasses(@_) }
sub has {