File Coverage

File:Sample.pm
Coverage:75.0%

linestmtbrancondsubtimecode
1#!/usr/bin/perl
2# Author : Manoranjan Reddy
3# Email : mano[at]manosoftlive[dot]com
4use strict;
5package Sample;
6use Devel::Cover;
7sub one
8{
9
1
5
        print " In one " ;
10}
11sub two
12{
13
1
5
        print " In two " ;
14}
15sub three
16{
17
1
5
        print " In three " ;
18}
19sub four
20{
21
0
        print " In four " ;
22}
231;