package App::Queries; use base 'Exporter'; our @EXPORT_OK = (qw( get_query_hash )); sub get_query_hash { return \%queries; } my %queries = ( get_reprocessing_list => { type => 'simple', source => q( SELECT typeID FROM typeAM; ), }, get_blueprintTypeID => { type => 'complex', source => q( SELECT [% var $extract %], bpID FROM invBpT; ), } );