package SQL::Translator::Filter::AutoCRUD::CatalystModel;
{
$SQL::Translator::Filter::AutoCRUD::CatalystModel::VERSION = '2.142820';
}
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;