Select Code to Download

package MyCompany::Result::WatchString;
use base qw/DBIx::Class::Result/;
...
    my $matcher = qr/\Q$match_string\E/;
    return $matcher;
}

my $logger = Log::Log4perl->get_logger();

...
        }
    }
}