--- a/common/tools/raptor/XML/SAX/PurePerl/Exception.pm Thu Mar 11 13:20:26 2010 +0000
+++ /dev/null Thu Jan 01 00:00:00 1970 +0000
@@ -1,67 +0,0 @@
-# $Id: Exception.pm,v 1.2 2001/11/14 11:07:25 matt Exp $
-
-package XML::SAX::PurePerl::Exception;
-
-use strict;
-
-use overload '""' => "stringify";
-
-use vars qw/$StackTrace/;
-
-$StackTrace = $ENV{XML_DEBUG} || 0;
-
-sub throw {
- my $class = shift;
- die $class->new(@_);
-}
-
-sub new {
- my $class = shift;
- my %opts = @_;
- die "Invalid options" unless exists $opts{Message};
-
- if ($opts{reader}) {
- return bless { Message => $opts{Message},
- Exception => undef, # not sure what this is for!!!
- ColumnNumber => $opts{reader}->column,
- LineNumber => $opts{reader}->line,
- PublicId => $opts{reader}->public_id,
- SystemId => $opts{reader}->system_id,
- $StackTrace ? (StackTrace => stacktrace()) : (),
- }, $class;
- }
- return bless { Message => $opts{Message},
- Exception => undef, # not sure what this is for!!!
- }, $class;
-}
-
-sub stringify {
- my $self = shift;
- local $^W;
- return $self->{Message} . " [Ln: " . $self->{LineNumber} .
- ", Col: " . $self->{ColumnNumber} . "]" .
- ($StackTrace ? stackstring($self->{StackTrace}) : "") . "\n";
-}
-
-sub stacktrace {
- my $i = 2;
- my @fulltrace;
- while (my @trace = caller($i++)) {
- my %hash;
- @hash{qw(Package Filename Line)} = @trace[0..2];
- push @fulltrace, \%hash;
- }
- return \@fulltrace;
-}
-
-sub stackstring {
- my $stacktrace = shift;
- my $string = "\nFrom:\n";
- foreach my $current (@$stacktrace) {
- $string .= $current->{Filename} . " Line: " . $current->{Line} . "\n";
- }
- return $string;
-}
-
-1;
-