Branch Coverage

blib/lib/Hydrogen/Curry/String.pm

Criterion	Covered	Total	%
branch	156	312	50.0

line	true	false	branch
80	0	2	unless @_ == 1
85	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"; } }
101	0	1	unless @_ == 1
106	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"; } }
122	0	1	unless @_ == 1
127	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"; } }
143	0	1	unless @_ == 1
148	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"; } }
164	0	1	unless @_ == 1
169	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"; } }
185	0	1	unless @_ == 1
190	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"; } }
206	0	1	unless @_ == 1
211	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"; } }
227	0	1	unless @_ == 1
232	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"; } }
248	0	1	unless @_ == 1
253	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"; } }
269	0	1	unless @_ == 1
274	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"; } }
290	0	1	unless @_ == 1
295	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"; } }
311	0	1	unless @_ == 1
316	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"; } }
332	0	1	unless @_ == 1
337	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"; } }
353	0	1	unless @_ == 1
358	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"; } }
374	0	1	unless @_ == 1
379	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"; } }
395	0	1	unless @_ == 1
400	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"; } }
416	0	1	unless @_ == 1
421	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"; } }
437	0	1	unless @_ == 1
442	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"; } }
458	0	1	unless @_ == 1
463	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"; } }
479	0	1	unless @_ == 1
484	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"; } }
500	0	1	unless @_ == 1
505	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"; } }
521	0	1	unless @_ == 1
526	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"; } }
542	0	1	unless @_ == 1
547	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"; } }
563	0	1	unless @_ == 1
568	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"; } }
584	0	1	unless @_ == 1
589	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"; } }
605	0	1	unless @_ == 1
610	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"; } }
626	0	1	unless @_ == 1
631	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"; } }
647	0	1	unless @_ == 1
652	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"; } }
668	0	1	unless @_ == 1
673	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"; } }
689	0	1	unless @_ == 1
694	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"; } }
710	0	1	unless @_ == 1
715	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"; } }
731	0	1	unless @_ == 1
736	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"; } }
752	0	1	unless @_ == 1
757	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"; } }
773	0	1	unless @_ == 1
778	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"; } }
794	0	1	unless @_ == 1
799	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"; } }
815	0	1	unless @_ == 1
820	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"; } }
836	0	1	unless @_ == 1
841	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"; } }
857	0	1	unless @_ == 1
862	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"; } }
878	0	1	unless @_ == 1
883	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"; } }