samples/map.pl

   1 #!/usr/bin/env perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use lib qw{blib/lib blib/archpub};
   7 use Test::Valgrind;
   8
   9 {
  10  local $SIG{ALRM} = sub { kill "TERM", $$ };
  11  alarm 1;
  12  while (1)  { map 1, 1 };
  13 }