1use strict; 2use Test::More; 3use lib 't/cdbi/testlib'; 4 5BEGIN { 6 eval "use DBIx::Class::CDBICompat;"; 7 plan $@ ? (skip_all => "Class::Trigger and DBIx::ContextualFetch required: $@") 8 : (tests=> 3); 9} 10 11{ 12 package Thing; 13 14 use base 'DBIC::Test::SQLite'; 15 16 Thing->columns(TEMP => qw[foo bar baz]); 17 Thing->columns(All => qw[some real stuff]); 18} 19 20my $thing = Thing->construct({ foo => 23, some => 42, baz => 99 }); 21$thing->set( foo => "wibble", some => "woosh" ); 22is $thing->foo, "wibble"; 23is $thing->some, "woosh"; 24is $thing->baz, 99; 25 26$thing->discard_changes; 27