allow api params to be generated from DBIC schema spec

lib/App/Netdisco/Util/API.pm

@@ -1,13 +1,44 @@
 package App::Netdisco::Util::API;
 
+use strict;
+use warnings;
 use Dancer ':syntax';
+use Dancer::Plugin::DBIC 'schema';
+
+use List::MoreUtils 'singleton';
 
 use base 'Exporter';
-our @EXPORT = qw/
+our @EXPORT = ();
+our @EXPORT_OK = qw/
+  resultsource_to_openapi_params
   parse_search_params
   format_data
   format_error
 /;
+our %EXPORT_TAGS = (all => \@EXPORT_OK);
+
+sub resultsource_to_openapi_params {
+  my $sourcename = shift or return ();
+  my @params = ();
+
+  my $rs = schema('netdisco')->source($sourcename) or return ();
+  my $columns = $rs->columns_info;
+
+  foreach my $col ($rs->primary_columns,
+                   (singleton ($rs->primary_columns, keys %{ $columns }))) {
+    my $data = $columns->{$col};
+    next if $data->{extra}->{hide_from_api};
+    push @params, (
+      $col => {
+        description => $data->{extra}->{descr},
+        type => ($data->{data_type} =~ m/int/ ? 'integer'
+          : $data->{data_type} eq 'boolean' ? 'boolean' : 'string'),
+      }
+    );
+  }
+
+  return @params;
+}
 
 sub parse_search_params {
     my $params = shift;