Codebase list libdbix-introspector-perl / b7ba82a
add .$inc to driver version Arthur Axel 'fREW' Schmidt 10 years ago
3 changed file(s) with 6 addition(s) and 6 deletion(s). Raw diff Collapse all Expand all
+4
-4
lib/DBIx/Introspector.pm less more
5757 },
5858 { name => 'ADO_MS_Jet', parents => ['ACCESS', 'ADO'] },
5959 { name => 'ADO_Microsoft_SQL_Server', parents => ['MSSQL', 'ADO'] },
60 ] if $_[0] eq '2013.12'
60 ] if $_[0] eq '2013-12.01'
6161 },
6262 );
6363
182182
183183 =head1 SYNOPSIS
184184
185 my $d = DBIx::Introspector->new(drivers => '2013.12');
185 my $d = DBIx::Introspector->new(drivers => '2013-12.01');
186186
187187 # standard dialects
188188 $d->decorate_driver_unconnected(Pg => concat_sql => '? || ?');
281281
282282 This has no default and is required, though a sane defaultish value does exist.
283283
284 Currently there is one predefined set of drivers, named C<2013.12>. If drivers
284 Currently there is one predefined set of drivers, named C<2013-12.01>. If drivers
285285 or facts or just the general structure of drivers changes they will always be as
286 a new named set of drivers. C<2013.12> matches the 0.08250 release of
286 a new named set of drivers. C<2013-12.01> matches the 0.08250 release of
287287 L<DBIx::Class> and probably many previous and following releases.
288288
289289 If you need to define it from scratch, you can just pass an arrayref of drivers;
+1
-1
t/basic.t less more
1111 test basic => sub {
1212 my $self = shift;
1313
14 my $d = DBIx::Introspector->new( drivers => '2013.12' );
14 my $d = DBIx::Introspector->new( drivers => '2013-12.01' );
1515
1616 is(
1717 $d->get(undef, $self->dsn, '_introspector_driver'),
+1
-1
t/eg.t less more
55 use Test::More;
66 use DBIx::Introspector;
77
8 my $d = DBIx::Introspector->new( drivers => '2013.12' );
8 my $d = DBIx::Introspector->new( drivers => '2013-12.01' );
99
1010 $d->decorate_driver_connected(MSSQL => concat_sql => sub { '%s + %s' });
1111 my $n = $d->_drivers_by_name;