Merge branch 'blead'
gfx [Thu, 24 Sep 2009 07:30:10 +0000 (16:30 +0900)]
Conflicts:
Changes
TODO
lib/Mouse/Meta/Method.pm

1  2 
TODO
lib/Mouse.pm

diff --combined TODO
--- 1/TODO
--- 2/TODO
+++ b/TODO
@@@ -3,8 -3,7 +3,6 @@@ TODO
  Mouse
  
  * smart exporters
- * method confliction
--* trait mechanism
  * native traits
  
  MouseX
diff --combined lib/Mouse.pm
@@@ -4,10 -4,8 +4,8 @@@ use warnings
  use 5.006;
  use base 'Exporter';
  
 -our $VERSION = '0.32';
 +our $VERSION = '0.33';
  
- sub moose_version(){ 0.90 } # which Mouse is a subset of
  use Carp 'confess';
  use Scalar::Util 'blessed';
  
@@@ -38,7 -36,9 +36,9 @@@ sub extends { Mouse::Meta::Class->initi
  
  sub has {
      my $meta = Mouse::Meta::Class->initialize(scalar caller);
-     $meta->add_attribute(@_);
+     my $name = shift;
+     $meta->add_attribute($_ => @_) for ref($name) ? @{$name} : $name;
  }
  
  sub before {