Open-ILS/src/perlmods/OpenILS/Application/Trigger/Reactor.pm

   1 package OpenILS::Application::Trigger::Reactor;
   2 use Template;
   3 use OpenSRF::Utils::Logger qw(:logger);
   4
   5 sub fourty_two { return 42 }
   6 sub NOOP_True { return 1 }
   7 sub NOOP_False { return 0 }
   8
   9
  10 # processes templates.  Returns template output on success, undef on error
  11 sub run_TT {
  12     my $self = shift;
  13     my $env = shift;
  14     return '' unless $env->{template};
  15
  16     my $output = '';
  17     my $tt = Template->new;
  18
  19     $tt->process(\$env->{template}, $env, \$output) or
  20         $logger->error("Error processing Trigger template: " . $tt->error);
  21
  22     return $output;
  23 }
  24
  25 1;