From d3c0d8ab599b7cabaa77574a7e3dd941f90b27fc Mon Sep 17 00:00:00 2001
From: Naveed Massjouni <naveedm9@gmail.com>
Date: Tue, 3 Jan 2012 17:07:12 -0500
Subject: [PATCH] Added token() and base_url() methods.

---
 Changes                      |  3 +++
 dist.ini                     |  2 +-
 lib/Net/OpenStack/Compute.pm | 12 +++---------
 3 files changed, 7 insertions(+), 10 deletions(-)

diff --git a/Changes b/Changes
index 8d8a112..6c85b6b 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Net-OpenStack-Compute
 
+1.0302  2012-01-03
+        Added token() and base_url() methods.
+
 1.0301  2012-01-03
         Forgot to add App::Rad::Plugin::MoreHelp dep.
 
diff --git a/dist.ini b/dist.ini
index 8af1c92..99ba259 100644
--- a/dist.ini
+++ b/dist.ini
@@ -4,7 +4,7 @@ license = Perl_5
 copyright_holder = Naveed Massjouni
 copyright_year   = 2011
 
-version = 1.0301
+version = 1.0302
 
 [Prereqs]
 Any::Moose                 = 0
diff --git a/lib/Net/OpenStack/Compute.pm b/lib/Net/OpenStack/Compute.pm
index 4d80a1b..33a424c 100644
--- a/lib/Net/OpenStack/Compute.pm
+++ b/lib/Net/OpenStack/Compute.pm
@@ -29,13 +29,7 @@ has _auth => (
             region     => $self->region,
         );
     },
-);
-
-has _base_url => (
-    is   => 'ro',
-    isa  => 'Str',
-    lazy => 1,
-    default => sub { shift->_auth->base_url },
+    handles => [qw(base_url token)],
 );
 
 has _ua => (
@@ -44,7 +38,7 @@ has _ua => (
     default => sub {
         my $self = shift;
         my $agent = LWP::UserAgent->new();
-        $agent->default_header(x_auth_token => $self->_auth->token);
+        $agent->default_header(x_auth_token => $self->token);
         return $agent;
     },
 );
@@ -146,7 +140,7 @@ sub get_flavor {
 
 sub _url {
     my ($self, $path, $is_detail) = @_;
-    my $url = $self->_base_url . $path;
+    my $url = $self->base_url . $path;
     $url .= '/detail' if $is_detail;
     return $url;
 }