initial commit

11 files changed, 115 insertions, 0 deletions

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 0000000..c38068c
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,11 @@
+cover_db
+META.yml
+Makefile
+blib
+inc
+pm_to_blib
+MANIFEST
+Makefile.old
+nytprof.out
+MANIFEST.bak
+*.sw[po]
diff --git a/.shipit b/.shipit
new file mode 100644
index 0000000..e28b215
--- /dev/null
+++ b/.shipit
@@ -0,0 +1,6 @@
+steps = FindVersion, ChangeVersion, CheckChangeLog, DistTest, Commit, Tag, MakeDist
+git.tagpattern = release-%v
+git.push_to = release
+
+CheckChangeLog.files = Changes
+MakeDist.destination = ~/code/distribs/
diff --git a/Changes b/Changes
new file mode 100644
index 0000000..b5b7e03
--- /dev/null
+++ b/Changes
@@ -0,0 +1,4 @@
+Revision history for Perl extension Plack::Middleware::Throttle
+
+0.01    Wed Mar 31 12:30:35 2010
+        - original version
diff --git a/Makefile.PL b/Makefile.PL
new file mode 100644
index 0000000..0543aa0
--- /dev/null
+++ b/Makefile.PL
@@ -0,0 +1,16 @@
+use inc::Module::Install;
+name 'Plack-Middleware-Throttle';
+all_from 'lib/Plack/Middleware/Throttle.pm';
+readme_from 'lib/Plack/Middleware/Throttle.pm';
+
+# requires '';
+
+tests 't/*.t';
+
+build_requires 'Test::More';
+use_test_base;
+auto_include;
+#auto_include_deps;
+author_tests 'xt';
+auto_set_repository;
+WriteAll;
diff --git a/README b/README
new file mode 100644
index 0000000..e0db332
--- /dev/null
+++ b/README
@@ -0,0 +1,17 @@
+NAME
+    Plack::Middleware::Throttle -
+
+SYNOPSIS
+      use Plack::Middleware::Throttle;
+
+DESCRIPTION
+    Plack::Middleware::Throttle is
+
+AUTHOR
+    franck cuny <franck@lumberjaph.net>
+
+SEE ALSO
+LICENSE
+    This library is free software; you can redistribute it and/or modify it
+    under the same terms as Perl itself.
+
diff --git a/lib/Plack/Middleware/Throttle.pm b/lib/Plack/Middleware/Throttle.pm
new file mode 100644
index 0000000..6fd034a
--- /dev/null
+++ b/lib/Plack/Middleware/Throttle.pm
@@ -0,0 +1,33 @@
+package Plack::Middleware::Throttle;
+
+use strict;
+use warnings;
+our $VERSION = '0.01';
+
+1;
+__END__
+
+=head1 NAME
+
+Plack::Middleware::Throttle -
+
+=head1 SYNOPSIS
+
+  use Plack::Middleware::Throttle;
+
+=head1 DESCRIPTION
+
+Plack::Middleware::Throttle is
+
+=head1 AUTHOR
+
+franck cuny E<lt>franck@lumberjaph.netE<gt>
+
+=head1 SEE ALSO
+
+=head1 LICENSE
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
diff --git a/t/00_compile.t b/t/00_compile.t
new file mode 100644
index 0000000..184f781
--- /dev/null
+++ b/t/00_compile.t
@@ -0,0 +1,4 @@
+use strict;
+use Test::More tests => 1;
+
+BEGIN { use_ok 'Plack::Middleware::Throttle' }
diff --git a/xt/01_podspell.t b/xt/01_podspell.t
new file mode 100644
index 0000000..5035cee
--- /dev/null
+++ b/xt/01_podspell.t
@@ -0,0 +1,10 @@
+use Test::More;
+eval q{ use Test::Spelling };
+plan skip_all => "Test::Spelling is not installed." if $@;
+add_stopwords(map { split /[\s\:\-]/ } <DATA>);
+$ENV{LANG} = 'C';
+all_pod_files_spelling_ok('lib');
+__DATA__
+franck cuny
+franck@lumberjaph.net
+Plack::Middleware::Throttle
diff --git a/xt/02_perlcritic.t b/xt/02_perlcritic.t
new file mode 100644
index 0000000..b977df8
--- /dev/null
+++ b/xt/02_perlcritic.t
@@ -0,0 +1,8 @@
+use strict;
+use Test::More;
+eval {
+    require Test::Perl::Critic;
+    Test::Perl::Critic->import( -profile => 'xt/perlcriticrc');
+};
+plan skip_all => "Test::Perl::Critic is not installed." if $@;
+all_critic_ok('lib');
diff --git a/xt/03_pod.t b/xt/03_pod.t
new file mode 100644
index 0000000..437887a
--- /dev/null
+++ b/xt/03_pod.t
@@ -0,0 +1,4 @@
+use Test::More;
+eval "use Test::Pod 1.00";
+plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
+all_pod_files_ok();
diff --git a/xt/perlcriticrc b/xt/perlcriticrc
new file mode 100644
index 0000000..fa96144
--- /dev/null
+++ b/xt/perlcriticrc
@@ -0,0 +1,2 @@
+[TestingAndDebugging::ProhibitNoStrict]
+allow=refs