-around BUILDARGS => sub {
- my $orig = shift;
- my $class = shift;
-
- my %args;
- if (@_==1 and ref($_[0]) eq 'HASH') {
- %args = %{$_[0]};
- } else {
- %args = @_;
- }
- $args{members} //= [];
- if (exists $args{correspondent}) {
- push @{$args{members}},
- _member_constructor(correspondent => $args{correspondent},
- hash_slice(%args,qw(schema constructor_args)),
- );
- delete $args{bugs};
+sub BUILD {
+ my $self = shift;
+ my $args = shift;
+ if (exists $args->{correspondent}) {
+ $self->
+ add($self->_member_constructor(correspondent =>
+ $args->{correspondent}));