package SQL::Translator::Filter::AutoCRUD::CatalystModel; { $SQL::Translator::Filter::AutoCRUD::CatalystModel::VERSION = '2.122460'; } use strict; use warnings FATAL => 'all'; sub filter { my ($schema, @args) = @_; my $cache = shift @args; foreach my $tbl ($schema->get_tables) { # set catalyst model serving this source $tbl->extra(model => $cache->{$tbl->name}->{model}); } } 1;