[Bast-commits] r5127 -
DBIx-Class-OptimisticLocking/1.000/trunk/t/lib
bpphillips at dev.catalyst.perl.org
bpphillips at dev.catalyst.perl.org
Fri Nov 14 04:58:44 GMT 2008
Author: bpphillips
Date: 2008-11-14 04:58:44 +0000 (Fri, 14 Nov 2008)
New Revision: 5127
Removed:
DBIx-Class-OptimisticLocking/1.000/trunk/t/lib/.OLTest.pm.swo
Log:
removed swap file
Deleted: DBIx-Class-OptimisticLocking/1.000/trunk/t/lib/.OLTest.pm.swo
===================================================================
--- DBIx-Class-OptimisticLocking/1.000/trunk/t/lib/.OLTest.pm.swo 2008-11-14 04:54:27 UTC (rev 5126)
+++ DBIx-Class-OptimisticLocking/1.000/trunk/t/lib/.OLTest.pm.swo 2008-11-14 04:58:44 UTC (rev 5127)
@@ -1,2 +0,0 @@
-b0VIM 7.1 ¡IÀÁ Ñ8 bphillips bphillips-vbox-ubuntu ~bphillips/git/DBIx-Class-OptimisticLocking/t/lib/OLTest.pm
3210#"! U tp ÿ 2 ad X
- 4 2 æ Ý Ü Ð Â Á b P : ' & î Ü ¤ [ U J å
Ó
z
1
+
Ü Ö Â À ¿ « { z R 0 * ú é ¾ ¬ d @ : 8 7 4 3 1; } } for split( /;\n/, $sql ); ( $schema->storage->dbh->do($_) || print "Error on SQL: $_\n" ) close IN; { local $/ = undef; $sql = <IN>; } my $sql; open IN, "t/var/oltest.sql"; else { } return $schema->deploy(); if ( $ENV{"OLTEST_SQLT_DEPLOY"} ) { my $schema = shift; my $self = shift; sub deploy_schema { } return $schema; } __PACKAGE__->deploy_schema($schema); unless ( $args{no_deploy} ) { } $schema->storage->on_connect_do( ['PRAGMA synchronous = OFF'] ); $schema->connect( "dbi:SQLite:t/var/oltest.db", "", "", { AutoCommit => 1 } ); $schema = if ( !$args{no_connect} ) { } $schema = OLTest::Schema->compose_namespace('OLTest'); else { } "dbi:SQLite:t/var/oltest.db", "", "", { AutoCommit => 1 } ); OLTest::Schema->compose_connection( 'OLTest', $schema = if ( $args{compose_connection} ) { my $schema; my %args = @_; my $self = shift; sub init_schema { # much of this is ripped directly from DBIx::Class::VirtualColumns (thanks for the jumpstart!) use warnings; use strict; OLTest; package # hide from PAUSE
\ No newline at end of file
More information about the Bast-commits
mailing list