File Coverage

blib/lib/ShipIt/Step/Facebook.pm

Criterion	Covered	Total	%
statement	18	49	36.7
branch	0	18	0.0
condition	0	12	0.0
subroutine	6	8	75.0
pod	2	2	100.0
total	26	89	29.2

package ShipIt::Step::Facebook;
use strict;
use warnings;
our $VERSION = '0.01';

use LWP::UserAgent;
use HTTP::Request::Common;
use YAML 'LoadFile';

use base qw(ShipIt::Step);

sub init {
    my ($self, $conf) = @_;

    my $config_file = $conf->value('facebook.config') || '~/.shipit.facebook';
    $config_file =~ s/~/$ENV{HOME}/;

    -e $config_file || die "facebook.config: $config_file does not exist\n";
    -r $config_file || die "facebook.config: $config_file is not readable\n";

    $self->{config} = LoadFile($config_file);

    defined $self->{config}{access_token} or
        die "$config_file: no access_token defined\n";

    $self->{message} =
        $conf->value('facebook.message') || 'shipped %d %v - soon at %f';

    $self->{target} =
        $conf->value('facebook.target') || $self->{config}{target} || 'me';

    $self->{distname} = $conf->value('facebook.distname');
    defined $self->{distname} || print
        "facebook.distname not defined; will try to read it from META.yml later.\n";
}

sub run {
    my ($self, $state) = @_;

    my $version = $state->version;
    my $metafile = 'META.yml';
    if (!(defined $self->{distname}) && -e $metafile) {
        print "facebook.distname not defined; reading $metafile...\n";
        my $meta = LoadFile($metafile);
        $self->{distname} = $meta->{name};
        $version ||= $meta->{version};
    }
    defined $self->{distname} || die
        "facebook.distname not defined in config, and can't read it from META.yml\n";

    my %vars = (
        d => $self->{distname},
        u => "http://search.cpan.org/dist/$self->{distname}",
        f => "http://frepan.org/dist/$self->{distname}",
        v => $version,
        '%' => '%'
    );

    (my $message = $self->{message}) =~ s/%(.)/ $vars{$1} || '%'.$1 /ge;

    # warn(), don't die(), if we couldn't send the message, because this
    # step will presumably come after uploading to CPAN, so we don't want
    # to skip the rest of the shipit process just because of that.

    if ($state->dry_run) {
        warn "*** DRY RUN, not facebooking!\n";
        warn "message: $message\n";
        return;
    }

    my $ua = LWP::UserAgent->new;
    my $target = $self->{target};
    my $res = $ua->request(
        POST "https://graph.facebook.com/$target/feed", [
            access_token => $self->{config}{access_token},
            message      => $message,
        ]
    );
    warn "couldn't send message to facebook\n" if $res->is_error;
}

1;
__END__