remove shortname

README.md

@@ -36,9 +36,6 @@ say AWS::Pricing::list-offers();
 
 # List current offers for specific service. Valid formats are json or csv.
 say AWS::Pricing::service-offers(service_code => 'AmazonS3', format => 'json');
-
-# The shortname `AWSPricing` is also available:
-say AWSPricing::list-offers();
 ```
 
 ### Valid service codes:

bin/aws-pricing

@@ -2,6 +2,7 @@
 
 use v6;
 use AWS::Pricing;
+constant AWSPrice = AWS::Pricing;
 
 # Defaults
 my $default_cache_dir = "$*HOME/.aws-pricing";
@@ -11,7 +12,7 @@ my $default_format = 'json';
 sub set-config(%options) {
   for %options.kv -> $option, $value {
     if $value.defined { 
-      AWS::Pricing::config(|($option => $value));
+      AWSPrice::config(|($option => $value));
     }
   }
 }
@@ -28,7 +29,7 @@ multi MAIN('list', 'services',
   set-config(%options);
 
   # List all Service Offer indexes
-  say AWS::Pricing::list-services();
+  say AWSPrice::list-services();
 
 }
 
@@ -46,7 +47,7 @@ multi MAIN('service', 'offers',
   set-config(%options);
 
   # List current offers for specific service
-  say AWS::Pricing::service-offers(service_code => $service_code, format => $format);
+  say AWSPrice::service-offers(service_code => $service_code, format => $format);
 
 }
 

lib/AWS/Pricing.pm6

@@ -127,8 +127,4 @@ our sub config(Str :$cache_dir,
 
 }
 
-my package EXPORT::DEFAULT {
-  constant AWSPricing = AWS::Pricing;
-}
-
 # vim: ft=perl6

t/00-basics.t

@@ -1,10 +1,7 @@
 use Test;
 use AWS::Pricing;
 
-plan 2;
+plan 1;
 
 # use
 use-ok('AWS::Pricing');
-
-# shortname
-is AWSPricing, AWS::Pricing, 'shortname, 1/1';