# WTF if ( defined $r && ref $r && ref $r eq 'HASH' && keys %$r ) { ... }
if( $r and UNIVERSAL::isa($r,'HASH') and %$r ) { ... }
Exposed internals. I know about the guts. I'd like to not care. KTHX. ..

You don't need to know about the guts, but you do need to encode your data, if you care about its encoding.

In reply to Re^2: disadvantages of perl by Anonymous Monk
in thread disadvantages of perl by perldesire

Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post; it's "PerlMonks-approved HTML":