}
sub add_attribute{
- my($self, $attr_name, $spec) = @_;
+ my $self = shift;
+ my $attr_name = shift;
+ my $spec = (@_ == 1 ? $_[0] : {@_});
my $existing = $self->{attributes}{$attr_name};
if($existing && $existing != $spec){
=head1 VERSION
-This document describes Mouse version 0.43
+This document describes Mouse version 0.47
=head1 SEE ALSO