File: Error.pm

package info (click to toggle)
libjavascript-perl 1.08-1%2Blenny1
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 412 kB
  • ctags: 203
  • sloc: perl: 1,686; ansic: 1,620; makefile: 55
file content (60 lines) | stat: -rw-r--r-- 909 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
package JavaScript::Error;

use strict;
use warnings;

use overload q{""} => 'as_string', fallback => 1;

sub as_string {
    my $self = shift;
    return "$self->{message} at $self->{fileName} in $self->{lineNumber}";
}

sub message {
    return $_[0]->{message};
}

sub file {
    return $_[0]->{fileName};
}

sub line {
    return $_[0]->{lineNumber};
}

1;
__END__

=head1 NAME

JavaScript::Error - Encapsulates errors thrown from JavaScript

=head1 INTERFACE

=head2 INSTANCE METHODS

=over 4

=item message

The cause of the exception.

=item file

The name of the file that the caused the exception.

=item line

The line number in the file that caused the exception.

=item as_string

A stringification of the exception in the format C<$message at $line in $file>

=back

=head1 OVERLOADED OPERATIONS

This class overloads stringification an will return the result from the method C<as_string>.

=cut