From: David Jack Olrik Date: Thu, 25 Jan 2007 20:47:00 +0000 (+0000) Subject: Formatting cleanup X-Git-Tag: v0.08010~150^2~86^2~1 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e21dfd6a08cbef7df0ed57462cefb6ad0854fc09;p=dbsrgits%2FDBIx-Class.git Formatting cleanup --- diff --git a/lib/DBIx/Class.pm b/lib/DBIx/Class.pm index 5645d6d..cfd3094 100644 --- a/lib/DBIx/Class.pm +++ b/lib/DBIx/Class.pm @@ -199,7 +199,7 @@ claco: Christopher H. Laco clkao: CL Kao -da5id: David Jack Olrik +da5id: David Jack Olrik dkubb: Dan Kubb diff --git a/lib/DBIx/Class/Storage/DBI/Oracle.pm b/lib/DBIx/Class/Storage/DBI/Oracle.pm index 2b28247..4d289af 100644 --- a/lib/DBIx/Class/Storage/DBI/Oracle.pm +++ b/lib/DBIx/Class/Storage/DBI/Oracle.pm @@ -1,27 +1,29 @@ package DBIx::Class::Storage::DBI::Oracle; +# -*- mode: cperl; cperl-indent-level: 2 -*- + use strict; use warnings; use base qw/DBIx::Class::Storage::DBI/; sub _rebless { - my ($self) = @_; + my ($self) = @_; - my $version = eval { $self->_dbh->get_info(18); }; - unless ( $@ ) { - my ($major,$minor,$patchlevel) = split(/\./,$version); + my $version = eval { $self->_dbh->get_info(18); }; + unless ( $@ ) { + my ($major,$minor,$patchlevel) = split(/\./,$version); - # Default driver - my $class = "DBIx::Class::Storage::DBI::Oracle::Generic"; + # Default driver + my $class = "DBIx::Class::Storage::DBI::Oracle::Generic"; - # Version specific drivers - $class = "DBIx::Class::Storage::DBI::Oracle::8" - if $major == 8; + # Version specific drivers + $class = "DBIx::Class::Storage::DBI::Oracle::8" + if $major == 8; - # Load and rebless - eval "require $class"; - bless $self, $class unless $@; - } + # Load and rebless + eval "require $class"; + bless $self, $class unless $@; + } } diff --git a/lib/DBIx/Class/Storage/DBI/Oracle/8.pm b/lib/DBIx/Class/Storage/DBI/Oracle/8.pm index 645ef89..c395cf1 100644 --- a/lib/DBIx/Class/Storage/DBI/Oracle/8.pm +++ b/lib/DBIx/Class/Storage/DBI/Oracle/8.pm @@ -1,4 +1,5 @@ package DBIx::Class::Storage::DBI::Oracle::8; +# -*- mode: cperl; cperl-indent-level: 2 -*- use base qw( DBIx::Class::Storage::DBI::Oracle::Generic ); diff --git a/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm b/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm index 6f0693b..26584b2 100644 --- a/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm +++ b/lib/DBIx/Class/Storage/DBI/Oracle/Generic.pm @@ -1,4 +1,5 @@ package DBIx::Class::Storage::DBI::Oracle::Generic; +# -*- mode: cperl; cperl-indent-level: 2 -*- use strict; use warnings;