File Coverage

contrib/TestWDAO.pm
Criterion Covered Total %
statement 1 3 33.3
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 2 4 50.0


line stmt bran cond sub pod time code
1             package TestWDAO;
2 2     2   5450 use HTML::WebDAO::Element;
  0            
  0            
3             use base 'HTML::WebDAO::Element';
4             __PACKAGE__->attributes(qw/ __test1 _test2/);
5             __PACKAGE__->sess_attributes(qw/ _sess1 _sess2/);
6              
7             sub init {
8             my $self = shift;
9             _sess2 $self (3)
10             }
11             sub echo {
12             my $self = shift;
13             return shift
14             }
15              
16             1;