'primary_key' => { label => 'Database primary key' },
;
-tie my %postfix_transport_map,
+tie my %postfix_transport_map, 'Tie::IxHash',
'domain' => 'domain'
;
my $postfix_transport_map =
join('\n', map "$_ $postfix_transport_map{$_}",
keys %postfix_transport_map );
-tie my %postfix_transport_static,
+tie my %postfix_transport_static, 'Tie::IxHash',
'transport' => 'virtual:',
;
my $postfix_transport_static =
my %schema = $self->_schema_map;
my %static = $self->_static_map;
- 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
+ )
+ );
my $err_or_queue =
$self->domain_sql_queue(
push @primary_key, $old->$keymap();
}
- my %record = ( map { $_ => $static{$_} } keys %static ),
- ( map { $_ => $svc_domain->$_() } keys %schema );
+ my %record = ( ( map { $_ => $static{$_} } keys %static ),
+ ( map { my $method = $schema{$_};
+ $_ => $new->$method();
+ }
+ keys %schema
+ )
+ );
my $err_or_queue = $self->domain_sql_queue(
$new->svcnum,