The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Defs::Defs;
use strict;
use warnings;

my $defs = {
  main     => { proc => "pkg::MainProc", model => "pkg::Model", },
  resource => {
    proc  => "Su::Procs::ResourceProc",
    model => "pkg::Main::ResourceModel",
  },

  # [The mark to add the entries]

  # Sample:
  #   comp_id2 =>
  #   {
  #    proc=>'MainProc',
  #    model=>['Model01','Model02','Model03'],
  #    map_filter=>'FilterProc'    # or ['Filter01','Filter02']
  #    reduce_filter=>'ReduceProc'  # reduce filter can apply at once.
  #    scalar_filter=>'ScalarProc'  # or ['Filter01','Filter02']
  #   }
  global_model_field => { g_debug => "true" }
};

sub defs {
  shift if ( $_[0] eq __PACKAGE__ );

  my $arg = shift;
  if ($arg) {
    $defs = $arg;
  } else {
    return $defs;
  }
} ## end sub defs