Split up Error.pm into WWW::Efa::Error::{Backend,Setup}

3 files changed, 80 insertions, 60 deletions

diff --git a/lib/WWW/Efa/Error.pm b/lib/WWW/Efa/Error.pm
deleted file mode 100644
index a5fbf96..0000000
--- a/lib/WWW/Efa/Error.pm
+++ /dev/null
@@ -1,60 +0,0 @@
-package WWW::Efa::Error;
-
-use strict;
-use warnings;
-use 5.010;
-
-use base 'Exporter';
-
-our @EXPORT_OK = qw{};
-
-# source: internal / efa.vrr.de
-# type: internal: conf
-#     efa.vrr.de: ambiguous / error / no data
-sub new {
-	my ($obj, $source, $type, $data) = @_;
-	my $ref = {};
-
-	$ref->{'source'} = $source;
-	$ref->{'type'}   = $type;
-	$ref->{'data'}   = $data;
-
-	return bless($ref, $obj);
-}
-
-sub as_string {
-	my ($self) = @_;
-	my $ret;
-
-	if ($self->{'source'} eq 'internal') {
-		$ret = sprintf(
-			"WWW::Efa config error: Wrong arg for option %s: %s\n%s\n",
-			@{$self->{'data'}}
-		);
-	}
-	elsif ($self->{'source'} eq 'efa.vrr.de') {
-		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/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;