t/Koha/wait.pl

   1 #!/usr/bin/perl
   2
   3 use Modern::Perl;
   4
   5 use Koha::Script;
   6
   7 # # Lock execution
   8 my $script = Koha::Script->new({ script => 'sleep.pl' });
   9
  10 $script->lock_exec({ wait => 1 });
  11
  12 print STDOUT "YAY!";
  13
  14 # Normal exit
  15 1;