The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
Changes 04
META.json 22
META.yml 22
lib/Dancer/Plugin/Database/Core.pm 27
4 files changed (This is a version diff) 615
@@ -1,5 +1,9 @@
 Revision history for Dancer-Plugin-Database-Core
 
+0.08    2014-10-13
+        [ ENHANCEMENTS ]
+        - Support dsn_extra option (Thanks to Michael J South)
+
 0.07    2014-09-01
         [ BUILD SYSTEM ]
         - Added metainformation for metacpan.
@@ -4,7 +4,7 @@
       "David Precious <davidp@preshweb.co.uk>"
    ],
    "dynamic_config" : 1,
-   "generated_by" : "ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.142060",
+   "generated_by" : "ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.142690",
    "license" : [
       "unknown"
    ],
@@ -44,5 +44,5 @@
          "web" : "https://github.com/bigpresh/Dancer-Plugin-Database"
       }
    },
-   "version" : "0.07"
+   "version" : "0.08"
 }
@@ -7,7 +7,7 @@ build_requires:
 configure_requires:
   ExtUtils::MakeMaker: '0'
 dynamic_config: 1
-generated_by: 'ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.142060'
+generated_by: 'ExtUtils::MakeMaker version 6.98, CPAN::Meta::Converter version 2.142690'
 license: unknown
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -22,4 +22,4 @@ requires:
   perl: '5.006'
 resources:
   repository: https://github.com/bigpresh/Dancer-Plugin-Database
-version: '0.07'
+version: '0.08'
@@ -10,11 +10,11 @@ Dancer::Plugin::Database::Core - Shared core for D1 and D2 Database plugins
 
 =head1 VERSION
 
-Version 0.07
+Version 0.08
 
 =cut
 
-our $VERSION = '0.07';
+our $VERSION = '0.08';
 
 my %handles;
 # Hashref used as key for default handle, so we don't have a magic value that
@@ -222,6 +222,11 @@ sub _get_connection {
                 push @extra_args, $_ . "=" . $settings->{$_};
             }
         }
+        if (my $even_more_dsn_args = $settings->{dsn_extra}) {
+            foreach my $arg ( keys %$even_more_dsn_args ) {
+                push @extra_args, $arg . '=' . $even_more_dsn_args->{$arg};
+            }
+        }
         $dsn .= ':' . join(';', @extra_args) if @extra_args;
     }