# Four-outcome tree
my $cf      = !!$code;
my $af      = !!( $args and ref $args );

$cf or defined($unit) or die('$unit not defined');

if    (  $cf &&  $af ) {
    @ARGV       = @$args;
} 
elsif (  $cf && !$af ) {
    @args       = ();
} 
elsif ( !$cf &&  $af ) {
    @args       = @$args;
    $code       = $unit . q{(@args)};
} 
elsif ( !$cf && !$af ) {
    @args       = ();
    $code       = $unit . q{()};
} 

##</code><code>##

# Four-outcome tree
my $cf      = !!$code;
my $af      = !!( $args and ref $args );
if    (  $cf &&  $af ) {
    @ARGV       = @$args;
} 
elsif (  $cf && !$af ) {
    @args       = ();
} 
elsif ( !$cf &&  $af ) {
    assert defined($unit);
    @args       = @$args;
    $code       = $unit . q{(@args)};
} 
elsif ( !$cf && !$af ) {
    assert defined($unit);
    @args       = ();
    $code       = $unit . q{()};
}