Wantarray::Horrible

Horrible.pm

package Wantarray::Horrible;
sub new {
	my ( $class, $wantarray, $sub ) = ( shift, shift, shift );
	; $wantarray         ? bless [         &$sub        ], __PACKAGE__.'::List'
	: defined $wantarray ? bless \( scalar &$sub        ), __PACKAGE__.'::Sclr'
	:                      bless \do {     &$sub; my $o }, __PACKAGE__.'::Void';
}
sub Wantarray::Horrible::List::value { @{ $_[0] } }
sub Wantarray::Horrible::Sclr::value { ${ $_[0] } }
sub Wantarray::Horrible::Void::value { () }