sub check_spelling {
my ($self) = @_;
my $cmd = q{codespell -d } . $self->path;
my $cmd = q{codespell -L Sheat -d } . $self->path;
my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) = run( command => $cmd, verbose => 0 );
return 0 unless @$full_buf;
-