File Coverage

blib/lib/Oracle/Trace/Header.pm

Criterion	Covered	Total	%
statement	40	40	100.0
branch	15	20	75.0
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	62	67	92.5

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

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

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

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 >= 3;
	my $i_line = 0;
	if ($data) {
		LINE:
		foreach my $line (split("\n", $data)) {
			$self->debug("line[".$i_line."] $line") if $DEBUG >= 2;
			$i_line++;
			next LINE if $line =~ /^\*\*\*\s+\d+/;
			CHUNK:
			foreach my $c (split(',', $line)) {
				if ($c =~ /^\s*\**\s*([^-:]+)\s*?[-:]+\s*(.+)\s*$/) {
					my ($k, $v) = ($1, $2);
					push @{$self->{_data}->{$k}}, $v;
				} elsif ($c =~ /^\s*(ORACLE_HOME)\s*=\s*(\S+)\s*$/i) {
					push @{$self->{_data}->{$1}}, $2;
				} elsif ($c =~ /^([:\\\/\w_]+?\w+\.trc)\s*$/i) {
					push @{$self->{_data}->{tracefile}}, $1;
				} elsif ($c =~ /^\s*(APPNAME)\s*mod=([\S]+)?\s*(.+)$/i) {
					push @{$self->{_data}->{$1}}, "$2 ($3)";
				} else {
					push @{$self->{_data}{other}}, $c;
				}
			}
			# SESSION ID:(9.5) 2003-12-23 20:43:09.907
			#          (sid.serial#)
		}
	}
	$self->debug("_data: ".Dumper($self->{_data})) if $DEBUG >= 3;
	$self->debug("lines read: $i_line") if $DEBUG;
	return $self;
}

1;
__END__