100% coverage?

tobyink · Sep 12, 2022 · 4783a57 · 4783a57
1 parent 4bb4a3e
commit 4783a57
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 3 deletions.
diff --git a/lib/Eval/TypeTiny.pm b/lib/Eval/TypeTiny.pm
@@ -28,7 +28,7 @@ sub _pick_alternative {
 			++$ok if $condition;
 		}
 		next unless $ok;
-		return ref( $result ) ? $result->() : $result;
+		return ref( $result ) eq 'CODE' ? $result->() : ref( $result ) eq 'SCALAR' ? eval( $$result ) : $result;
 	}
 	return;
 }
@@ -94,8 +94,8 @@ sub import {
 	my %already;    # prevent renaming established functions
 	sub set_subname ($$) {
 		$subname = _pick_alternative(
-			needs => 'Sub::Util' => sub { \&Sub::Util::set_subname },
-			needs => 'Sub::Name' => sub { \&Sub::Name::subname     },
+			needs => 'Sub::Util' => \ q{ \&Sub::Util::set_subname },
+			needs => 'Sub::Name' => \ q{ \&Sub::Name::subname     },
 			if    => !!1         => 0,
 		) unless defined $subname;
 		$subname and !$already{$_[1]}++ and return &$subname;

diff --git a/t/20-modules/Eval-TypeTiny/basic.t b/t/20-modules/Eval-TypeTiny/basic.t
@@ -235,5 +235,9 @@ subtest "exception for wrong reference type" => sub {
 	}
 };
 
+subtest "_pick_alternative" => sub {
+	is Eval::TypeTiny::_pick_alternative( if => 1, 'foo' ) || 'bar', 'foo';
+	is Eval::TypeTiny::_pick_alternative( if => 0, 'foo' ) || 'bar', 'bar';
+};
 
 done_testing;