about summary refs log tree commit diff
path: root/lib/MooseX/Net/API/Meta/Method/APIDeclare.pm
diff options
context:
space:
mode:
authorfranck cuny <franck@lumberjaph.net>2010-07-16 16:10:41 +0200
committerfranck cuny <franck@lumberjaph.net>2010-07-16 16:10:41 +0200
commite97449eaa8bd3a408763057f9ca2253d93e2a3d0 (patch)
tree4fd0dc6ed899efe361e314adfc913b9aa6b0a1a4 /lib/MooseX/Net/API/Meta/Method/APIDeclare.pm
parentcheck if auth_method is declared (diff)
downloadnet-http-api-e97449eaa8bd3a408763057f9ca2253d93e2a3d0.tar.gz
rename from mx::net::api to net::http::api
Diffstat (limited to 'lib/MooseX/Net/API/Meta/Method/APIDeclare.pm')
-rw-r--r--lib/MooseX/Net/API/Meta/Method/APIDeclare.pm57
1 files changed, 0 insertions, 57 deletions
diff --git a/lib/MooseX/Net/API/Meta/Method/APIDeclare.pm b/lib/MooseX/Net/API/Meta/Method/APIDeclare.pm
deleted file mode 100644
index 0de38df..0000000
--- a/lib/MooseX/Net/API/Meta/Method/APIDeclare.pm
+++ /dev/null
@@ -1,57 +0,0 @@
-package MooseX::Net::API::Meta::Method::APIDeclare;
-
-# ABSTRACT: declare API
-
-use Moose::Role;
-use MooseX::Net::API::Error;
-
-my @accepted_options = qw/
-  api_base_url
-  api_format
-  api_format_mode
-  api_username
-  api_password
-  authentication
-  authentication_method
-  /;
-
-has api_options => (
-    is      => 'ro',
-    traits  => ['Hash'],
-    isa     => 'HashRef[Str|CodeRef]',
-    default => sub { {} },
-    lazy    => 1,
-    handles => {
-        set_api_option => 'set',
-        get_api_option => 'get',
-    },
-);
-
-sub add_net_api_declare {
-    my ($meta, $name, %options) = @_;
-
-    if ($options{useragent}) {
-        die MooseX::Net::API::Error->new(
-            reason => "'useragent' must be a CODE ref")
-          unless ref $options{useragent} eq 'CODE';
-        $meta->set_api_option(useragent => delete $options{useragent});
-    }
-
-    # XXX for backward compatibility
-    for my $attr (qw/base_url format format_mode username password/) {
-        my $attr_name = "api_" . $attr;
-        if (exists $options{$attr} && !exists $options{$attr_name}) {
-            $options{$attr_name} = delete $options{$attr};
-        }
-    }
-
-    for my $attr (@accepted_options) {
-        $meta->set_api_option($attr => $options{$attr}) if defined $options{$attr};
-    }
-}
-
-1;
-
-=head1 SYNOPSIS
-
-=head1 DESCRIPTION