File: TestVersion.pm

package info (click to toggle)
libdbix-class-optimisticlocking-perl 0.02-1
  • links: PTS
  • area: main
  • in suites: stretch
  • size: 216 kB
  • ctags: 17
  • sloc: perl: 270; sql: 51; makefile: 2
file content (13 lines) | stat: -rw-r--r-- 345 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
package OLTest::Schema::TestVersion;

use strict;
use warnings;
use base qw/DBIx::Class/;
__PACKAGE__->load_components(qw/ OptimisticLocking PK::Auto Core /);
__PACKAGE__->table('test_version');
__PACKAGE__->add_columns( qw/ id col1 col2 version / );

__PACKAGE__->set_primary_key('id');
__PACKAGE__->optimistic_locking_strategy('version');

1;