From f95eb7d10186a5c5525bb302128e1630c89d3ccd Mon Sep 17 00:00:00 2001
From: Lars Dieckow <ldieckow@sipwise.com>
Date: Thu, 2 May 2013 16:36:38 +0200
Subject: [PATCH] avoid accessor conflicts

---
 bin/ngcp-dump-schema | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/bin/ngcp-dump-schema b/bin/ngcp-dump-schema
index 825bacb1..ac4c7ffb 100644
--- a/bin/ngcp-dump-schema
+++ b/bin/ngcp-dump-schema
@@ -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,
         },