DBIx::QueryLog add_skip_packages patch

gistfile1.txt

diff --git a/lib/DBIx/QueryLog.pm b/lib/DBIx/QueryLog.pm
index 747cdd5..cf5e379 100644
--- a/lib/DBIx/QueryLog.pm
+++ b/lib/DBIx/QueryLog.pm
@@ -8,6 +8,7 @@ use DBI;
 use Time::HiRes qw(gettimeofday tv_interval);
 use Term::ANSIColor qw(colored);
 use Data::Dumper ();
+use Module::Find ();
 
 $ENV{ANSI_COLORS_DISABLED} = 1 if $^O eq 'MSWin32';
 
@@ -90,6 +91,14 @@ for my $accessor (qw{
     };
 }
 
+sub add_skip_packages {
+    my ($self, @modules) = @_;
+    %SKIP_PKG_MAP = (
+        (map {$_ => 1, map {$_ => 1} Module::Find::findallmod($_) } @modules),
+        %SKIP_PKG_MAP,
+    );
+}
+
 sub _st_execute {
     my ($class, $org) = @_;