use 5.006;
use base 'Exporter';
-our $VERSION = '0.18';
-
-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);
- my $metaclass = 'Mouse::Meta::Attribute';
- my %options = @_;
-
- if ( my $metaclass_name = delete $options{metaclass} ) {
- my $new_class = Mouse::Util::resolve_metaclass_alias(
- 'Attribute',
- $metaclass_name
- );
- if ( $metaclass ne $new_class ) {
- $metaclass = $new_class;
- }
- }
-
- for my $name (@$names) {
- if ($name =~ s/^\+//) {
- $metaclass->clone_parent($meta, $name, @_);
- }
- else {
- $metaclass->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';