1package App::Netdisco::DB::Result::Virtual::DeviceDnsMismatch; 2 3use strict; 4use warnings; 5 6use utf8; 7use base 'App::Netdisco::DB::Result::Device'; 8 9__PACKAGE__->load_components('Helper::Row::SubClass'); 10__PACKAGE__->subclass; 11 12__PACKAGE__->table_class('DBIx::Class::ResultSource::View'); 13__PACKAGE__->table('device_dns_mismatch'); 14__PACKAGE__->result_source_instance->is_virtual(1); 15__PACKAGE__->result_source_instance->view_definition(<<'ENDSQL'); 16SELECT * 17FROM device 18WHERE dns IS NULL 19 OR name IS NULL 20 OR regexp_replace(lower(dns), ?, '') 21 != regexp_replace(lower(name), ?, '') 22ENDSQL 23 241; 25