XML::Axk no longer loads ...App, ...Core

XML::Axk is now a stub that only holds the version and other static
information.  This way ...App can `use XML::Axk` to get the version number
for `axk --version`.

Author: Chris White

lib/XML/Axk.pm

@@ -1,21 +1,13 @@
 #!/usr/bin/env perl
 # Copyright (c) 2018 cxw42.  All rights reserved.  Artistic 2.
-# XML::Axk: Stub package that loads XML::Axk::Core and XML::Axk::Core.
+# XML::Axk: Stub package that just holds the version
 
 package XML::Axk;
 use XML::Axk::Base;     # uses 5.018, so we can safely use v-strings.
-use XML::Axk::Core v0.1.0;
-use XML::Axk::App v0.1.0;
-use Import::Into;
 
 use version 0.77; our $VERSION = version->declare("v0.1_2");
     # underscore before last component => alpha version
 
-sub import {
-    XML::Axk::Core->import::into(1);
-    XML::Axk::App->import::into(1);
-}
-
 1;
 __END__
 # === Documentation ===================================================== {{{1
@@ -30,7 +22,8 @@ XML::Axk - ack-like XML processor
 
 =head1 USAGE
 
-    use XML::Axk;
+    use XML::Axk::App;      # pick whichever you want,
+    use XML::Axk::Core;     # or both
 
     # Canned interface, as if run from the command line
     XML::Axk::App::Main(\@ARGV)

lib/XML/Axk/App.pm

@@ -136,7 +136,8 @@ sub Main {
     parse_command_line(from => $lrArgs, into => \%opts);
 
     if($opts{PRINT_VERSION}) {
-        say "axk $VERSION";
+        use XML::Axk;
+        say "axk $XML::Axk::VERSION";
         return 0;
     }
 

lib/XML/Axk/Base.pm

@@ -8,7 +8,7 @@ use Import::Into;
 
 # Pragmas
 use 5.018;
-use feature ":5.18";
+use feature ":5.18";    # Use expressly so we can re-export it below
 use strict;
 use warnings;
 

t/00-load.t

@@ -2,11 +2,13 @@
 use 5.018;
 use strict;
 use warnings;
-use Test::More tests=>3;
+use Test::More tests=>5;
 use Module::Loaded;
 
 BEGIN {
-    use_ok( 'XML::Axk' ) || print "Bail out!\n";
+    use_ok( 'XML::Axk' ) || print "Could not load main\n";
+    use_ok( 'XML::Axk::App' ) || print "Could not load App\n";
+    use_ok( 'XML::Axk::Core' ) || print "Could not load Core\n";
 }
 
 diag( "Testing XML::Axk $XML::Axk::VERSION, Perl $], $^X" );