Yet Another CPAN Grep

Net-OpenStack-Attack ( I/IR/IRONCAMEL/Net-OpenStack-Attack-1.0500.tar.gz, IRONCAMEL, 2012; MetaCPAN )

Net-OpenStack-Attack/lib/Net/OpenStack/Attack.pm ( view source; MetaCPAN )

::OpenStack::Attack;
use v5.10;
use Any::Moose;
use HTTP::Async;
use HTTP::Request;
use JSON qw(to_json from_json);

our $VERSION = '1.0500'; # VERSION

has compute => (is => 'ro', isa => 'Net::OpenSt

ers {
    my ($self, $num, $image) = @_;
    $image ||= $self->get_any_image();
    my $body = to_json {
        server => {
            name      => 'stackattack',
            imageRef  => $image,

{
    my ($self, $servers, $image) = @_;
    $image ||= $self->get_any_image();
    my $body = to_json {
        rebuild => {
            imageRef  => $image,
        }
    };
    my @reqs = map $self