use 5.006;
use base 'Exporter';
-our $VERSION = '0.15';
-
-BEGIN {
- if ($ENV{MOUSE_DEBUG}) {
- *DEBUG = sub (){ 1 };
- } else {
- *DEBUG = sub (){ 0 };
- }
-}
+our $VERSION = '0.19';
use Carp 'confess';
use Scalar::Util 'blessed';
sub has {
my $meta = Mouse::Meta::Class->initialize(caller);
-
- my $names = shift;
- $names = [$names] if !ref($names);
-
- for my $name (@$names) {
- if ($name =~ s/^\+//) {
- Mouse::Meta::Attribute->clone_parent($meta, $name, @_);
- }
- else {
- Mouse::Meta::Attribute->create($meta, $name, @_);
- }
- }
+ $meta->add_attribute(@_);
}
sub before {
strict->import;
warnings->import;
- my $caller = caller;
+ my $opts = do {
+ if (ref($_[0]) && ref($_[0]) eq 'HASH') {
+ shift @_;
+ } else {
+ +{ };
+ }
+ };
+ my $level = delete $opts->{into_level};
+ $level = 0 unless defined $level;
+ my $caller = caller($level);
# we should never export to main
if ($caller eq 'main') {
*{$caller.'::meta'} = sub { $meta };
if (@_) {
- __PACKAGE__->export_to_level( 1, $class, @_);
+ __PACKAGE__->export_to_level( $level+1, $class, @_);
} else {
# shortcut for the common case of no type character
no strict 'refs';
functionality, faster. In particular, L<Moose/has> is missing only a few
expert-level features.
-We're also going as light on dependencies as possible. Most functions we use
-from L<Scalar::Util> are copied into this dist. L<Scalar::Util> is required if
-you'd like weak references; there's simply no way to do it from pure Perl.
-L<Class::Method::Modifiers> is required if you want support for L</before>,
-L</after>, and L</around>.
+We're also going as light on dependencies as possible.
+L<Class::Method::Modifiers> or L<Data::Util> is required if you want support
+for L</before>, L</after>, and L</around>.
=head2 MOOSE COMPAT
C<s/Mouse/Moose/g> on your codebase and have nothing break. To that end,
nothingmuch has written L<Squirrel> (part of this distribution) which will act
as Mouse unless Moose is loaded, in which case it will act as Moose.
-
-Mouse also has the blessings of Moose's author, stevan.
+L<Any::Moose> is a more high-tech L<Squirrel>.
=head2 MouseX