Help for this page

Select Code to Download

Select or download this

sub Start_timer : Test(startup) {
  my $test = shift;
...
  cprintf "#\x035 Total run time=>", $end-$start, " seconds\n";
  cprintf ("%02d:%02d:%02d\x030\n",(gmtime($end-$start))[2,1,0]);
}

Select or download this

has 'start' => (
  is      => 'ro',
...
  cprintf "#\x035 Total run time=>", $end-$start, " seconds\n";
  cprintf ("%02d:%02d:%02d\x030\n",(gmtime($end-$start))[2,1,0]);
}