This will get you through the critic...
... and break your code.
use Test::More tests => 1; use English '-no_match_vars'; my $LIST_SEPARATOR = '|'; my @items = qw( foo bar baz ); my $interpolated = "@items"; is( $interpolated, 'foo|bar|baz', 'somehow package globals and lexical +s merged' );
In reply to Re^3: Request for Perl::Critic Testimonials (some weirdnesses of the module)
by chromatic
in thread Request for Perl::Critic Testimonials
by jthalhammer
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |