Bugfix

VERSION

-0.2.1
+0.2.2

lib/PZ/Controller/Shortcut.pm

@@ -43,7 +43,7 @@ sub create ($c) {
 
     $shortcut ||= $c->schema->resultset('Shortcut')->create({
         %data,
-        shortcut => ($custom || $c->schema->resultset('Shortcut')->generate()),
+        shortcut => $c->schema->resultset('Shortcut')->generate($custom),
     });
 
     $url = 'https://' . $c->config->{domain} . '/' . $shortcut->shortcut;

lib/PZ/Schema/ResultSet/Shortcut.pm

@@ -11,6 +11,9 @@ use constant SIZE => 4;
 
 sub generate {
     my $class  = shift;
+    my $custom = shift;
+
+    return $custom if $custom;
 
     my $shortcut;