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

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