X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;ds=sidebyside;f=samples%2Fcheck.pl;fp=samples%2Fcheck.pl;h=f444d9498febe9fcd13b71a8105e5133df3d9ee6;hb=0da2dc5f631bebe52e26345c287793712603c804;hp=0000000000000000000000000000000000000000;hpb=29bf4ad76efaca85650166c8b34a05bd755b1d2b;p=perl%2Fmodules%2FPerl-Critic-Policy-Dynamic-NoIndirect.git

diff --git a/samples/check.pl b/samples/check.pl
new file mode 100644
index 0000000..f444d94
--- /dev/null
+++ b/samples/check.pl
@@ -0,0 +1,13 @@
+#!perl
+
+use strict;
+use warnings;
+
+use blib;
+
+use Perl::Critic::TestUtils qw/pcritique_with_violations/;
+Perl::Critic::TestUtils::block_perlcriticrc();
+
+my $code = shift || exit;
+
+print for eval { pcritique_with_violations('Dynamic::NoIndirect', \$code) };