Gecko [ www.vortexaion.com ]

Windows NT KAMIDAKI 10.0 build 19045 (Windows 10) AMD64
Apache/2.4.58 (Win64) OpenSSL/3.1.3 PHP/8.3.9
Server IP : 192.168.3.16 & Your IP : 216.73.216.52
Domains : Cant Read [ /etc/named.conf ]
User : SISTEMA

Name	Size	Permission	Date
Reader	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
DTDDecls.pm	16.59 KB	-rw-rw-rw-	2019-06-14 03:18
DebugHandler.pm	1.83 KB	-rw-rw-rw-	2019-06-14 03:18
DocType.pm	4.55 KB	-rw-rw-rw-	2019-06-14 03:24
EncodingDetect.pm	2.57 KB	-rw-rw-rw-	2019-06-14 03:18
Exception.pm	1.67 KB	-rw-rw-rw-	2019-06-14 03:18
NoUnicodeExt.pm	628 B	-rw-rw-rw-	2019-06-14 03:18
Productions.pm	6.47 KB	-rw-rw-rw-	2019-06-14 03:18
Reader.pm	2.48 KB	-rw-rw-rw-	2019-06-14 03:18
UnicodeExt.pm	369 B	-rw-rw-rw-	2019-06-14 03:18
XMLDecl.pm	3.31 KB	-rw-rw-rw-	2019-06-14 03:18

Rename

# $Id$

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;
}