File Coverage

blib/lib/OAuth/Cmdline/Spotify.pm

Criterion	Covered	Total	%
statement	12	17	70.5
branch			n/a
condition			n/a
subroutine	4	6	66.6
pod	0	2	0.0
total	16	25	64.0

###########################################
package OAuth::Cmdline::Spotify;
###########################################
use strict;
use warnings;
use MIME::Base64;

use base qw( OAuth::Cmdline );

###########################################
sub site {
###########################################
    return "spotify";
}

###########################################
sub token_refresh_authorization_header {
###########################################
    my( $self ) = @_;

    my $cache = $self->cache_read();

    my $auth_header =
        "Basic " .
        encode_base64(
            "$cache->{ client_id }:$cache->{ client_secret }",
            "" # no line break!!
        );
    return ( "Authorization" => $auth_header );
}

1;

__END__