if( $location eq 'cliche' ) {
    $inn->bard('omg my ears');
    my $drink = $inn->dwarven_ale();
    $drink->watered_down( 0.75 );
    }

##</code><code>##

if ( !-e "new_entry_exists" ) {
    chown( $newentryexists_owner, $newentryexists_group,
           "new_entry_exists" );
           }

##</code><code>##

if ( !-e "new_entry_exists" ) {
    chown( $newentryexists_owner, $newentryexists_group,
           "new_entry_exists" );
    }

##</code><code>##

# PBP .perltidyrc file

-l=78   # Max line width is 78 cols
-i=4    # Indent level is 4 cols
-ci=4   # Continuation indent is 4 cols
-st     # Output to STDOUT
-se     # Errors to STDERR
-vt=2   # Maximal vertical tightness
-pt=1   # Medium parenthesis tightness
-bt=1   # Medium brace tightness
-sbt=1  # Medium square bracket tightness
-bbt=1  # Medium block brace tightness
-nsfs   # No space before semicolons
-nolq   # Don't outdent long quoted strings
-wbb="% + - * / x != == >= <= =~ !~ < > | & >= < = **= += *= &= <<= &&= -= /= |= >>= ||= .= %= ^= x="
        # Break before all operators

# ArgelWasHere

-lp     # Table formatting
-cti=2  # Extra indentation for closing brackets
-icb    # Indent to previous line for BLOCK closing brace
-iob