view release on metacpan or  search on metacpan

lib/Devel/Util.pm  view on Meta::CPAN

{
	my $timestr = sub {
		my $d = shift;
		$d = 0 if $d<0;
		sprintf("%dm%.3fs", int($d/60), $d - 60*int($d/60))
	};
	sub dt (&;$) {
		require Time::HiRes;
		my $block = shift;
		my $name = shift || sprintf 'dt at %s line %d', (caller)[1,2];
		my ($t_elapsed_0, $t_elapsed_1, $t_user_0, $t_user_1, $t_sys_0, $t_sys_1);
		my @ret;
		my $ret;

		($t_user_0, $t_sys_0) = times;
		$t_elapsed_0 = Time::HiRes::time();
		if (wantarray) {
			@ret = $block->()
		}
		elsif (defined wantarray) {