1 package Perf::Trace::Util;
2
3 use 5.010000;
4 use strict;
5 use warnings;
6
7 require Exporter;
8
9 our @ISA = qw(Exporter);
10
11 our %EXPORT_TAGS = ( 'all' => [ qw(
12 ) ] );
13
14 our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
15
16 our @EXPORT = qw(
17 avg nsecs nsecs_secs nsecs_nsecs nsecs_usecs print_nsecs
18 clear_term
19 );
20
21 our $VERSION = '0.01';
22
23 sub avg
24 {
25 my ($total, $n) = @_;
26
27 return $total / $n;
28 }
29
30 my $NSECS_PER_SEC = 1000000000;
31
32 sub nsecs
33 {
34 my ($secs, $nsecs) = @_;
35
36 return $secs * $NSECS_PER_SEC + $nsecs;
37 }
38
39 sub nsecs_secs {
40 my ($nsecs) = @_;
41
42 return $nsecs / $NSECS_PER_SEC;
43 }
44
45 sub nsecs_nsecs {
46 my ($nsecs) = @_;
47
48 return $nsecs % $NSECS_PER_SEC;
49 }
50
51 sub nsecs_str {
52 my ($nsecs) = @_;
53
54 my $str = sprintf("%5u.%09u", nsecs_secs($nsecs), nsecs_nsecs($nsecs));
55
56 return $str;
57 }
58
59 sub clear_term
60 {
61 print "\x1b[H\x1b[2J";
62 }
63
64 1;
65 __END__
66 =head1 NAME
67
68 Perf::Trace::Util - Perl extension for perf script
69
70 =head1 SYNOPSIS
71
72 use Perf::Trace::Util;
73
74 =head1 SEE ALSO
75
76 Perf (script) documentation
77
78 =head1 AUTHOR
79
80 Tom Zanussi, E<lt>tzanussi@gmail.com<gt>
81
82 =head1 COPYRIGHT AND LICENSE
83
84 Copyright (C) 2009 by Tom Zanussi
85
86 This library is free software; you can redistribute it and/or modify
87 it under the same terms as Perl itself, either Perl version 5.10.0 or,
88 at your option, any later version of Perl 5 you may have available.
89
90 Alternatively, this software may be distributed under the terms of the
91 GNU General Public License ("GPL") version 2 as published by the Free
92 Software Foundation.
93
94 =cut
Linux® is a registered trademark of Linus Torvalds in the United States and other countries.
TOMOYO® is a registered trademark of NTT DATA CORPORATION.