mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-08 13:25:40 -04:00
41 lines
481 B
Perl
41 lines
481 B
Perl
#!/usr/bin/perl
|
|
|
|
package Math::Farnsworth::Error;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Data::Dumper;
|
|
use Carp;
|
|
|
|
require Exporter;
|
|
our @ISA = qw(Exporter);
|
|
|
|
our @EXPORT = qw(error);
|
|
|
|
use overload '""' => \&tostring,
|
|
'eq' => \&eq;
|
|
|
|
sub error
|
|
{
|
|
my $err = shift;
|
|
my $eobj = {};
|
|
$eobj->{msg} = $err;
|
|
bless $eobj;
|
|
|
|
die $eobj;
|
|
}
|
|
|
|
sub tostring
|
|
{
|
|
my $self = shift;
|
|
return $self->{msg};
|
|
}
|
|
|
|
sub eq
|
|
{
|
|
my ($one, $two, $rev) = @_;
|
|
|
|
my $str = $one->tostring();
|
|
return $str eq $two;
|
|
}
|