tools/perf/scripts/perl/Perf-Trace-Util/lib/Perf/Trace/Context.pm

   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