use Mouse::Exporter; # enables strict and warnings
-our $VERSION = '0.68';
+our $VERSION = '0.76';
use Carp qw(confess);
use Scalar::Util qw(blessed);
$meta->throw_error(q{Usage: has 'name' => ( key => value, ... )})
if @_ % 2; # odd number of arguments
- if(ref $name){ # has [qw(foo bar)] => (...)
- for (@{$name}){
- $meta->add_attribute($_ => @_);
- }
- }
- else{ # has foo => (...)
- $meta->add_attribute($name => @_);
+ for my $n(ref($name) ? @{$name} : $name){
+ $meta->add_attribute($n => @_);
}
return;
}
my %args = @_;
my $class = $args{for_class}
- or confess("Cannot call init_meta without specifying a for_class");
+ or confess("Cannot call init_meta without specifying a for_class");
my $base_class = $args{base_class} || 'Mouse::Object';
my $metaclass = $args{metaclass} || 'Mouse::Meta::Class';
=head1 VERSION
-This document describes Mouse version 0.68
+This document describes Mouse version 0.76
=head1 SYNOPSIS