1package FusionInventory::Test::Module; 2 3use strict; 4use warnings; 5 6sub mirror { 7 return $_[0]; 8} 9 10sub loop { 11 while (1) {}; 12} 13 141; 15