diff options
Diffstat (limited to 'chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/XML/SAX/PurePerl/Exception.pm')
-rw-r--r-- | chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/XML/SAX/PurePerl/Exception.pm | 67 |
1 files changed, 0 insertions, 67 deletions
diff --git a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/XML/SAX/PurePerl/Exception.pm b/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/XML/SAX/PurePerl/Exception.pm deleted file mode 100644 index fb6b171f3b8..00000000000 --- a/chromium/third_party/cygwin/lib/perl5/vendor_perl/5.10/XML/SAX/PurePerl/Exception.pm +++ /dev/null @@ -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; - |