Changeset a75ca74156bfac8b92c3b87b2c120d446dcf5345

Timestamp:

11/06/09 22:32:54 (10 months ago)

Author:

Stephen Bennett <spb@…>

Parents:

20b3fcc6b52236b404b7d7aaf1517f57be3f84a2

Children:

41a47f14b962f658a0805dd7d3183fd9cb2d8728

git-committer:

Stephen Bennett <spb@exherbo.org> / 2009-11-06T22:32:54Z+0000

Message:

Translate DBIC exceptions from inserting channel namespaces to something more intelligible, where possible

Files:

• lib/GMS/Schema/Result/ChannelNamespace.pm (modified) (2 diffs)

lib/GMS/Schema/Result/ChannelNamespace.pm

@@ -3 +3 @@
 use warnings;
 use base 'DBIx::Class';
+
+use TryCatch;
 
 __PACKAGE__->load_components('Core');
@@ -10 +12 @@
 __PACKAGE__->belongs_to('group', 'GMS::Schema::Result::Group', 'group_id');
 
+sub insert {
+    my $self = shift;
+    try {
+        return $self->next::method(@_);
+    }
+    catch (DBIx::Class::Exception $e) {
+        if ("$e" =~ /unique_channel_ns/) {
+            die GMS::Exception->new("The channel namespace " . $self->namespace .
+                                    " has already been claimed.");
+        } else {
+            die $e;
+        }
+    }
+}
+
 1;