Select Code to Download

use base 'DBIx::Class';

...
SQL

fhl::Schema->register_source( 'DB::Locations::NumberActiveIncidents' =
+> $new_source );

my $active = [ $schema->resultset('Locations::NumberActiveIncidents')-
+>search( {}, { bind => [ $now ] } )];

my $active = [$schema->resultset('Incidents::Active')->search({}, { bi
+nd => [ $now ] } )];
foreach my $incident (@$active) {
print $incident->description, " ", $incident->locationid->name, "\n";
    }

Use of uninitialized value in subroutine entry at c:/Perl/site/lib/DBI
+x/Class/Storage/DBI.pm line 1003.
DBIx::Class::InflateColumn::get_inflated_column(): DBI Exception: DBD:
+:SQLite::db prepare_cached failed: unrecognized token: "0x2270f9c"(1)
+ at dbdimp.c line 271 [for Statement "INSERT INTO SCALAR(0x2270f9c) (
+locationid) VALUES (?)"] at (eval 970) line 6

fhl::Schema->register_source( 'DB::Locations::NumberActiveIncidents' =
+> $new_source );