New upstream version 20190601

[perltidy.git] / lib / Perl / Tidy / DevNull.pm

diff --git a/lib/Perl/Tidy/DevNull.pm b/lib/Perl/Tidy/DevNull.pm
new file mode 100644 (file)
index 0000000..e755e0c
--- /dev/null
+++ b/lib/Perl/Tidy/DevNull.pm
@@ -0,0 +1,16 @@
+#####################################################################
+#
+# The Perl::Tidy::DevNull class supplies a dummy print method
+#
+#####################################################################
+
+package Perl::Tidy::DevNull;
+use strict;
+use warnings;
+our $VERSION = '20190601';
+sub new { my $self = shift; return bless {}, $self }
+sub print { return }
+sub close { return }
+
+1;
+