From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

OETIKER / CallBackery-0.52.0 / lib / CallBackery / Exception.pm 

            

              
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
61
62
63
64
65
66
67
68
69
—
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112

              
package CallBackery::Exception;
=head1 NAME
CallBackery::Exception - a simple exception class
=head1 SYNOPSIS
 use CallBackery::Exception qw(mkerror);
 eval { die error(22,'Bad Error'); }
 if ($@){
     print "Code: '.$@->code()." Message: ".$@->message()."\n"
     print "$@\n"; #stringified error
 }
  
=head1 DESCRIPTION
An error object.
Maybe use L<Mojo::Exception> instead.
=over
=cut
use strict;
use warnings;
use Exporter 'import';
use vars qw(@EXPORT_OK);
@EXPORT_OK = qw(mkerror);
use overload ('""' => 'stringify');
use Mojo::Base -base;
has 'code';
has 'message';
=item B<mkerror>(I<code>,I<message>)
Create an nq::Exception object, setting code and message properties in the process.
=cut
sub mkerror {
    my $code = shift;
    my $message = shift;
    # use caller() to determin where this is happening
    # somehow construct the error code from the line number ....??
    return (__PACKAGE__->new(code=>$code,message=>$message));
}
=item B<stringify>
error stringification handler
=cut
sub stringify {
    my $self = shift;
    return "ERROR ".$self->code().": ".$self->message()."\n";
}
1;
__END__
=back
=head1 LICENSE
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 3 of the License, or
(at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of   
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.
  
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  
=head1 COPYRIGHT
Copyright (c) 2010 by OETIKER+PARTNER AG. All rights reserved.
=head1 AUTHOR
S<Tobias Oetiker E<lt>tobi@oetiker.chE<gt>>
=head1 HISTORY
 2010-11-04 to 1.0 first version
=cut
# Emacs Configuration
#
# Local Variables:
# mode: cperl
# eval: (cperl-set-style "PerlStyle")
# mode: flyspell
# mode: flyspell-prog
# End:
#
# vi: sw=4 et