Reading database from /Users/jimk/learn/perl/nocover/Alpha/cover_db


---------------------------- ------ ------ ------ ------ ------ ------ ------
File                           stmt   bran   cond    sub    pod   time  total
---------------------------- ------ ------ ------ ------ ------ ------ ------
blib/lib/Alpha.pm             100.0    n/a    n/a  100.0    0.0   63.2   91.7
blib/lib/Beta.pm              100.0    n/a    n/a  100.0    0.0   36.8   91.7
Total                         100.0    n/a    n/a  100.0    0.0  100.0   91.7
---------------------------- ------ ------ ------ ------ ------ ------ ------


Run:          t/01_alpha.t
Perl version: 5.8.7
OS:           darwin
Start:        Mon Jul 24 00:27:51 2006
Finish:       Mon Jul 24 00:27:51 2006

Run:          t/02_beta.t
Perl version: 5.8.7
OS:           darwin
Start:        Mon Jul 24 00:27:54 2006
Finish:       Mon Jul 24 00:27:54 2006

Run:          t/03_gamma.t
Perl version: 5.8.7
OS:           darwin
Start:        Mon Jul 24 00:27:57 2006
Finish:       Mon Jul 24 00:27:57 2006

blib/lib/Alpha.pm

line  err   stmt   bran   cond    sub    pod   time   code
1                                                     package Alpha;
2                                                     #$Id#
3              2                    2            51   use strict;
               2                                  9   
               2                                 55   
4              2                    2           120   use warnings;
               2                                 11   
               2                                 49   
5                                                     our $VERSION = '0.01';
6                                                     
7                                                     sub new {
8     ***      2                    2      0     13       my $class = shift;
9              2                                 31       return bless {}, $class;
10                                                    }
11                                                    
12                                                    sub sayhowdy {
13    ***      1                    1      0      7       my $self = shift;
14             1                                 22       my $string = q{};
15             2                    2          6245       open my $fh, ">", \$string;
               2                                 25   
               2                                 57   
               1                                 10   
16             1                                 56       print $fh "Howdy, alpha\n";
17             1                                 13       close $fh;
18             1                                 57       return $string;
19                                                    }
20                                                    
21                                                    1;


Covered Subroutines
-------------------

Subroutine Count Location            
---------- ----- --------------------
BEGIN          2 blib/lib/Alpha.pm:15
BEGIN          2 blib/lib/Alpha.pm:3 
BEGIN          2 blib/lib/Alpha.pm:4 
new            2 blib/lib/Alpha.pm:8 
sayhowdy       1 blib/lib/Alpha.pm:13


blib/lib/Beta.pm

line  err   stmt   bran   cond    sub    pod   time   code
1                                                     package Beta;
2                                                     #$Id#
3              2                    2            49   use strict;
               2                                 10   
               2                                 64   
4              2                    2            43   use warnings;
               2                                  8   
               2                                 46   
5                                                     our $VERSION = '0.01';
6                                                     
7                                                     sub new {
8     ***      1                    1      0      8       my $class = shift;
9              1                                 20       return bless {}, $class;
10                                                    }
11                                                    
12                                                    sub sayhowdy {
13    ***      2                    2      0     16       my $self = shift;
14             2                                 10       my $string = q{};
15             1                    1          3356       open my $fh, ">", \$string;
               1                                 12   
               1                                 27   
               2                                 85   
16             2                                 78       print $fh "Howdy, beta\n";
17             2                                 36       close $fh;
18             2                                101       return $string;
19                                                    }
20                                                    
21                                                    *Alpha::sayhowdy = \&sayhowdy if ! defined &Alpha::sayhowdy;
22                                                    
23                                                    1;


Covered Subroutines
-------------------

Subroutine Count Location           
---------- ----- -------------------
BEGIN          1 blib/lib/Beta.pm:15
BEGIN          2 blib/lib/Beta.pm:3 
BEGIN          2 blib/lib/Beta.pm:4 
new            1 blib/lib/Beta.pm:8 
sayhowdy       2 blib/lib/Beta.pm:13


