t/Koha/wait.pl

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