0
@@ -12,7 +12,23 @@
0
 
0
 use strict;
0
 use warnings;
0
-use Lingua::Bork qw( bork );
0
+require_module('Lingua::Bork', qw(bork));
0
 
0
 print bork($_) while (<>);
0
+
0
+#################################
0
+# My little require module method
0
+
0
+sub require_module {
0
+  my $module = shift;
0
+  
0
+  eval "require $module";
0
+  if (my $e = $@) {
0
+    print STDERR "FATAL: $0 requires the Perl module '$module'.\n\n";
0
+    print STDERR "You can install it with:\n\n";
0
+    print STDERR "    cpan $module\n\n";
0
+    exit(1);
0
+  }
0
+  $module->import(@_);
0
+}