1 files changed, 22 insertions, 2 deletions
diff --git a/lib/XXX.pm b/lib/XXX.pm
index 7c8b9c4..c9ddc01 100644
--- a/lib/XXX.pm
+++ b/lib/XXX.pm
@@ -1,9 +1,9 @@
 use strict; use warnings;
 package XXX;
-our $VERSION = '0.35';
+our $VERSION = '0.38';
 use base 'Exporter';
 
-our @EXPORT = qw( WWW XXX YYY ZZZ );
+our @EXPORT = qw( WWW XXX YYY ZZZ DDD );
 
 our $DumpModule = 'YAML::PP';
 
@@ -25,6 +25,18 @@ sub import {
         }
         last;
     }
+    if (grep /^-?global$/, @args) {
+        *main::WWW = \&WWW;
+        *main::XXX = \&XXX;
+        *main::YYY = \&YYY;
+        *main::ZZZ = \&ZZZ;
+        *main::DDD = \&DDD;
+        $main::WWW = \&WWW;
+        $main::XXX = \&XXX;
+        $main::YYY = \&YYY;
+        $main::ZZZ = \&ZZZ;
+        $main::DDD = \&DDD;
+    }
     @_ = ($package);
     goto &Exporter::import;
 }
@@ -127,4 +139,12 @@ sub ZZZ {
     Carp::confess(_xxx_dump(@_));
 }
 
+sub DDD {
+    require Enbugger;
+    my $debugger = $ENV{PERL_XXX_DEBUGGER} || 'perl5db';
+    Enbugger->load_debugger($debugger);
+    @_ = 'Enbugger';
+    goto Enbugger->can('stop');
+}
+
 1;