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 56
