SL/DB/CustomDataExportQuery.pm

   1 package SL::DB::CustomDataExportQuery;
   2
   3 use strict;
   4
   5 use SL::DB::MetaSetup::CustomDataExportQuery;
   6 use SL::DB::Manager::CustomDataExportQuery;
   7
   8 __PACKAGE__->meta->add_relationship(
   9   parameters => {
  10     type       => 'one to many',
  11     class      => 'SL::DB::CustomDataExportQueryParameter',
  12     column_map => { id => 'query_id' },
  13   },
  14 );
  15
  16 __PACKAGE__->meta->initialize;
  17
  18 sub used_parameter_names {
  19   my ($self) = @_;
  20
  21   my %parameters;
  22
  23   my $sql_query   = $self->sql_query // '';
  24   $parameters{$1} = 1 while $sql_query =~ m{<\%(.+?)\%>}g;
  25
  26   return sort keys %parameters;
  27 }
  28
  29 1;