You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
9 lines
146 B
9 lines
146 B
#!/usr/bin/env perl
|
|
|
|
use warnings;
|
|
use strict;
|
|
use 5.10.0;
|
|
|
|
use App::MarkFiles qw(get_dbh);
|
|
|
|
get_dbh()->prepare(q{DELETE FROM marks})->execute();
|