documentation corrections and updates
[catagits/Web-Simple.git] / t / sub-dispatch-args.t
index c7b5830..8762459 100644 (file)
@@ -12,6 +12,8 @@ use Test::More (
     use Web::Simple 't::Web::Simple::SubDispatchArgs';
     package t::Web::Simple::SubDispatchArgs;
 
+    has 'attr' => (is=>'ro');
+
     sub dispatch_request {
         my $self = shift;
         sub (/) {