From c2190255f0c25118c118583c8555a9f5cecd948d Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Mon, 23 May 2011 09:12:12 +0200 Subject: Code cleanup, remove WWW::Efa::Error stuff for now (to be reimplemented) --- lib/WWW/Efa/Error/Backend.pm | 60 -------------------------------------------- 1 file changed, 60 deletions(-) delete mode 100644 lib/WWW/Efa/Error/Backend.pm (limited to 'lib/WWW/Efa/Error/Backend.pm') diff --git a/lib/WWW/Efa/Error/Backend.pm b/lib/WWW/Efa/Error/Backend.pm deleted file mode 100644 index 930fed5..0000000 --- a/lib/WWW/Efa/Error/Backend.pm +++ /dev/null @@ -1,60 +0,0 @@ -package WWW::Efa::Error::Backend; - -=head1 NAME - -WWW::Efa::Error::Backend - WWW::Efa unknown error from efa.vrr.de - -=head1 SYNOPSIS - - use WWW::Efa::Error::Backend; - - my $error = WWW::Efa::Error::Backend->new( - 'Yadda Yadda' - ); - - die $error->as_string(); - # WWW::Efa error from efa.vrr.de: - # Yadda Yadda - -=head1 DESCRIPTION - -Received an unknown error from efa.vrr.de - -=cut - -use strict; -use warnings; -use 5.010; - -use base 'Exporter'; - -our @EXPORT_OK = qw{}; -our @ISA = ('WWW::Efa::Error'); - -sub new { - my ($obj, $msg) = @_; - my $ref = {}; - - $ref->{'message'} = $msg; - - return bless($ref, $obj); -} - -=head1 METHODS - -=head2 $error->as_string() - -Return the error as string, can directly be displayed to the user - -=cut - -sub as_string { - my ($self) = @_; - - return sprintf( - "WWW::Efa error from efa.vrr.de:\n%s\n", - $self->{'message'}, - ); -} - -1; -- cgit v1.2.3