1DBIx::Class::Helper::ScUhseemraD:CB:oIVnxet:rr:iiCfbliuaetsres:d:::CPHoeelrlulpmenDrIo:nc:fuSomc(eh3ne)tmaat:i:oVnerifier::ColumnInfo(3)
2
3
4
6 DBIx::Class::Helper::Schema::Verifier::ColumnInfo - Verify that Results
7 only use approved column_info keys
8
10 package MyApp::Schema;
11
12 __PACKAGE__->load_components('Helper::Schema::Verifier::ColumnInfo');
13
14 # optionally add some non-standard allowed keys
15 sub allowed_column_keys {
16 my $self = shift;
17 my @keys = $self->next::method;
18 push @keys, qw(is_serializable keep_storage_value remove_column);
19 return @keys;
20 }
21
23 "DBIx::Class::Helper::Schema::Verifier::ColumnInfo" verifies that none
24 of your columns use non-approved configuration keys. DBIx::Class
25 doesn't do any key verification, so this Helper makes sure you don't
26 get burned by a typo like using "autoincrement" instead of
27 "is_auto_increment". If your schema uses a non-approved column config
28 key, it will refuse to load and instead offer a hopefully helpful
29 message pointing out the error.
30
32 allowed_column_keys()
33 It's entirely possible that you would like to use some non-default
34 config keys, especially if you use some column-extension components.
35 Override this method in your schema and append your new keys to the
36 list returned by the superclass call. The overridden method must
37 return a list of keys.
38
39 sub allowed_column_keys {
40 my $self = shift;
41 my @keys = $self->next::method;
42 # modify @keys as needed
43 return @keys;
44 }
45
47 Arthur Axel "fREW" Schmidt <frioux+cpan@gmail.com>
48
50 This software is copyright (c) 2020 by Arthur Axel "fREW" Schmidt.
51
52 This is free software; you can redistribute it and/or modify it under
53 the same terms as the Perl 5 programming language system itself.
54
55
56
57perl v5.32.0 DBIx::Cl2a0s2s0:-:0H7e-l2p8er::Schema::Verifier::ColumnInfo(3)