MojoX-Dispatcher-FilterChain/t/03chain.t

   1 #!perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use Test::More tests => 1;
   7
   8 use_ok('MojoX::Dispatcher::FilterChain');
   9
  10 my $c = 0;
  11
  12 my $chain = MojoX::Dispatcher::FilterChain->new();
  13
  14 $chain->add(Filter1->new());
  15 $chain->add(Filter2->new());
  16 $chain->process($c);
  17
  18 1;
  19
  20 package Filter1;
  21 use base 'MojoX::FilterChain::Base';
  22 use MojoX::FilterChain::Constants;
  23
  24 sub run {
  25     return NEXT;
  26 }
  27 1;
  28
  29 package Filter2;
  30 use base 'MojoX::FilterChain::Base';
  31 use MojoX::FilterChain::Constants;
  32
  33 sub run {
  34     return LAST;
  35 }
  36 1;