20 lines
435 B
Perl
Executable File
20 lines
435 B
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
use v5.36.0;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use Mojo::File qw(curfile);
|
|
use lib curfile->dirname->sibling('lib')->to_string;
|
|
use Mojolicious::Commands;
|
|
|
|
# Start command line interface for application
|
|
my @images = curfile->dirname->sibling('public')->child('img')
|
|
->list->grep(qr/\.generated\.png$/)->each;
|
|
for my $image (@images) {
|
|
system 'rm', '-v', $image;
|
|
}
|
|
|
|
Mojolicious::Commands->start_app('OwlcodeTech');
|