X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FReplicated%2FWithDSN.pm;h=7cab9a932912a1b95926dc9416304b73e5b2bb9f;hb=b09e9528b306fe3394ad0b588c36ebbc2b89c6fb;hp=a6fe522ee9294b68df6df82814a2613cafb1eeb0;hpb=0bd8e0585b592d2583f28b6922b47afa78559cf4;p=dbsrgits%2FDBIx-Class-Historic.git diff --git a/lib/DBIx/Class/Storage/DBI/Replicated/WithDSN.pm b/lib/DBIx/Class/Storage/DBI/Replicated/WithDSN.pm index a6fe522..7cab9a9 100644 --- a/lib/DBIx/Class/Storage/DBI/Replicated/WithDSN.pm +++ b/lib/DBIx/Class/Storage/DBI/Replicated/WithDSN.pm @@ -41,6 +41,9 @@ around '_query_start' => sub { if ((reftype($dsn)||'') ne 'CODE') { "$op [DSN_$storage_type=$dsn]$rest"; } + elsif (my $id = eval { $self->id }) { + "$op [$storage_type=$id]$rest"; + } else { "$op [$storage_type]$rest"; }