sub transaction(&$$) {
    my ($cb, $self,$timeout) = @_;
    $self->do_sub_with_timeout( $cb, $timeout );
};

transaction {
    $deployer->extend_order_lease( $order, $end_date ); 
} $self, $timeout;