Add a sample script

[perl/modules/Perl-Critic-Policy-Dynamic-NoIndirect.git] / samples / check.pl

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) };