Add a sample script

diff --git a/MANIFEST b/MANIFEST
index c1f8109d1a5ae17e4d722a6423f6510c1f4c859b..477510f90240ca8677b6f70268c7db575adfb9d4 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -4,6 +4,7 @@ META.yml
 Makefile.PL
 README
 lib/Perl/Critic/Policy/Dynamic/NoIndirect.pm
+samples/check.pl
 t/00-load.t
 t/10-basic.t
 t/91-pod.t

diff --git a/samples/check.pl b/samples/check.pl
new file mode 100644 (file)
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) };