File Coverage

blib/lib/Oracle/Trace/Entry.pm

Criterion	Covered	Total	%
statement	64	77	83.1
branch	26	44	59.0
condition	5	12	41.6
subroutine	8	10	80.0
pod	4	5	80.0
total	107	148	72.3

#
# $Id: Entry.pm,v 1.9 2003/12/24 20:38:54 oratrc Exp $
#
package Oracle::Trace::Entry;

use 5.008001;
use strict;
use warnings;
use Data::Dumper;
use Oracle::Trace::Chunk;

our @ISA = qw(Oracle::Trace::Chunk);

our $VERSION = do { my @r = (q$Revision: 1.9 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };

my $DEBUG = $ENV{Oracle_Trace_DEBUG} || 0;

# Chunk

sub parse {
	my $self = shift;
	my $data = shift;
	$self->debug("incoming: ".Dumper($data)) if $DEBUG >= 4;
	my $i_line = 0;
	if ($data) {
		LINE:
		foreach my $line (split("\n", $data)) {
			$self->debug("line[".$i_line."] $line") if $DEBUG >= 5;
			$i_line++;
			next LINE if $line =~ /^(\*\*\*\s+\d+|END OF STMT)/;
			if ($line =~ /^(STAT|WAIT)\s+/) {
				next LINE unless $self->{_extended};
			}
			if ($line =~ /dep=[1-9]+/) {
				$self->{_child}++;
				next LINE unless $self->{_recurse};
			}
			# expecting uppercase words preceding data - misses binds
			if ($line =~ /^([A-Z]+(?:\s+[A-Z]+)*\s*(?:\#\d+)*):*(.*)$/) {
				my ($k, $v) = ($1, $2);
				if (my %data = ($v =~ /([a-z]+)=(\d+|'[^']*')/g)) {
					push @{$self->{_data}->{$k}}, \%data;
					if ($k =~ /^PARSING IN CURSOR/ && defined($data{dep})) {
					  $self->{_parent}++ if $data{dep} == 0;
					}
				}
			} else {
				push @{$self->{_data}{other}}, $line;
			}
		}
	}
	$self->debug("_data: ".Dumper($self->{_data})) if $DEBUG >= 3;
	$self->debug("lines read: $i_line") if $DEBUG >= 2;
	return $self;
}

=item values

Return the values from the hash referenced by the type and key given, with optional value or index.

	@vals = $o_chk->values('type' => 'PARSE #\d+', 'key' => 'dep', 'value' => '0');

=cut

sub values {
	my $self = shift;
	my %h = (
		'type'	=> 'PARSE .+',
		'key'	=> '.+',
		'value'	=> '.+',
		'index'	=> '',
	@_);
	my @vals = ();
	unless (($h{type}) and ($h{key})) {
		$self->error("invalid type and key: ".Dumper(\%h));
	} else {
		foreach my $k (grep(/$h{type}/, $self->keys)) {
			my $i_ind = 0;
			if ($h{index} =~ /\d+/) {
				if ($h{type} eq 'other') {
					@vals = grep(/$h{value}/, @{$self->{_data}{$k}[$h{index}]});
				} else {
					if (defined($self->{_data}{$k}[$h{index}]->{$h{key}}) &&
						$self->{_data}{$k}[$h{index}]->{$h{key}} =~ /($h{value})/) {
						push(@vals, $1);
					}
				}
			} else {
				if ($h{type} eq 'other') {
					@vals = grep(/$h{value}/, @{$self->{_data}{$k}});
				} else {
					foreach my $h_d (@{$self->{_data}{$k}}) {
						push(@vals, $1) if (defined($h_d->{$h{key}}) && $h_d->{$h{key}} =~ /($h{value})/);
					}
				}
			}
		}
	}

	return @vals;
}

=item elapsed

Return a total of the C times for this C.

	my $elapsed = $o_ent->elapsed;

=cut

sub elapsed {
	my $self = shift;
	my $elapsed = 0;

	my @parse = $self->values('type'=>'PARSE.+', 'key'=>'e');
	my @exec  = $self->values('type'=>'EXEC.+', 'key'=>'e');
	my @fetch = $self->values('type'=>'FETCH.+', 'key'=>'e');
	$self->debug("p(@parse) e(@exec) f(@fetch)") if $DEBUG >= 3;

	foreach my $x (@parse, @exec, @fetch) {
		$elapsed += $x;
	}

	return $elapsed;
}

=item stats

Synonmy for C

=cut

sub statistics { return $_[0]->stats; }

sub stats {
	my $self = shift;
	my @stats = ();
	unless ($self->{_extended}) {
		$self->fatal("extended statistics not enabled");
	} else {
		@stats = $self->values('type'=>'STAT \#\d+','key'=>'op');
	}
	return @stats;
}

1;

__END__