56 lines
1.0 KiB
Perl
56 lines
1.0 KiB
Perl
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
|