File Coverage

File:Sample.pl
Coverage:60.0%

linestmtbrancondsubtimecode
1#!/usr/bin/perl
2# Author : Manoranjan Reddy
3# Email : mano[at]manosoftlive[dot]com
4use strict;
5use Sample;
6
1
1
1
10
1
30506
use Devel::Cover;
7
1
46415
my $i = $ARGV[0];
8
1
2
my $j = $ARGV[1];
9
1
9
if ($i == 1) {
10
0
0
        Sample::one();
11}
12
1
2
if ($i == 2) {
13
0
0
        Sample::one();
14
0
0
        Sample::two();
15}
16
1
4
if ($i == 3) {
17
1
6
        Sample::one();
18
1
5
        Sample::two();
19
1
4
        Sample::three();
20}
21
1
4
if ($i == 4) {
22
0
0
        Sample::one();
23
0
0
        Sample::two();
24
0
0
        Sample::three();
25
0
0
        Sample::four();
26}
27
1
4
if ( $i || $j )
28{
29
1
0
print "i+j";
30}
31