view release on metacpan or  search on metacpan

t/rollover.t  view on Meta::CPAN

use Mojo::Base -strict;
use Test::More;
use Mojo::Asset::Memory;
use Mojo::TFTPd;
use Mojo::Util;

sub d ($) { Mojo::Util::term_escape($_[0]) }

my $tftpd    = Mojo::TFTPd->new(retries => 6, retransmit => 1);
my $ROLLOVER = 256 * 256;
our ($RECV, $SEND);

$tftpd->on(error => sub { note "Err! $_[1]" });

note 'save WRQ to a temporary file, to be deleted';
$tftpd->on(
  wrq => sub {