File Coverage

blib/lib/Oracle/Trace/Footer.pm

Criterion	Covered	Total	%
statement	22	28	78.5
branch	3	10	30.0
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	32	45	71.1

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

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.8 $ =~ /\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+/;
			push @{$self->{_data}{other}}, $line;
		}
	}
	$self->debug("lines read: $i_line") if $DEBUG;
	return $self;
}

1;
__END__