# .perltidyrc configuration file
-pbp     # Start with Perl Best Practices
-l=78   # Max line width is 78 cols
-i=4    # Indent level is 4 cols
-ci=2   # Continuation indent is 2 cols
-st     # Output to STDOUT
-se     # Errors to STDERR
-vt=2   # Maximal vertical tightness
-cti=0  # No extra indentation for closing brackets
-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
-nbbc   # no blank lines before comments
-isbc    # Don't indent comments without leading space
-wbb="% + - * / x != == >= <= =~ !~ < > | & >= < = **= += *= &= <<= &&= -= /= |= >>= ||= .= %= ^= x="    
        # Break before all operators

my %a;
my $b = { 'c' => 0, 'd' => 0 };
if (1) {
    $a{ $b->{'c'} } = $b->{'d'};
}