X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDBIx%2FClass%2FStorage%2FDBI%2FSybase%2FASE.pm;h=0496634624cc0089ef7aa4a064ec111fa73f1f1b;hb=d5dedbd62928f65a9071b4d9b6d56c6b663a073b;hp=ddc23393082cb44604442aa09e4b62f17bb16f63;hpb=2e4ec773b3ab085e8813c15df03d9b4c1f4bf3dc;p=dbsrgits%2FDBIx-Class.git diff --git a/lib/DBIx/Class/Storage/DBI/Sybase/ASE.pm b/lib/DBIx/Class/Storage/DBI/Sybase/ASE.pm index ddc2339..0496634 100644 --- a/lib/DBIx/Class/Storage/DBI/Sybase/ASE.pm +++ b/lib/DBIx/Class/Storage/DBI/Sybase/ASE.pm @@ -9,10 +9,14 @@ use base qw/ /; use mro 'c3'; use Carp::Clan qw/^DBIx::Class/; -use Scalar::Util(); -use List::Util(); +use Scalar::Util 'blessed'; +use List::Util 'first'; use Sub::Name(); -use Data::Dumper::Concise(); +use Data::Dumper::Concise 'Dumper'; +use Try::Tiny; +use namespace::clean; + +__PACKAGE__->sql_limit_dialect ('RowCountOrGenericSubQ'); __PACKAGE__->mk_group_accessors('simple' => qw/_identity _blob_log_on_update _writer_storage _is_extra_storage @@ -49,7 +53,7 @@ With this driver there is unfortunately no way to get the C without doing a C