Permalink
Browse files

add skeleton to list all hosts

  • Loading branch information...
1 parent 5165c65 commit c9ac3d6a9c059b9a17a82fbc336920d5c3161af1 @shelling committed Jan 14, 2013
Showing with 23 additions and 0 deletions.
  1. +10 −0 lib/HTTP/Balancer/Command/List.pm
  2. +13 −0 lib/HTTP/Balancer/Command/List/Host.pm
@@ -0,0 +1,10 @@
+package HTTP::Balancer::Command::List;
+use Modern::Perl;
+use Moose;
+with qw(HTTP::Balancer::Role::Command);
+
+sub run {
+ my ($self, ) = @_;
+}
+
+1;
@@ -0,0 +1,13 @@
+package HTTP::Balancer::Command::List::Host;
+use Modern::Perl;
+use Moose;
+with qw(HTTP::Balancer::Role::Command);
+
+sub run {
+ my ($self, ) = @_;
+ map {
+ say $_->name;
+ } $self->model("Host")->all;
+}
+
+1;

0 comments on commit c9ac3d6

Please sign in to comment.