use MooseX::Emulate::Class::Accessor::Fast::Meta::Accessor ();
-our $VERSION = '0.00802';
+our $VERSION = '0.00900';
=head1 NAME
|| Moose::Meta::Class->initialize($class);
};
-sub BUILD {
+sub BUILD { }
+
+around 'BUILD' => sub {
+ my $orig = shift;
my $self = shift;
- my %args;
- if (scalar @_ == 1 && defined $_[0] && ref($_[0]) eq 'HASH') {
- %args = %{$_[0]};
- } elsif( scalar(@_) ) {
- %args = @_;
- }
+ my %args = %{ $_[0] };
+ $self->$orig(\%args);
my @extra = grep { !exists($self->{$_}) } keys %args;
@{$self}{@extra} = @args{@extra};
return $self;
-}
+};
=head2 mk_accessors @field_names