avoid accessor conflicts

agranig/2.004-ramoptimized
Lars Dieckow 12 years ago
parent 9d902fefc8
commit f95eb7d101

@ -64,6 +64,10 @@ for my $db (qw(accounting billing carrier kamailio ngcp provisioning sipstats))
return join '', @source, @pod;
},
moniker_map => λ{ $_[0] },
col_accessor_map => sub {
my ($column) = @_;
return $CLASS->can($column) ? "column_$column" : $column;
},
quiet => 1,
use_moose => 1,
},

Loading…
Cancel
Save