diff options
| author | franck cuny <franck@lumberjaph.net> | 2010-06-17 14:20:38 +0200 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2010-06-17 14:20:38 +0200 |
| commit | 0835933ed1a4a09a925cb549927b26d774e70fa4 (patch) | |
| tree | e45e76c00edeb03bdc5c9da58c7a74f2b067fc8d /lib/MooseX/Net/API/Meta/Method | |
| parent | fix methods name (diff) | |
| download | moosex-net-api-0835933ed1a4a09a925cb549927b26d774e70fa4.tar.gz | |
fix format
Diffstat (limited to '')
| -rw-r--r-- | lib/MooseX/Net/API/Meta/Method/APIDeclare.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/MooseX/Net/API/Meta/Method/APIDeclare.pm b/lib/MooseX/Net/API/Meta/Method/APIDeclare.pm index f9274bf..0de38df 100644 --- a/lib/MooseX/Net/API/Meta/Method/APIDeclare.pm +++ b/lib/MooseX/Net/API/Meta/Method/APIDeclare.pm @@ -8,6 +8,7 @@ use MooseX::Net::API::Error; my @accepted_options = qw/ api_base_url api_format + api_format_mode api_username api_password authentication @@ -37,7 +38,7 @@ sub add_net_api_declare { } # XXX for backward compatibility - for my $attr (qw/base_url format username password/) { + 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}; |