gistfile1.pl

package API;
use Mojo::Base 'Mojolicious';

sub startup {
    my $self = shift;

    $self->helper( has_permission => \&authorize );

    $self->routes
         ->bridge->to( cb => sub { $self->has_permission('admin') } )
         ->get('/resource')->to( cb => \&search );
}

sub search {
    my $self = shift;
    $self->render( json => 'search' );
}

sub authorize {
    my $self = shift;

    return 1 if int( rand() * 10 ) < 6;

    warn "access denied\n";
    $self->render(text => 'You don\'t have access');
    return;
}

1;