8 use DBICTest; # do not remove even though it is not used
13 use base "DBIx::Class::Core";
21 #Injecting a direct parent.
22 __PACKAGE__->inject_base( __PACKAGE__, 'AAA' );
30 #Injecting an indirect parent.
31 __PACKAGE__->inject_base( __PACKAGE__, 'DBIx::Class::Core' );
34 eval { mro::get_linear_isa('BBB'); };
35 ok (! $@, "Correctly skipped injecting a direct parent of class BBB");
37 eval { mro::get_linear_isa('CCC'); };
38 ok (! $@, "Correctly skipped injecting an indirect parent of class BBB");
40 use DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server;
44 mro::get_linear_isa('DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server'),
46 DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server
47 DBIx::Class::Storage::DBI::Sybase
48 DBIx::Class::Storage::DBI::MSSQL
49 DBIx::Class::Storage::DBI::UniqueIdentifier
50 DBIx::Class::Storage::DBI
51 DBIx::Class::Storage::DBIHacks
54 DBIx::Class::Componentised
55 Class::C3::Componentised
56 Class::Accessor::Grouped
58 'Correctly ordered ISA of DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server'
61 my $dialect_ref = DBIx::Class::Storage::DBI::Sybase::Microsoft_SQL_Server->can('sql_limit_dialect');
63 B::svref_2object($dialect_ref)->GV->STASH->NAME,
64 'DBIx::Class::Storage::DBI::MSSQL',
65 'Correct method picked'