Data::Conveyor::Ticket::Dispatcher::Test - Stage-based conveyor-belt-like ticket handling system

use 5.008;
use strict;
use warnings;

package Data::Conveyor::Ticket::Dispatcher::Test;
BEGIN {
  $Data::Conveyor::Ticket::Dispatcher::Test::VERSION = '1.103130';
}
# ABSTRACT: Stage-based conveyor-belt-like ticket handling system

use parent 'Data::Conveyor::Ticket::Dispatcher';
__PACKAGE__->mk_scalar_accessors(qw(callback));

sub close_ticket {
    my $self = shift;
    $self->SUPER::close_ticket(@_);
    $self->callback->after_ticket_closed;
}

sub finish_ticket {
    my $self = shift;
    $self->SUPER::finish_ticket(@_);
    $self->callback->after_ticket_finished;
}

# Do nothing here - neither commit nor rollback. Rollback would destroy the
# ticket and the next dispatcher run wouldn't find the ticket anymore.
# Committing might leave artefacts in the db after the tests have run; so
# leave everything in a big transaction.
sub finish_db_transaction {
}
1;


__END__