Branch Coverage

blib/lib/FBP/Perl.pm

Criterion	Covered	Total	%
branch	365	470	77.6

line	true	false	branch
346	0	10	unless (&Params::Util::_INSTANCE($self->project, 'FBP::Project'))
349	0	10	unless (defined $self->version)
352	0	10	unless (defined &Params::Util::_STRING($self->version))
355	7	3	unless (defined $self->prefix)
358	0	10	unless (defined &Params::Util::_NONNEGINT($self->prefix))
361	9	1	unless (defined $self->i18n)
364	9	1	unless (defined $self->i18n_trim)
367	1	9	$self->i18n_trim ? :
368	3	7	unless (defined $self->nocritic)
371	7	3	$self->nocritic ? :
372	2	8	$self->shim ? :
373	1	9	$self->shim_deep ? :
374	8	2	unless $self->shim
425	6	3	if ($self->nocritic)
432	6	3	if (@$lines)
443	9	0	$self->project_utf8 ? :
461	9	0	$self->project_utf8 ? :
529	0	1	$self->shim ? :
580	3	2	if ($self->project->namespace)
602	1	0	if ($project->find_first('isa', 'FBP::HtmlWindow'))
605	0	1	if ($project->find_first('isa', 'FBP::DatePickerCtrl'))
608	1	0	if ($self->i18n)
619	0	1	$self->shim ? :
680	0	0	if ($self->project->namespace)
681	0	0	if ($self->shim_deep)
786	8	3	unless ($self->project->namespace)
788	0	8	if ($self->shim) { }
796	2	1	if ($self->shim) { }
826	0	7	if ($self->find_plain($topic, 'FBP::HtmlWindow'))
829	1	6	if ($self->find_plain($topic, 'FBP::Grid'))
832	1	6	if ($self->find_plain($topic, 'FBP::CalendarCtrl')) { }
	0	6	elsif ($self->find_plain($topic, 'FBP::DatePickerCtrl')) { }
838	1	6	if ($self->find_plain($topic, 'FBP::RichTextCtrl'))
879	1	6	if ($form->isa('FBP::Dialog')) { }
	4	2	elsif ($form->isa('FBP::Frame')) { }
	2	0	elsif ($form->isa('FBP::Panel')) { }
899	0	7	if ($self->form_setsizehints($form))
904	1	6	if ($status)
933	1	6	if ($form->isa('FBP::Dialog')) { }
	4	2	elsif ($form->isa('FBP::Frame')) { }
	2	0	elsif ($form->isa('FBP::Panel')) { }
1025	0	7	unless (@sizers)
1028	0	7	unless (@sizers == 1)
1039	5	2	if ($form->isa('FBP::Dialog') or $form->isa('FBP::Frame'))
1041	0	5	if ($self->size($form->minimum_size))
1044	0	5	if ($self->size($form->maximum_size))
1067	0	100	unless $object->can('name')
1068	0	100	unless $object->can('permission')
1069	99	1	unless $object->permission eq 'public'
1073	0	1	if ($seen{$name}++)
1083	12680	2420	unless $object->can($event)
1087	2392	28	unless defined $method
1088	0	28	unless length $method
1091	0	28	if ($seen{$method})
1094	2	26	if $done{$method}++
1121	1	225	if $child->isa('FBP::StatusBar')
1123	89	136	if ($child->isa('FBP::Window')) { }
	1	135	elsif ($child->isa('FBP::StdDialogButtonSizer')) { }
1130	78	147	unless $child->does('FBP::Children')
1131	36	111	if ($object->isa('FBP::Window')) { }
1147	1	88	if ($window->isa('FBP::AnimationCtrl')) { }
	1	87	elsif ($window->isa('FBP::BitmapButton')) { }
	9	78	elsif ($window->isa('FBP::Button')) { }
	1	77	elsif ($window->isa('FBP::CalendarCtrl')) { }
	4	73	elsif ($window->isa('FBP::CheckBox')) { }
	1	72	elsif ($window->isa('FBP::Choice')) { }
	1	71	elsif ($window->isa('FBP::Choicebook')) { }
	1	70	elsif ($window->isa('FBP::ComboBox')) { }
	2	68	elsif ($window->isa('FBP::ColourPickerCtrl')) { }
	1	67	elsif ($window->isa('FBP::CustomControl')) { }
	0	67	elsif ($window->isa('FBP::DatePickerCtrl')) { }
	1	66	elsif ($window->isa('FBP::DirPickerCtrl')) { }
	1	65	elsif ($window->isa('FBP::FilePickerCtrl')) { }
	1	64	elsif ($window->isa('FBP::FontPickerCtrl')) { }
	1	63	elsif ($window->isa('FBP::Gauge')) { }
	1	62	elsif ($window->isa('FBP::GenericDirCtrl')) { }
	1	61	elsif ($window->isa('FBP::Grid')) { }
	1	60	elsif ($window->isa('FBP::HtmlWindow')) { }
	1	59	elsif ($window->isa('FBP::HyperlinkCtrl')) { }
	2	57	elsif ($window->isa('FBP::Listbook')) { }
	1	56	elsif ($window->isa('FBP::ListBox')) { }
	1	55	elsif ($window->isa('FBP::ListCtrl')) { }
	1	54	elsif ($window->isa('FBP::MenuBar')) { }
	1	53	elsif ($window->isa('FBP::Notebook')) { }
	13	40	elsif ($window->isa('FBP::Panel')) { }
	1	39	elsif ($window->isa('FBP::RadioBox')) { }
	4	35	elsif ($window->isa('FBP::RadioButton')) { }
	1	34	elsif ($window->isa('FBP::RichTextCtrl')) { }
	1	33	elsif ($window->isa('FBP::ScrollBar')) { }
	1	32	elsif ($window->isa('FBP::ScrolledWindow')) { }
	1	31	elsif ($window->isa('FBP::SearchCtrl')) { }
	1	30	elsif ($window->isa('FBP::Slider')) { }
	1	29	elsif ($window->isa('FBP::SpinButton')) { }
	1	28	elsif ($window->isa('FBP::SpinCtrl')) { }
	1	27	elsif ($window->isa('FBP::SplitterWindow')) { }
	1	26	elsif ($window->isa('FBP::StaticBitmap')) { }
	4	22	elsif ($window->isa('FBP::StaticLine')) { }
	17	5	elsif ($window->isa('FBP::StaticText')) { }
	0	5	elsif ($window->isa('FBP::StatusBar')) { }
	2	3	elsif ($window->isa('FBP::TextCtrl')) { }
	1	2	elsif ($window->isa('FBP::ToggleButton')) { }
	1	1	elsif ($window->isa('FBP::ToolBar')) { }
	1	0	elsif ($window->isa('FBP::TreeCtrl')) { }
1188	1	1	if ($window->wxclass eq 'Wx::Treebook') { }
1272	1	0	unless ($bitmap eq $self->bitmap(undef))
1280	0	1	if ($control->play)
1314	1	0	if ($disabled ne $null)
1321	1	0	if ($selected ne $null)
1328	1	0	if ($hover ne $null)
1335	1	0	if ($focus ne $null)
1343	0	1	if ($control->default)
1371	1	8	if ($control->default)
1494	0	2	if ($colour eq 'undef')
1617	1	0	if ($max_point_size)
1647	1	0	if ($value)
1718	1	0	if ($control->grid_line_color)
1737	1	0	if ($control->column_sizes)
1744	1	0	if ($control->autosize_cols)
1752	1	0	if ($control->col_label_values)
1768	1	0	if ($control->row_sizes)
1775	1	0	if ($control->autosize_rows)
1779	1	0	if ($control->row_label_values)
1791	1	0	if ($control->label_bg)
1799	1	0	if ($control->label_font)
1807	1	0	if ($control->label_text)
1819	1	0	if ($control->cell_bg)
1827	0	1	if ($control->cell_font)
1835	0	1	if ($control->cell_text)
1891	1	0	if ($control->normal_color)
1899	1	0	if ($control->hover_color)
1907	0	1	if ($control->visited_color)
1990	0	3	if ($child->isa('FBP::Menu')) { }
	2	1	elsif ($child->isa('FBP::MenuItem')) { }
2004	0	3	if ($child->isa('FBP::Menu')) { }
	2	1	elsif ($child->isa('FBP::MenuItem')) { }
	1	0	elsif ($child->isa('FBP::MenuSeparator')) { }
2167	2	2	if ($control->value)
2376	1	0	if (length $sashgravity and $sashgravity >= 0)
2379	0	1	if (length $sashsize and $sashsize >= 0)
2382	1	0	if ($min_pane_size and $min_pane_size > 0)
2456	1	0	if ($self->object_lexical($object)) { }
2513	2	4	$event ? :
2542	1	1	if ($maxlength)
2570	1	0	if ($control->value)
2609	2	1	$_->isa('FBP::Tool') ? :
2616	2	1	ref $_ ? :
2634	0	1	$style ? :
2678	7	91	if ($child->isa('FBP::Sizer')) { }
	1	90	elsif ($child->isa('FBP::Choicebook')) { }
	2	88	elsif ($child->isa('FBP::Listbook')) { }
	1	87	elsif ($child->isa('FBP::Notebook')) { }
	13	74	elsif ($child->isa('FBP::Panel')) { }
	1	73	elsif ($child->isa('FBP::SplitterWindow')) { }
	1	72	elsif ($child->isa('FBP::ScrolledWindow')) { }
	0	72	elsif ($child->does('FBP::Children')) { }
2693	0	0	if (@{$child->children;})
2706	2	25	if ($sizer->isa('FBP::GridBagSizer')) { }
	1	24	elsif ($sizer->isa('FBP::FlexGridSizer')) { }
	1	23	elsif ($sizer->isa('FBP::GridSizer')) { }
	1	22	elsif ($sizer->isa('FBP::StaticBoxSizer')) { }
	21	1	elsif ($sizer->isa('FBP::BoxSizer')) { }
	1	0	elsif ($sizer->isa('FBP::StdDialogButtonSizer')) { }
2736	11	0	if ($child->isa('FBP::Panel')) { }
2737	4	7	$item->select ? :
2770	2	65	if ($child->isa('FBP::Spacer')) { }
2827	0	5	if ($child->isa('FBP::Spacer')) { }
2885	2	6	if ($child->isa('FBP::Spacer')) { }
2936	0	4	if ($child->isa('FBP::Spacer')) { }
2997	1	12	unless my $sizer = $panel->children->[0]
3018	0	1	unless my $sizer = $window->children->[0]
3045	0	1	if (@windows == 1)
3058	1	0	if (@windows == 2)
3063	0	1	$window->splitmode eq 'wxSPLIT_HORIZONTAL' ? :
3067	0	1	$sashpos ? :
3106	0	1	if ($child->isa('FBP::Spacer')) { }
3160	2	94	if ($window->can('selection'))
3175	1	95	if ($window->fg)
3192	3	93	if ($window->bg)
3209	1	95	if ($window->font)
3226	3	93	if ($window->tooltip)
3243	2	94	unless ($window->enabled)
3257	1	95	if ($window->hidden)
3270	0	28	$CONNECT{$_} ? :
3271	2462	12789	if $object->can($_)
3284	0	28	unless my $method = $object->$attribute
3289	16	12	if ($args == 2)
3301	10	2	if ($variable eq '$self')
3330	1	122	if ($minimum and $self->size($minimum))
3346	0	96	if ($maximum and $self->size($maximum))
3362	0	0	unless my $method = $object->$attribute
3363	0	0	unless my $constant = $CONNECT{$attribute}
3396	28	94	if ($self->object_lexical($object)) { }
3406	12	370	if ($object->does('FBP::Form')) { }
	59	311	elsif ($self->object_lexical($object)) { }
3418	54	41	if ($object and not $object->does('FBP::Form')) { }
3429	76	0	unless ($position)
3447	0	0	if $object->isa('FBP::Dialog')
3448	0	0	if $object->isa('FBP::Frame')
3479	50	23	if (defined $styles and length $styles)
3489	4	16	if $self->size($window->size)
3535	2	2	unless (@items)
3566	0	8	if (@_ > 1)
3575	8	0	if (@_)
3588	2	445	if $string eq ''
3589	100	345	if $string eq 'wxID_ANY'
3592	54	291	if ($self->prefix) { }
3609	4	74	unless (defined $string and length $string)
3614	15	59	unless ($self->i18n)
3621	4	55	if ($self->i18n_trim)
3622	0	4	if ($string =~ /^[ :]+\z/)
3625	1	3	if ($string =~ s/^([ :]+)//s)
3628	1	3	if ($string =~ s/(\s*\.\.\.)\z//s) { }
	2	1	elsif ($string =~ s/([ :]+)\z//s) { }
3640	1	58	if (length $leading)
3643	3	56	if (length $trailing)
3658	0	115	unless $self->project_utf8
3665	9	6	length $1 > 2 ? :
3668	110	5	unless utf8::is_utf8($unicode)
3675	70	7	unless $string
3683	0	108	unless defined $string
3684	8	100	if $string eq '-1,-1'
3693	0	12	unless (length $string)
3698	8	4	if ($string =~ /^\d/)
3704	4	0	if ($string =~ /^wx/)
3717	1	2	unless (length $string)
3724	2	0	if (@font == 6)
3748	0	2	if ($size and $size > 0)
3757	3	8	unless (defined $file)
3769	1	0	unless (&Params::Util::_STRING($string))
3780	3	8	unless &Params::Util::_STRING($string)
3781	0	8	unless $string =~ s/; Load From File$//
3786	13	3	/\S/ ? :
3787	0	3	ref $_[1] ? :
3795	20	2213	ref $_ ? :
3799	1859	192	/\S/ ? :