Gecko [ edgpens.lpkmn.gov.my ]

Name	Size	Permission
ProfArrayBuffer.pm	1.24 KB	-rw-rw-rw-
ProfLogReader.pm	2.88 KB	-rw-rw-rw-
ProfLogger.pm	2.52 KB	-rw-rw-rw-
ProfPP.pm	3.67 KB	-rw-rw-rw-
ProfReporter.pm	5.43 KB	-rw-rw-rw-

Code Editor : ProfArrayBuffer.pm

package IPC::Run3::ProfArrayBuffer;

$VERSION = 0.048;

=head1 NAME

IPC::Run3::ProfArrayBuffer - Store profile events in RAM in an array

=head1 SYNOPSIS

=head1 DESCRIPTION

=cut

use strict;

=head1 METHODS

=over

=item C<< IPC::Run3::ProfArrayBuffer->new() >>

=cut

sub new {
    my $class = ref $_[0] ? ref shift : shift;

my $self = bless { @_ }, $class;

$self->{Events} = [];

return $self;
}

=item C<< $buffer->app_call(@events) >>

=item C<< $buffer->app_exit(@events) >>

=item C<< $buffer->run_exit(@events) >>

The three above methods push the given events onto the stack of recorded
events.

=cut

for my $subname ( qw(app_call app_exit run_exit) ) {
  no strict 'refs';
  *{$subname} = sub {
      push @{shift->{Events}}, [ $subname => @_ ];
  };
}

=item get_events

Returns a list of all the events.  Each event is an ARRAY reference
like:

[ "app_call", 1.1, ... ];

=cut

sub get_events {
    my $self = shift;
    @{$self->{Events}};
}

=back

=head1 LIMITATIONS

=head1 COPYRIGHT

=head1 LICENSE

You may use this module under the terms of the BSD, Artistic, or GPL licenses,
any version.

=head1 AUTHOR

Barrie Slaymaker E<lt>barries@slaysys.comE<gt>

=cut

${this.title}

Code Editor : ProfArrayBuffer.pm