CPAN Release 0.37

- Support calling `->$::XXX` with global - mst++ Devel::Dwarn++

4 files changed, 12 insertions, 3 deletions

diff --git a/Changes b/Changes
index 40a2d5e..d12ecd6 100644
--- a/Changes
+++ b/Changes
@@ -1,4 +1,9 @@
 ---
+version: 0.37
+date:    Sat 19 Jun 2021 10:49:06 AM PDT
+changes:
+- Support calling `->$::XXX` with global - mst++ Devel::Dwarn++
+---
 version: 0.36
 date:    Fri 18 Jun 2021 05:12:02 PM PDT
 changes:
diff --git a/Meta b/Meta
index 8fcd5c8..24cbead 100644
--- a/Meta
+++ b/Meta
@@ -1,7 +1,7 @@
 =meta: 0.0.2
 
 name: XXX
-version: 0.36
+version: 0.37
 abstract: See Your Data in the Nude
 homepage: https://metacpan.org/release/XXX
 language: perl
diff --git a/ReadMe.pod b/ReadMe.pod
index 64c0be9..a8706cf 100644
--- a/ReadMe.pod
+++ b/ReadMe.pod
@@ -12,7 +12,7 @@ XXX - See Your Data in the Nude
 
 =head1 Version
 
-This document describes L<XXX> version B<0.36>.
+This document describes L<XXX> version B<0.37>.
 
 =for html
 <a href="https://travis-ci.org/ingydotnet/xxx-pm"><img src="https://travis-ci.org/ingydotnet/xxx-pm.png" alt="xxx-pm"></a>
diff --git a/lib/XXX.pm b/lib/XXX.pm
index aa68bce..7e9cd34 100644
--- a/lib/XXX.pm
+++ b/lib/XXX.pm
@@ -1,6 +1,6 @@
 use strict; use warnings;
 package XXX;
-our $VERSION = '0.36';
+our $VERSION = '0.37';
 use base 'Exporter';
 
 our @EXPORT = qw( WWW XXX YYY ZZZ );
@@ -30,6 +30,10 @@ sub import {
         *main::XXX = \&XXX;
         *main::YYY = \&YYY;
         *main::ZZZ = \&ZZZ;
+        $main::WWW = \&WWW;
+        $main::XXX = \&XXX;
+        $main::YYY = \&YYY;
+        $main::ZZZ = \&ZZZ;
     }
     @_ = ($package);
     goto &Exporter::import;