lib/Web/Dispatch/Wrapper.pm

   1 package Web::Dispatch::Wrapper;
   2
   3 use strictures 1;
   4
   5 sub from_code {
   6   my ($class, $code) = @_;
   7   bless(\$code, $class);
   8 }
   9
  10 sub wrap {
  11   my $code = ${$_[0]};
  12   my $app = $_[1];
  13   sub { $code->($_[0], $app) }
  14 }
  15
  16 1;