From 815064478244e7dbe7ecf6d4798c124c0a9d590b Mon Sep 17 00:00:00 2001
From: Lars Dieckow <ldieckow@sipwise.com>
Date: Tue, 28 May 2013 09:31:19 +0200
Subject: [PATCH] spelling

---
 Build.PL                       |  8 +++++++-
 lib/Sipwise/CodingStandards.pm |  6 +++---
 t/spelling.t                   | 16 ++++++++++++++++
 3 files changed, 26 insertions(+), 4 deletions(-)
 create mode 100644 t/spelling.t

diff --git a/Build.PL b/Build.PL
index 3d02ec9..766f596 100644
--- a/Build.PL
+++ b/Build.PL
@@ -4,8 +4,14 @@ my $builder = Module::Build->new(
     license           => 'GPL_3',
     dist_author       => 'Lars Dieckow <ldieckow@sipwise.com>',
     dist_version_from => 'lib/Sipwise/Base.pm',
-    build_requires    => {
+    configure_requires => {
+        'Module::Build' => '0.4004',
+    },
+    test_requires    => {
+        'Moose::Util::TypeConstraints' => 0,
+        'Test::DescribeMe' => 0,
         'Test::More' => '0.88',
+        'Test::Spelling' => 0,
     },
     requires => {
         'autodie'                    => 0,
diff --git a/lib/Sipwise/CodingStandards.pm b/lib/Sipwise/CodingStandards.pm
index 1c045fc..f366c84 100644
--- a/lib/Sipwise/CodingStandards.pm
+++ b/lib/Sipwise/CodingStandards.pm
@@ -18,7 +18,7 @@ This document describes Sipwise::CodingStandards version 1.002
 
 This document outlines the coding standards for new Perl projects. Their purpose is to guide programmers to a common
 code style and practices, making decisions so you don't have to. Follow them unless you have a good reason not to. See
-L<chapter 1 in PBP|http://oreilly.com/catalog/perlbp/> for the rationale. Taking Perl's philosophy to heart, the
+L<< chapter 1 in I<PBP>|http://oreilly.com/catalog/perlbp/ >> for the rationale. Taking Perl's philosophy to heart, the
 standards are not enforced – it's up to the programmer to use common sense and sound judgement in applying them.
 
 The standards are not set in stone, either. If you notice that consistently I<not> following them produces better
@@ -67,7 +67,7 @@ L<"Version numbers should be boring"|http://www.dagolden.com/index.php/369/>,
 L<Perl::Critic::Policy::ValuesAndExpressions::ProhibitVersionStrings>,
 L<Perl::Critic::Policy::ValuesAndExpressions::RequireNumericVersion>.
 
-It is incompatible with L<semver|http://semver.org>.
+It is incompatible with L<< I<semver>|http://semver.org >>.
 
 =head2 sample code template
 
@@ -90,7 +90,7 @@ L<perltidy> sometimes produces not optimal results with immediately nested pairs
         },
     );
 
-It is okay to manually fix this for symmetry.
+It is OK to manually fix this for symmetry.
 
     $resultset->find(
         {
diff --git a/t/spelling.t b/t/spelling.t
new file mode 100644
index 0000000..a57a236
--- /dev/null
+++ b/t/spelling.t
@@ -0,0 +1,16 @@
+use Test::DescribeMe qw(author);
+use Test::More import => [qw(done_testing)];
+use Test::Spelling qw(add_stopwords all_pod_files_spelling_ok set_spell_cmd);
+
+add_stopwords(<DATA>);
+set_spell_cmd('aspell list -l en_GB -p /dev/null');
+all_pod_files_spelling_ok;
+done_testing;
+
+__DATA__
+API
+Dieckow
+GmbH
+Ingy's
+merchantability
+Sipwise