my %args;
if (scalar @_ == 1 && defined $_[0] && ref($_[0]) eq 'HASH') {
%args = %{$_[0]};
- } else {
+ } elsif( scalar(@_) ) {
%args = @_;
}
my @extra = grep { !exists($self->{$_}) } keys %args;
L<Moose>, L<Moose::Meta::Attribute>, L<Class::Accessor>, L<Class::Accessor::Fast>,
L<Class::MOP::Attribute>, L<MooseX::Adopt::Class::Accessor::Fast>
-=head1 AUTHOR
+=head1 AUTHORS
-Guillermo Roditi (groditi) <groditi@cpan.org>
+Guillermo Roditi (groditi) E<lt>groditi@cpan.orgE<gt>
+
+With contributions from:
+
+=over 4
+
+=item Tomas Doran E<lt>bobtfish@bobtfish.netE<gt>
+
+=back
=head1 LICENSE