diff options
author | franck cuny <franck@lumberjaph.net> | 2010-06-08 15:22:36 +0200 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2010-06-08 15:22:36 +0200 |
commit | 78fcbf54a4305e1ee6c3a105f91af40c7ea0a62a (patch) | |
tree | c4eb6cec29a92076c2f6fc47ca318cbe59f5e0ba /lib/Net/HTTP/Console/Role/APILib.pm | |
parent | update regex; modify http methods; .. (diff) | |
download | net-http-console-78fcbf54a4305e1ee6c3a105f91af40c7ea0a62a.tar.gz |
switch to MX::Declare; rename some roles and dispatcher
Diffstat (limited to '')
-rw-r--r-- | lib/Net/HTTP/Console/Role/APILib.pm | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/lib/Net/HTTP/Console/Role/APILib.pm b/lib/Net/HTTP/Console/Role/APILib.pm deleted file mode 100644 index 5f5aff1..0000000 --- a/lib/Net/HTTP/Console/Role/APILib.pm +++ /dev/null @@ -1,26 +0,0 @@ -package Net::HTTP::Console::Role::APILib; - -use Moose::Role; - -has lib => (isa => 'Str', is => 'rw', default => 'Net::HTTP::Console::Dummy'); -has api_object => ( - isa => 'Object', - is => 'rw', - lazy => 1, - default => sub { - my $self = shift; - $self->load_api_lib($self->lib); - }, -); - -sub load_api_lib { - my ($self, $lib) = @_; - Class::MOP::load_class($lib); - my $o = $lib->new(); - $o->api_base_url($self->url) if $self->has_url; - $o->api_format($self->format) if $self->has_format; - $o->api_format_mode($self->format_mode) if $self->has_format_mode; - $o; -} - -1; |