import old Plack::Middleware::APIRateLimit (renamed as miyagawa's suggestion) and stole API from rack::throttle

1 files changed, 17 insertions, 0 deletions

diff --git a/lib/Plack/Middleware/Throttle/Daily.pm b/lib/Plack/Middleware/Throttle/Daily.pm
new file mode 100644
index 0000000..d28d1d7
--- /dev/null
+++ b/lib/Plack/Middleware/Throttle/Daily.pm
@@ -0,0 +1,17 @@
+package Plack::Middleware::Throttle::Daily;
+
+use Moose;
+extends 'Plack::Middleware::Throttle::Limiter';
+
+sub cache_key {
+    my ( $self, $env ) = @_;
+    $self->client_identifier($env) . "_"
+        . DateTime->now->strftime("%Y-%m-%d");
+}
+
+sub reset_time {
+    my $dt = DateTime->now;
+    (24 * 3600) - (( 60 * $dt->minute ) + $dt->second);
+}
+
+1;