The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use OX;

my $counter = 0;

router as {
    route '/'         => sub { $counter         };
    route '/inc'      => sub { ++$counter       };
    route '/dec'      => sub { --$counter       };
    route '/reset'    => sub { $counter = 0     };
    route '/set/:num' => sub { $counter = $_[1] }, (
        num => { isa => 'Int' },
    );
};