From 3669b3d498f2f6224b8dc8cdc8cfcca1c0165611 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 22 Jun 2011 12:02:03 -0500
Subject: initial implementation

---
 lib/Plack/Middleware/Class/Refresh.pm | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

(limited to 'lib')

diff --git a/lib/Plack/Middleware/Class/Refresh.pm b/lib/Plack/Middleware/Class/Refresh.pm
index e69de29..453e6f1 100644
--- a/lib/Plack/Middleware/Class/Refresh.pm
+++ b/lib/Plack/Middleware/Class/Refresh.pm
@@ -0,0 +1,22 @@
+package Plack::Middleware::Class::Refresh;
+use strict;
+use warnings;
+use Plack::Util::Accessor 'verbose';
+
+use Class::Refresh;
+
+use base 'Plack::Middleware';
+
+sub call {
+    my $self = shift;
+
+    my @changed = Class::Refresh->modified_modules;
+    warn "Classes " . join(', ', @changed) . " have been changed, refreshing"
+        if $self->verbose && @changed;
+
+    Class::Refresh->refresh;
+
+    $self->app->(@_);
+}
+
+1;
-- 
cgit v1.2.3-54-g00ecf