package LinkBlocker;
use Dancer ':syntax';
use Dancer::Plugin;

register block_links_from => sub {
    my ($host) = @_;
    hook before => sub {
        if (request->referer && request->referer =~ /http:\/\/$host/) {
            status 403;
        }
    };
};

add_hook(
    'after',
    sub {
        my $response = shift;
        if ( request->path eq '/test' ) {
            $response->{content} = 'no content';
            $response->{status}  = 202;
        }
    }
);

register_plugin;

1;