X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fsub-dispatch-args.t;h=8762459036acea2e26f58aefc65ef3ef911fdb02;hb=6a4808bf0d52746eec29e8335002600600ea07c4;hp=c7b5830d1c065c54644348a060fd32890353d56d;hpb=32d29dcd27e2b021ba40a6e39b2fcdff601b9742;p=catagits%2FWeb-Simple.git

diff --git a/t/sub-dispatch-args.t b/t/sub-dispatch-args.t
index c7b5830..8762459 100644
--- a/t/sub-dispatch-args.t
+++ b/t/sub-dispatch-args.t
@@ -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 (/) {