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


------------------------------------------ ------ ------ ------ ------ ------
File                                         stmt   bran   cond    sub  total
------------------------------------------ ------ ------ ------ ------ ------
tests/destroy                               100.0    n/a    n/a  100.0  100.0
Total                                       100.0    n/a    n/a  100.0  100.0
------------------------------------------ ------ ------ ------ ------ ------


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

tests/destroy

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                                      package Destroy;
11                                      
12             1                    1   sub new { bless {}, shift }
13                                      
14             1                        my $x;
15                                      
16                                      sub DESTROY
17                                      {
18             1                    1       $x++;
19             1                            $x++;
20                                      }
21                                      
22                                      package main;
23                                      
24             1                        my $d = Destroy->new;


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

Subroutine Count Location        
---------- ----- ----------------
DESTROY        1 tests/destroy:18
new            1 tests/destroy:12