no dep
Matt S Trout [Sun, 21 Mar 2010 11:42:11 +0000 (11:42 +0000)]
lib/Module/Metadata.pm

index 330a687..fe027b7 100644 (file)
@@ -17,7 +17,13 @@ $VERSION = eval $VERSION;
 use File::Spec;
 use IO::File;
 use Module::Metadata::Version;
-use Log::Contextual qw(:log :dlog);
+BEGIN {
+  if ($INC{'Log/Contextual.pm'}) {
+    Log::Contextual->import('log_info');
+  } else {
+    *log_info = sub { warn @_ };
+  }
+}
 use File::Find qw(find);
 
 my $V_NUM_REGEXP = qr{v?[0-9._]+};  # crudely, a v-string or decimal