use warnings;
use strict;
use lib 't/';
use TestLib;
use Test::More;
...
####
sub _register_hooks {
my $self = shift;
$self->app->add_hook(
Dancer2::Core::Hook->new(
name => 'before_template_render',
code => sub {
my $tokens = shift;
...
####
sub _register_hooks {
my ($self, $token) = @_;
...
####
sub BUILD {
shift->_register_hooks;
return;
}
####
sub BUILD {
$_[0]->_register_hooks;
}
####
sub _validator_language {
shift->config_validator->language(shift);
return;
}
####
sub _validator_language {
$_[0]->config_validator->language($_[1]);
}
####
sub _access_token_data {
# Fetches and stores the access token data to the AUTH_CACHE_FILE
my ($self, $data) = @_;
...
}
sub _access_token_set_expiry {
# Sets the access token expiry date/time after generation and
# renewal
my ($self, $token_data) = @_;
}