sub struct {
   return
      ref($_[0])
         ? ref($_[0]) eq 'HASH'
            ? $_[0]
            : croak "not a hash ref"
         : @_ & 1
            ? croak "odd number of elements in hash"
            : {@_};
}

sub struct {
   if (ref($_[0])) {
      if (ref($_[0]) eq 'HASH') {
         return $_[0];
      } else {
         croak "not a hash ref";
      }
   } elsif (@_ & 1) {
      croak "odd number of elements in hash";
   } else {
      return {@_};
   }
}

$z = ($x == 4) ? ($y == 3) ? 7 :
                  ($y == 4) ? 8 : 0
                :
      ($x == 3) ? ($y == 4) ? 7 :
                  ($y == 3) ? 6 : 0
                : 0;

while $dragon->isa(SCHREIBFAULE) do { use('?') };
while $dragon->wants(BETTERREADING, 4, Others) do { use(IF) };

# Meta-x indent-region
sub struct {
  return
    ref($_[0])
      ? ref($_[0]) eq 'HASH'
        ? $_[0]
          : croak "not a hash ref"
            : @_ & 1
              ? croak "odd number of elements in hash"
                : {@_};
}

@_ & 1