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) = @_; }