view release on metacpan or  search on metacpan

lib/App/bsky.pm  view on Meta::CPAN

            if ( $^O eq 'MSWin32' ) {
                try {
                    require Win32::Console;
                    Win32::Console::OutputCP(65001);
                }
                catch ($e) {

                    #~ warn $e;
                    #~ warn 'We may have issues with non-ASCII display';
                }
                binmode STDOUT, ':encoding(UTF-8)';
                binmode STDERR, ':encoding(UTF-8)';
            }
            $self->get_config;
            if ( defined $config->{resume}{accessJwt} && defined $config->{resume}{refreshJwt} ) {
                my $res = $bsky->resume(
                    $config->{resume}{accessJwt},
                    $config->{resume}{refreshJwt},
                    $config->{resume}{token_type} // 'Bearer',
                    $config->{resume}{dpop_key_jwk},
                    $config->{resume}{client_id},
                    $config->{resume}{handle},