1 package Perf::Trace::Context;
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 common_pc common_flags common_lock_depth
18 );
19
20 our $VERSION = '0.01';
21
22 require XSLoader;
23 XSLoader::load('Perf::Trace::Context', $VERSION);
24
25 1;
26 __END__
27 =head1 NAME
28
29 Perf::Trace::Context - Perl extension for accessing functions in perf.
30
31 =head1 SYNOPSIS
32
33 use Perf::Trace::Context;
34
35 =head1 SEE ALSO
36
37 Perf (script) documentation
38
39 =head1 AUTHOR
40
41 Tom Zanussi, E<lt>tzanussi@gmail.com<gt>
42
43 =head1 COPYRIGHT AND LICENSE
44
45 Copyright (C) 2009 by Tom Zanussi
46
47 This library is free software; you can redistribute it and/or modify
48 it under the same terms as Perl itself, either Perl version 5.10.0 or,
49 at your option, any later version of Perl 5 you may have available.
50
51 Alternatively, this software may be distributed under the terms of the
52 GNU General Public License ("GPL") version 2 as published by the Free
53 Software Foundation.
54
55 =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.