branch_return_sub.5.006001

Reading database from /home/pjcj/g/perl/dev/Devel-Cover-0.3805/cover_db


------------------------------------------ ------ ------ ------ ------ ------
File                                         stmt branch   cond    sub  total
------------------------------------------ ------ ------ ------ ------ ------
tests/branch_return_sub                     100.0  100.0  100.0  100.0  100.0
Total                                       100.0  100.0  100.0  100.0  100.0
------------------------------------------ ------ ------ ------ ------ ------


tests/branch_return_sub

line  err   stmt branch   cond    sub   code
1                                       #!/usr/bin/perl
2                                       
3                                       # Copyright 2004, 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                                      
13                                      sub my_sqrt
14                                      {
15             3                  100       my $n = shift;
16                                      
17             3    100    100              if ( !defined($n) || ($n < 0) ) {
18             2                                return undef;
19                                          }
20                                      
21             1                            return sqrt($n);
22                                      }
23                                      
24             1                        my_sqrt(25);
25             1                        my_sqrt(-2);
26             1                        my_sqrt(undef);


Branches
--------

line  err      %   true  false   branch
----- --- ------ ------ ------   ------
17           100      2      1   if (not defined $n or $n < 0)


Conditions
----------

or 3 conditions

line  err      %      l  !l&&r !l&&!r   expr
----- --- ------ ------ ------ ------   ----
17           100      1      1      1   not defined $n or $n < 0


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

Subroutine Location                  
---------- --------------------------
my_sqrt    tests/branch_return_sub:15