NAME

MooseX::Q4MLog - Log Data To Q4M

SYNOPSIS

  package MyObject;
  use Moose;

  with 'MooseX::Q4MLog';

  no Moose;

  sub format_q4mlog {
    my ($self, %args) = @_; # %args is application dependent

    # create a hash that can be passed to Queue::Q4M->insert
    my %q4m_args = ( .... );

    return \%q4m_args
  }

  my $obj = MyObject->new(
    q4mlog => {
      table => 'q_log', # optional
      connect_info => [ ... ],
    }
  );
  $obj->log( %whatever );

METHODS

format_q4mlog(%args)

Given the arguments, you must create a hash that can be passed to Queue::Q4M->insert

log(%args)