File Coverage

SGELK.log/qsub.355123.pl
Criterion Covered Total %
statement 14 18 77.7
branch 1 2 50.0
condition n/a
subroutine 3 3 100.0
pod n/a
total 18 23 78.2


line stmt bran cond sub pod time code
1             #! /usr/local/bin/perl
2              
3             #$ -N sgelk01.t
4             #$ -S /usr/local/bin/perl
5             #$ -V
6             #$ -wd /root/.cpan/build/Schedule-SGELK-v1.6.0-0
7             #$ -pe smp 2
8             #$ -o SGELK.log//01.t.355123.log
9             #$ -e SGELK.log//01.t.355123.log
10             #$ -q all.q
11 1     1   4529 use strict;
  1         1  
  1         29  
12 1     1   3 use warnings;
  1         1  
  1         43  
13 1     1   412 use File::Slurp qw/read_file write_file/;
  1         48443  
  1         68845  
14 1         108265 write_file('SGELK.log//01.t.355123.submitted',"ls t/01.t \x3e /root/.cpan/build/Schedule-SGELK-v1.6.0-0/t/ls.out");
15 1         313 write_file('SGELK.log//01.t.355123.running',"ls t/01.t \x3e /root/.cpan/build/Schedule-SGELK-v1.6.0-0/t/ls.out");
16 1         7375 system("ls t/01.t \x3e /root/.cpan/build/Schedule-SGELK-v1.6.0-0/t/ls.out");
17 1 50       67 if($?){
18 0         0 my $error="QSUB ERROR\n$?\n$!";
19 0         0 write_file('SGELK.log//01.t.355123.died',"ls t/01.t \x3e /root/.cpan/build/Schedule-SGELK-v1.6.0-0/t/ls.out");
20 0         0 write_file('SGELK.log//01.t.355123.died',{append=>1},"\n$error\n");
21 0         0 die $error;
22             }
23 1         31 write_file('SGELK.log//01.t.355123.finished',"ls t/01.t \x3e /root/.cpan/build/Schedule-SGELK-v1.6.0-0/t/ls.out");