Package::Transporter::Generator::Potential::Anonymous - Minimal generator for anonymous subroutines

	use Package::Transporter sub{eval shift}, sub {
	        my $yn = q{
	                return(q{print STDOUT ($_[0] ? 'Yes' : 'No'), "\n";});
	        };
	        $_[0]->register_potential($yn, 'FOR_ANY', 'yn');
	};

The implementation is the given subroutine reference.

Please see the documentation of the upstream package Package::Transporter.