| package Perf::Trace::Context; |
| |
| use 5.010000; |
| use strict; |
| use warnings; |
| |
| require Exporter; |
| |
| our @ISA = qw(Exporter); |
| |
| our %EXPORT_TAGS = ( 'all' => [ qw( |
| ) ] ); |
| |
| our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); |
| |
| our @EXPORT = qw( |
| common_pc common_flags common_lock_depth |
| ); |
| |
| our $VERSION = '0.01'; |
| |
| require XSLoader; |
| XSLoader::load('Perf::Trace::Context', $VERSION); |
| |
| 1; |
| __END__ |
| =head1 NAME |
| |
| Perf::Trace::Context - Perl extension for accessing functions in perf. |
| |
| =head1 SYNOPSIS |
| |
| use Perf::Trace::Context; |
| |
| =head1 SEE ALSO |
| |
| Perf (script) documentation |
| |
| =head1 AUTHOR |
| |
| Tom Zanussi, E<lt>tzanussi@gmail.com<gt> |
| |
| =head1 COPYRIGHT AND LICENSE |
| |
| Copyright (C) 2009 by Tom Zanussi |
| |
| This library is free software; you can redistribute it and/or modify |
| it under the same terms as Perl itself, either Perl version 5.10.0 or, |
| at your option, any later version of Perl 5 you may have available. |
| |
| Alternatively, this software may be distributed under the terms of the |
| GNU General Public License ("GPL") version 2 as published by the Free |
| Software Foundation. |
| |
| =cut |
