use 5.036;

use utf8;

use open ':std', ':encoding(UTF-8)';

use Sq -sig => 1;

my $info =

Sq->fs

->read_text('examples', 'info.txt')

->trim

->rxm(qr/\A \s*+ (?= [^#] ) (\S++) \s++ (.++)\z/x)

->merge->as_hash;

my $examples =

Sq->fs

->children('examples')

->keep (call 'is_file')

->keep (sub($str) { Str->ends_with($str->stringify, '.pl') })

->sort (by_str)

->choose (sub($file) {

my $name = $file->basename;

return None if $name eq 'info.txt';

return Some(sq [$name, $info->{$name} // ""]);

});

Sq->fmt->table({

header => [qw/Script Description/],

data => $examples,

border => 0,

});