sub check_spelling {
my ($self) = @_;
my $cmd = q{codespell -d } . $self->path;
my $exception_file = dirname(abs_path($0)) . q{/QohA/spelling.exceptions};
my $cmd;
if (-e $exception_file) {
$cmd = q{codespell -x } . $exception_file . q{ -d } . $self->path;
}
else {
$cmd = q{codespell -d } . $self->path;
my ( $success, $error_code, $full_buf, $stdout_buf, $stderr_buf ) = run( command => $cmd, verbose => 0 );
return 0 unless @$full_buf;
-