my %static = $self->_static_map;
my %record = ( map { $_ => $static{$_} } keys %static ),
- ( map { $_ => $svc_domain->$_() } keys %schema );
+ ( map { my $method = $schema{$_};
+ $_ => $svc_domain->$method();
+ }
+ keys %schema );
my $err_or_queue =
$self->domain_sql_queue(
}
my %record = ( map { $_ => $static{$_} } keys %static ),
- ( map { $_ => $svc_domain->$_() } keys %schema );
+ ( map { my $method = $schema{$_};
+ $_ => $new->$method();
+ }
+ keys %schema );
my $err_or_queue = $self->domain_sql_queue(
$new->svcnum,