Branch Coverage

blib/lib/WebDAO/Base.pm

Criterion	Covered	Total	%
branch	111	242	45.8

line	true	false	branch
35	37	4	if $_[0] =~ /\:\:/ or $_[0] eq $pkg
42	0	172	if (UNIVERSAL::can($pkg, "$attr"))
48	0	4	exists $self->{'Cgi_env'} ? :
	4	12	if (@_)
	0	12	unless exists $self->{'Cgi_env'}
	0	4	exists $self->{'Cgi_obj'} ? :
	4	11	if (@_)
	0	11	unless exists $self->{'Cgi_obj'}
	3	4	exists $self->{'Params'} ? :
	7	0	if (@_)
	0	0	unless exists $self->{'Params'}
	6	4	exists $self->{'U_id'} ? :
	10	0	if (@_)
	0	0	unless exists $self->{'U_id'}
	0	1	exists $self->{'__childs'} ? :
	1	1	if (@_)
	0	1	unless exists $self->{'__childs'}
	0	1	exists $self->{'__engine'} ? :
	1	0	if (@_)
	0	0	unless exists $self->{'__engine'}
	0	1	exists $self->{'__events'} ? :
	1	0	if (@_)
	0	0	unless exists $self->{'__events'}
	0	0	exists $self->{'__extra_path'} ? :
	0	0	if (@_)
	0	0	unless exists $self->{'__extra_path'}
	0	1	exists $self->{'__fh'} ? :
	1	1	if (@_)
	0	1	unless exists $self->{'__fh'}
	0	1	exists $self->{'__my_name'} ? :
	1	0	if (@_)
	0	0	unless exists $self->{'__my_name'}
	0	1	exists $self->{'__obj'} ? :
	1	1	if (@_)
	0	1	unless exists $self->{'__obj'}
	0	1	exists $self->{'__parent'} ? :
	1	1	if (@_)
	0	1	unless exists $self->{'__parent'}
	0	1	exists $self->{'__path2me'} ? :
	1	0	if (@_)
	0	0	unless exists $self->{'__path2me'}
	0	1	exists $self->{'__post_childs'} ? :
	1	1	if (@_)
	0	1	unless exists $self->{'__post_childs'}
	0	1	exists $self->{'__pre_childs'} ? :
	1	1	if (@_)
	0	1	unless exists $self->{'__pre_childs'}
	0	0	exists $self->{'_args'} ? :
	0	0	if (@_)
	0	0	unless exists $self->{'_args'}
	0	12	exists $self->{'_call_backs'} ? :
	12	6	if (@_)
	0	6	unless exists $self->{'_call_backs'}
	0	12	exists $self->{'_cv_obj'} ? :
	12	9	if (@_)
	0	9	unless exists $self->{'_cv_obj'}
	0	1	exists $self->{'_forced_want_format'} ? :
	1	5	if (@_)
	3	2	unless exists $self->{'_forced_want_format'}
	0	12	exists $self->{'_headers'} ? :
	12	20	if (@_)
	0	20	unless exists $self->{'_headers'}
	0	0	exists $self->{'_is_absolute_url'} ? :
	0	0	if (@_)
	0	0	unless exists $self->{'_is_absolute_url'}
	0	0	exists $self->{'_is_empty'} ? :
	0	0	if (@_)
	0	0	unless exists $self->{'_is_empty'}
	0	1	exists $self->{'_is_file_send'} ? :
	1	3	if (@_)
	1	2	unless exists $self->{'_is_file_send'}
	0	2	exists $self->{'_is_flushed'} ? :
	2	4	if (@_)
	3	1	unless exists $self->{'_is_flushed'}
	0	3	exists $self->{'_is_headers_printed'} ? :
	3	4	if (@_)
	4	0	unless exists $self->{'_is_headers_printed'}
	0	2	exists $self->{'_is_modal'} ? :
	2	0	if (@_)
	0	0	unless exists $self->{'_is_modal'}
	0	1	exists $self->{'_is_need_close_fh'} ? :
	1	2	if (@_)
	0	2	unless exists $self->{'_is_need_close_fh'}
	0	1	exists $self->{'_parsed_cookies'} ? :
	1	1	if (@_)
	1	0	unless exists $self->{'_parsed_cookies'}
	0	1	exists $self->{'_path'} ? :
	1	0	if (@_)
	0	0	unless exists $self->{'_path'}
	0	0	exists $self->{'_raw_html'} ? :
	0	0	if (@_)
	0	0	unless exists $self->{'_raw_html'}
	0	4	exists $self->{'_response_obj'} ? :
	4	0	if (@_)
	0	0	unless exists $self->{'_response_obj'}
	0	1	exists $self->{'_session'} ? :
	1	0	if (@_)
	0	0	unless exists $self->{'_session'}
	0	3	exists $self->{'status'} ? :
	3	5	if (@_)
	3	2	unless exists $self->{'status'}
	0	2	exists $self->{'status'} ? :
	2	3	if (@_)
	1	2	unless exists $self->{'status'}
	0	1	exists $self->{'__conf'} ? :
	1	1	if (@_)
	0	1	unless exists $self->{'__conf'}
49	0	41	if ($@)
71	0	0	if $_[0] =~ /\:\:/ or $_[0] eq $pkg
80	0	0	unless (exists $main->{$module})
83	0	0	if ($@)
119	0	0	($stat = $self->_init(@_)) ? :
139	0	0	if ref $_[0]
140	0	0	if ref $_[0]
141	0	0	if ref $_[0]
142	0	0	if ref $_[0]
143	0	0	if ref $_[0]
144	0	0	if ref $_[0]
148	0	0	unless $dbg_level
149	0	0	unless scalar @_
151	0	0	if $dbg_level < $args{'level'}