Help for this page

Select Code to Download

Select or download this

    foreach my $watch_string ( $schema->resultset('WatchString')->all 
+)

# Could be...
...
while( my $line <INPUT> )
{
    foreach my $watch_string ( $ws->all )

Select or download this

my $ws = $schema->resultset('WatchString');
$ws->result_class('DBIx::Class::ResultClass::HashRefInflator');
...
    {
        if( $line =~ $ws->{match_re} ) # all hashrefs now, no objects.
        {