destroy.5.008

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


------------------------------------------ ------ ------ ------ ------ ------
File                                         stmt branch   cond    sub  total
------------------------------------------ ------ ------ ------ ------ ------
tests/destroy                              100.00    n/a    n/a 100.00 100.00
Total                                      100.00    n/a    n/a 100.00 100.00
------------------------------------------ ------ ------ ------ ------ ------


tests/destroy

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


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

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