The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!perl

use Test::More;

plan skip_all => 'Test::Perl::Critic test is for author only'
    unless -e 't/AUTHOR_BUILD';

eval "use Test::Perl::Critic (-profile => 't/criticrc',
                              -severity => 1,
                              -format => '%m in %f, line %l.' );";
plan skip_all => 'Test::Perl::Critic required to criticise code' if $@;
all_critic_ok();