Gianni Ceccarelli > Net-Stomp-MooseHelpers-2.0 > Net::Stomp::MooseHelpers::ReconnectOnFailure

Download:
Net-Stomp-MooseHelpers-2.0.tar.gz

Dependencies

Annotate this POD

CPAN RT

Open  0
View/Report Bugs
Module Version: 2.0   Source   Latest Release: Net-Stomp-MooseHelpers-2.4

NAME ^

Net::Stomp::MooseHelpers::ReconnectOnFailure - provide a reconnect-on-failure wrapper method

VERSION ^

version 2.0

SYNOPSIS ^

  package MyThing;
  use Moose;
  with 'Net::Stomp::MooseHelpers::CanConnect';
  with 'Net::Stomp::MooseHelpers::ReconnectOnFailure';

  sub foo {
    my ($self) = @_;

    $self->reconnect_on_failure('connect');

    # do something
  }

DESCRIPTION ^

This role wraps the logic shown in the synopsis for Net::Stomp::MooseHelpers::CanConnect into a simple wrapper method.

Just call "reconnect_on_failure" passing the method name (or a coderef) and all the arguments. See below for details.

ATTRIBUTES ^

connect_retry_delay

How many seconds to wait between connection attempts. Defaults to 15.

METHODS ^

reconnect_on_failure

  $self->reconnect_on_failure($method,@args);

$method can be a method name or a coderef (anything that you'd write just after $self->). @args are passed untouched.

First of all, this calls $self->connect(), then it calls $self->$method(@args), returning whatever it returns (preserves context).

If an exception is raised, warns about it, sleeps for "connect_retry_delay" seconds, then tries again.

AUTHOR ^

Gianni Ceccarelli <gianni.ceccarelli@net-a-porter.com>

COPYRIGHT AND LICENSE ^

This software is copyright (c) 2012 by Net-a-porter.com.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.

syntax highlighting: