- my %record = ( map { $_ => $static{$_} } keys %static ),
- ( map { $_ => $svc_domain->$_() } keys %schema );
+ my %record = ( ( map { $_ => $static{$_} } keys %static ),
+ ( map { my $method = $schema{$_};
+ $_ => $svc_domain->$method();
+ }
+ keys %schema
+ )
+ );