Commit | Line | Data |
---|---|---|
86530b38 AT |
1 | package Tk::Stats; |
2 | ||
3 | ($lu,$ls) = times; | |
4 | ||
5 | ||
6 | use vars qw($VERSION); | |
7 | $VERSION = '3.006'; # $Id: //depot/Tk8/Tk/Stats.pm#6 $ | |
8 | ||
9 | sub stats | |
10 | { | |
11 | my ($u,$s) = times; | |
12 | my $du = $u-$lu; | |
13 | my $ds = $s-$ls; | |
14 | $ls = $s; | |
15 | $lu = $u; | |
16 | print sprintf(' dt=%4.2f du=%4.2f ds=%4.2f',$du+$ds,$du,$ds); | |
17 | print sprintf(' t=%4.2f u=%4.2f s=%4.2f',$u+$s,$u,$s); | |
18 | print ' ',shift,"\n"; | |
19 | } | |
20 | ||
21 | sub import | |
22 | { | |
23 | stats($_[1]); | |
24 | } | |
25 | ||
26 | 1; |