Branch Coverage

blib/lib/Hydrogen/Curry/String.pm

Criterion	Covered	Total	%
branch	152	304	50.0

line	true	false	branch
79	0	2	unless @_ == 1
84	0	2	unless ref \$_[0] eq "SCALAR"
	2	0	if (defined $_[0])
	0	2	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
100	0	1	unless @_ == 1
105	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
121	0	1	unless @_ == 1
126	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
142	0	1	unless @_ == 1
147	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
163	0	1	unless @_ == 1
168	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
184	0	1	unless @_ == 1
189	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
205	0	1	unless @_ == 1
210	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
226	0	1	unless @_ == 1
231	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
247	0	1	unless @_ == 1
252	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
268	0	1	unless @_ == 1
273	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
289	0	1	unless @_ == 1
294	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
310	0	1	unless @_ == 1
315	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
331	0	1	unless @_ == 1
336	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
352	0	1	unless @_ == 1
357	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
373	0	1	unless @_ == 1
378	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
394	0	1	unless @_ == 1
399	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
415	0	1	unless @_ == 1
420	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
436	0	1	unless @_ == 1
441	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
457	0	1	unless @_ == 1
462	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
478	0	1	unless @_ == 1
483	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
499	0	1	unless @_ == 1
504	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
520	0	1	unless @_ == 1
525	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
541	0	1	unless @_ == 1
546	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
562	0	1	unless @_ == 1
567	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
583	0	1	unless @_ == 1
588	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
604	0	1	unless @_ == 1
609	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
625	0	1	unless @_ == 1
630	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
646	0	1	unless @_ == 1
651	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
667	0	1	unless @_ == 1
672	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
688	0	1	unless @_ == 1
693	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
709	0	1	unless @_ == 1
714	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
730	0	1	unless @_ == 1
735	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
751	0	1	unless @_ == 1
756	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
772	0	1	unless @_ == 1
777	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
793	0	1	unless @_ == 1
798	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
814	0	1	unless @_ == 1
819	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
835	0	1	unless @_ == 1
840	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }
856	0	1	unless @_ == 1
861	0	1	unless ref \$_[0] eq "SCALAR"
	1	0	if (defined $_[0])
	0	1	unless do { package Hydrogen::String::__SANDBOX__; if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } }