summaryrefslogtreecommitdiff
path: root/lib/MooseX/Net/API/Meta/Method/APIDeclare.pm
diff options
context:
space:
mode:
authorfranck cuny <franck@lumberjaph.net>2010-07-16 16:12:32 +0200
committerfranck cuny <franck@lumberjaph.net>2010-07-16 16:12:32 +0200
commit5fdee9e79b5b6a72522bee59e4bd7c62506a43c7 (patch)
tree9e9f16e674310d95f7c39cea92e87aaa57d67746 /lib/MooseX/Net/API/Meta/Method/APIDeclare.pm
parentanother fix for path (diff)
downloadmoosex-net-api-5fdee9e79b5b6a72522bee59e4bd7c62506a43c7.tar.gz
remove tests and old lib; use base net::http::api; DEPRECATED
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