# Processing
{
  my %dispatch =
    (
      'show' => undef,
      'info' => undef,
      'add' => undef,
      'change' => undef,
      'delete' => undef,
      'update' => undef,
      'clear' => undef,
      'sync' => undef,
      'load' => \&action_load(),
      'get' => undef,
      'put' => undef,
      'link' => undef,
      'unlink' => undef,
      'reset' => undef,
    );
  #foreach my $action (@{$meta->{'actions'}})
  #{
  #  unless (exists($dispatch{$action->{'cmd'}}))
  #  {
  #    print "'$action->{'cmd'}' - unknown command, skipped\n";
  #    next;
  #  }
  #  unless (defined($dispatch{$action->{'cmd'}}))
  #  {
  #    print "'$action->{'cmd'}' - comming soon, skipped\n";
  #    next;
  #  }
  #  $dispatch{$action->{'cmd'}}->($action);
  #}
}

sub action_load($)
{
  print "*** action_load\n";
}

    my $proc = "action";
    if ($action->{'cmd'})
    {
      $proc .= "_$action->{'cmd'}";
      $proc .= "_$action->{'obj'}" if ($action->{'obj'});
      if ((main->can($proc)))
      {
        no strict 'refs';
        &$proc;
      }
      else {print "Handler '$proc' not exists, skipped\n"}
      &$proc;
    }