6 use lib "$FindBin::Bin/lib";
7 use File::Spec::Functions 'catfile';
10 my $test_dir = $FindBin::Bin;
11 my $db = catfile($test_dir, 'testdb.db');
13 my $dbh = DBI->connect("dbi:SQLite:$db", '', '', {
14 RaiseError => 1, PrintError => 0
19 id integer primary key,
20 first_name varchar(100),
21 middle_name varchar(100),
22 last_name varchar(100),
23 email_address varchar(100)
28 my $model = instance();
29 my $rs = $model->resultset('User');
31 my $row = $rs->create({ first_name => 'Foo', last_name => 'Bar' });
33 $row->first_name(\['last_name']);
39 $row->discard_changes;
41 is $row->first_name, 'Bar',
42 'row updated with literal SQL through accessor';
47 MyApp::Model::DB->COMPONENT('MyApp', {
48 schema_class => 'ASchemaClass',
49 connect_info => ["dbi:SQLite:$db", '', ''],
59 package MyApp::Model::DB;
60 use base 'Catalyst::Model::DBIC::Schema';
64 $model->storage->disconnect if $model;
65 unlink $db or die "Could not delete $db: $!";