Reading database from /home/pjcj/g/perl/svk/dc/cover_db


------------------------------------------ ------ ------ ------ ------ ------
File                                         stmt   bran   cond    sub  total
------------------------------------------ ------ ------ ------ ------ ------
tests/Alias1.pm                             100.0  100.0    n/a  100.0  100.0
tests/alias1                                100.0    n/a    n/a    n/a  100.0
Total                                       100.0  100.0    n/a  100.0  100.0
------------------------------------------ ------ ------ ------ ------ ------


Run: ...
Perl version: ...
OS: ...
Start: ...
Finish: ...

tests/Alias1.pm

line  err   stmt   bran   cond    sub   code
1                                       # Copyright 2004-2007, Paul Johnson (pjcj@cpan.org)
2                                       
3                                       # This software is free.  It is licensed under the same terms as Perl itself.
4                                       
5                                       # The latest version of this software should be available from my homepage:
6                                       # http://www.pjcj.net
7                                       
8                                       package Alias1;
9                                       
10                                      use strict;
11                                      use warnings;
12                                      
13                                      use Exporter;
14                                      
15                                      our @ISA = qw(Exporter);
16                                      our @EXPORT = qw(is_3digits);
17                                      
18                                      sub is_3digits {
19             2                    2       my $val = shift;
20             2                            my $retval = undef;
21             2    100                     $retval=1 if $val =~ /^\d{3}$/;
22             2                            return $retval;
23                                      }
24                                      
25                                      1;


Branches
--------

line  err      %   true  false   branch
----- --- ------ ------ ------   ------
21           100      1      1   if $val =~ /^\d{3}$/


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

Subroutine Count Location          
---------- ----- ------------------
is_3digits     2 tests/Alias1.pm:19


tests/alias1

line  err   stmt   bran   cond    sub   code
1                                       #!/usr/bin/perl
2                                       
3                                       # Copyright 2004-2007, Paul Johnson (pjcj@cpan.org)
4                                       
5                                       # This software is free.  It is licensed under the same terms as Perl itself.
6                                       
7                                       # The latest version of this software should be available from my homepage:
8                                       # http://www.pjcj.net
9                                       
10                                      use strict;
11                                      use warnings;
12                                      use lib "tests";
13                                      
14                                      use Alias1;
15                                      
16             1                        is_3digits(1234);
17             1                        is_3digits(123);
18                                      
19             1                        exit;