From c94d18646c9116502cfb212de1ab9f8df2377b90 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Thu, 3 Jun 2010 14:11:54 +0200 Subject: rename some methods --- lib/MooseX/Net/API/Role/Authentication.pm | 6 +++--- lib/MooseX/Net/API/Role/Format.pm | 4 ++-- lib/MooseX/Net/API/Role/Request.pm | 2 +- lib/MooseX/Net/API/Role/UserAgent.pm | 2 +- 4 files changed, 7 insertions(+), 7 deletions(-) (limited to 'lib/MooseX/Net/API/Role') diff --git a/lib/MooseX/Net/API/Role/Authentication.pm b/lib/MooseX/Net/API/Role/Authentication.pm index 0b6de69..7f741b3 100644 --- a/lib/MooseX/Net/API/Role/Authentication.pm +++ b/lib/MooseX/Net/API/Role/Authentication.pm @@ -20,12 +20,12 @@ after BUILDALL => sub { for (qw/api_username api_password/) { my $predicate = 'has_' . $_; - my $value = $self->meta->get_option($_); + my $value = $self->meta->get_api_option($_); $self->$_($value) if $value && !$self->$predicate; } - if (my $has_auth = $self->meta->get_option('authentication')) { - my $auth_method = $self->meta->get_option('authentication_method'); + if (my $has_auth = $self->meta->get_api_option('authentication')) { + my $auth_method = $self->meta->get_api_option('authentication_method'); if ($auth_method) { $self->api_useragent->add_handler( request_prepare => sub { $self->$auth_method(@_) }); diff --git a/lib/MooseX/Net/API/Role/Format.pm b/lib/MooseX/Net/API/Role/Format.pm index e766161..37956bb 100644 --- a/lib/MooseX/Net/API/Role/Format.pm +++ b/lib/MooseX/Net/API/Role/Format.pm @@ -23,7 +23,7 @@ has api_format => ( lazy => 1, default => sub { my $self = shift; - $self->meta->get_option('api_format'); + $self->meta->get_api_option('api_format'); } ); @@ -33,7 +33,7 @@ has api_format_mode => ( lazy => 1, default => sub { my $self = shift; - my $mode = $self->meta->get_option('api_format_mode'); + my $mode = $self->meta->get_api_option('api_format_mode'); $mode || 'append'; } ); diff --git a/lib/MooseX/Net/API/Role/Request.pm b/lib/MooseX/Net/API/Role/Request.pm index 214411c..3b97da6 100644 --- a/lib/MooseX/Net/API/Role/Request.pm +++ b/lib/MooseX/Net/API/Role/Request.pm @@ -12,7 +12,7 @@ has api_base_url => ( lazy => 1, default => sub { my $self = shift; - my $api_base_url = $self->meta->get_option('api_base_url'); + my $api_base_url = $self->meta->get_api_option('api_base_url'); if (!$api_base_url) { die MooseX::Net::API::Error->new( reason => "'api_base_url' have not been defined"); diff --git a/lib/MooseX/Net/API/Role/UserAgent.pm b/lib/MooseX/Net/API/Role/UserAgent.pm index c3a1d5b..c21628a 100644 --- a/lib/MooseX/Net/API/Role/UserAgent.pm +++ b/lib/MooseX/Net/API/Role/UserAgent.pm @@ -9,7 +9,7 @@ has api_useragent => ( lazy => 1, default => sub { my $self = shift; - my $ua = $self->meta->get_option('useragent'); + my $ua = $self->meta->get_api_option('useragent'); return $ua->() if $ua; $ua = LWP::UserAgent->new(); $ua->agent( -- cgit 1.4.1