From 311e480283c8eb693419e7abada749fb80e10dda Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@derf.homelinux.org>
Date: Sun, 8 Aug 2010 13:31:53 +0200
Subject: Split up Error.pm into WWW::Efa::Error::{Backend,Setup}

---
 lib/WWW/Efa/Error/Backend.pm | 48 ++++++++++++++++++++++++++++++++++++++++++++
 lib/WWW/Efa/Error/Setup.pm   | 32 +++++++++++++++++++++++++++++
 2 files changed, 80 insertions(+)
 create mode 100644 lib/WWW/Efa/Error/Backend.pm
 create mode 100644 lib/WWW/Efa/Error/Setup.pm

(limited to 'lib/WWW/Efa/Error')

diff --git a/lib/WWW/Efa/Error/Backend.pm b/lib/WWW/Efa/Error/Backend.pm
new file mode 100644
index 0000000..b6ffa75
--- /dev/null
+++ b/lib/WWW/Efa/Error/Backend.pm
@@ -0,0 +1,48 @@
+package WWW::Efa::Error::Backend;
+
+use strict;
+use warnings;
+use 5.010;
+
+use base 'Exporter';
+
+our @EXPORT_OK = qw{};
+
+sub new {
+	my ($obj, $type, $data) = @_;
+	my $ref = {};
+
+	$ref->{'type'}   = $type;
+	$ref->{'data'}   = $data;
+
+	return bless($ref, $obj);
+}
+
+sub as_string {
+	my ($self) = @_;
+	my $ret;
+
+	given ($self->{'type'}) {
+		when ('no data') {
+			$ret = "WWW::Efa: efa.vrr.de returned no data\n";
+		}
+		when ('ambiguous') {
+			$ret = sprintf(
+				"WWW::Efa: efa.vrr.de: Ambiguous input for %s:\n",
+				shift(@{$self->{'data'}}),
+			);
+			foreach my $possible (@{$self->{'data'}}) {
+				$ret .= "\t${possible}\n";
+			}
+		}
+		when ('error') {
+			$ret = sprintf(
+				"WWW::Efa: efa.vrr.de error:\n%s\n",
+				$self->{'data'},
+			);
+		}
+	}
+	return $ret;
+}
+
+1;
diff --git a/lib/WWW/Efa/Error/Setup.pm b/lib/WWW/Efa/Error/Setup.pm
new file mode 100644
index 0000000..521bb55
--- /dev/null
+++ b/lib/WWW/Efa/Error/Setup.pm
@@ -0,0 +1,32 @@
+package WWW::Efa::Error::Setup;
+
+use strict;
+use warnings;
+use 5.010;
+
+use base 'Exporter';
+
+our @EXPORT_OK = qw{};
+
+sub new {
+	my ($obj, $key, $value, $msg) = @_;
+	my $ref = {};
+
+	$ref->{'key'}     = $key;
+	$ref->{'value'}   = $value;
+	$ref->{'message'} = $msg;
+
+	return bless($ref, $obj);
+}
+
+sub as_string {
+	my ($self) = @_;
+	my $ret;
+
+	return sprintf(
+		"WWW::Efa setup error: Wrong arg for option %s: %s\n%s\n",
+		@{$self}{'key', 'value', 'message'},
+	);
+}
+
+1;
-- 
cgit v1.2.3