TT#29350 get_json() respect column_method dbix accessor

* column_method accessor is aliased as method

Change-Id: I74172a1c03d35d1e85094d5b932d8523d79013de

lib/NGCP/Panel/Controller/Subscriber.pm

@@ -4748,14 +4748,18 @@ sub get_json :Chained('callflow_base') :PathPart('json') :Args(0) {
     });
 
     return unless($calls_rs);
-
     my @cols = qw(method timestamp src_ip dst_ip call_id payload transport id src_port dst_port request_uri);
+    my $ac   = { method => 'column_method' };
 
     my @msgs;
 
     foreach my $row ($calls_rs->all ) {
-        my $m = { map { $_ => $row->$_.'' } @cols };
-    push(@msgs, $m);
+        my $m = { map {
+            my $col = $_;
+            my $ac  = $ac->{$col} // $col;
+            $col => $row->$ac.'';
+        } @cols };
+        push(@msgs, $m);
     }
 
     $c->response->content_type('application/json');