Select Code to Download

use warnings;
use strict;
...
use Test::More;

...

sub _register_hooks {
    my $self = shift;
...
            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, $token_data) = @_;
}