package MyCompany::Result::WatchString;
use base qw/DBIx::Class::Result/;
use strict;

__PACKAGE__->table('tblWatchString');
__PACKAGE__->add_columns(
    'id',           { data_type => 'int', is_auto_increment => 1 },
    'comment',      { data_type => 'varchar', size => 30         }, # Appears in logging messages
    'log_level',    { data_type => 'int',                        }, # Log4perl log level.
    'match_string', { data_type => 'varchar', size => 200        }, # String in the VLC output to match on.
);

sub match_re
{
    my $self = shift;

    my $match_string = $self->match_string;
    my $matcher = qr/\Q$match_string\E/;
    return $matcher;
}