Add support for 'default' parameter

[KES777]

code example:

	$sqlt->add_procedure(
		name =>  'order_total_suma',
		parameters =>  [
			{ argmode => 'in',  name => '_deep',          type => 'tstzrange', default => 1 },
		],
...

expected SQL:

CREATE FUNCTION "order_total_suma" (in _deep tstzrange default 1)  ...

[KES777]

--- a/lib/SQL/Translator/Producer/PostgreSQL.pm
+++ b/lib/SQL/Translator/Producer/PostgreSQL.pm
@@ -756,9 +756,13 @@ sub create_procedure {
   my @args = ();
   foreach my $arg (@{$procedure->parameters}) {
     $arg = {name => $arg} if ref($arg) ne 'HASH';
-    push @args, join(' ', map $arg->{$_},
+    my $param =  join(' ', map $arg->{$_},
                           grep defined($arg->{$_}),
                           qw/argmode name type/);
+    if( defined $arg->{ default } ) {
+        $param .= ' default ' .$arg->{ default };
+    }
+    push @args, $param;
   }
   $sql .= join(', ', @args);
   $sql .= ')';

[KES777]

@rabbiveesh Hello. I saw recent updates. Is there a chance to apply this?

[KES777]

ping