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