File Coverage

blib/lib/WWW/TypePad/CmdLine.pm

Criterion	Covered	Total	%
statement	21	57	36.8
branch	0	16	0.0
condition	0	9	0.0
subroutine	7	11	63.6
pod	1	4	25.0
total	29	97	29.9

package WWW::TypePad::CmdLine;

use strict;
use 5.008_001;
our $VERSION = '0.02';

use Config::Tiny;
use File::HomeDir;
use File::Spec;
use Getopt::Long qw( :config pass_through );
use WWW::TypePad;

our $Config = File::Spec->catfile(
    File::HomeDir->my_data, '.www-typepad-info'
);
our $ConfigObj;

GetOptions( 'config=s' => \$Config );

sub config_file {
    my $class = shift;
    return $Config;
}

sub config {
    my $class = shift;
    return $ConfigObj ||= Config::Tiny->read( $class->config_file );
}

sub initialize {
    my $class = shift;
    my( %p ) = @_;

    my $tp;

    my $config = $class->config;
    if ( !defined $config && $p{requires_auth} ) {
        $tp = WWW::TypePad->new(
            ( $ENV{TP_HOST} ? ( host => $ENV{TP_HOST} ) : () ),
            consumer_key    => $ENV{TP_CONSUMER_KEY},
            consumer_secret => $ENV{TP_CONSUMER_SECRET},
        );

        die "TP_CONSUMER_KEY and TP_CONSUMER_SECRET required in ENV"
            unless $tp->consumer_key && $tp->consumer_secret;

        $class->new_config( $tp );
    } elsif ( $p{requires_auth} ) {
        $tp = WWW::TypePad->new(
            ( $config->{app}{host} ? ( host => $config->{app}{host} ) : () ),
            consumer_key        => $config->{app}{consumer_key},
            consumer_secret     => $config->{app}{consumer_secret},
            access_token        => $config->{auth}{access_token},
            access_token_secret => $config->{auth}{access_token_secret},
        );
    } else {
        $tp = WWW::TypePad->new;
    }

    return $tp;
}

sub new_config {
    my $class = shift;
    my( $tp ) = @_;

    $ConfigObj = Config::Tiny->new;

    print <

Welcome to WWW::TypePad! Before we get started, we'll need to link our
local configuration to your TypePad account.

First, you'll need to authorize this application in your web browser.

MSG

    my $auth_uri = $tp->oauth->get_authorization_url(
        callback => 'oob',
    );

    if ( -x '/usr/bin/open' ) {
        print <
We're opening this URL in your web browser:

$auth_uri
MSG
        system 'open', $auth_uri;
    } else {
        print <
Open this URL in your web browser:

$auth_uri
MSG
    }

    print <

When you've allowed access to this application, you'll get a verifier
code that we'll need to complete the handshake.

MSG

    print "Enter the verifier code: ";
    chomp( my $verifier =  );

    my( $access_token, $access_token_secret ) =
        $tp->oauth->request_access_token( verifier => $verifier );
    $tp->access_token( $access_token );
    $tp->access_token_secret( $access_token_secret );

    my $obj = $tp->users->get( '@self' );
    die 'Request for @self gave us empty result'
        unless $obj;

    print <

Great! We've identified you as "$obj->{displayName}".

We're going to save your configuration in the following file, in case you'd
like to access or change it in the future:

    $Config

MSG

    $ConfigObj->{app} = {
        ( $tp->host ne 'api.typepad.com' ? ( host => $tp->host ) : () ),
        consumer_key    => $tp->consumer_key,
        consumer_secret => $tp->consumer_secret,
    };

    $ConfigObj->{auth} = {
        access_token        => $access_token,
        access_token_secret => $access_token_secret,
    };

    $ConfigObj->write( $class->config_file );
}

1;
__END__