source: perl/modules/Facebook/lib/Facebook/Graph/Publish.pm @ 7777ac2

package Facebook::Graph::Publish;
BEGIN {
  $Facebook::Graph::Publish::VERSION = '1.0300';
}

use Any::Moose;
use Facebook::Graph::Response;
with 'Facebook::Graph::Role::Uri';
use AnyEvent::HTTP;
use LWP::UserAgent; # XXX blegh
use HTTP::Request::Common;
use URI::Encode qw(uri_decode);

has secret => (
    is          => 'ro',
    required    => 0,
    predicate   => 'has_secret',
);

has access_token => (
    is          => 'ro',
    predicate   => 'has_access_token',
);

has object_name => (
    is          => 'rw',
    default     => 'me',
);

sub to {
    my ($self, $object_name) = @_;
    $self->object_name($object_name);
    return $self;
}

sub get_post_params {
    my $self = shift;
    my @post;
    if ($self->has_access_token) {
        push @post, access_token => uri_decode($self->access_token);
    }
    return \@post;
}

sub publish {
    my ($self, $cb) = @_;
    my $uri = $self->uri;
    $uri->path($self->object_name.$self->object_path);
    # XXX blegh
    my $request = LWP::UserAgent->new->request(POST $uri->as_string, $self->get_post_params);
    http_post $uri->as_string, $request->content, sub {
        warn "whooo";
        my ($response, $headers) = @_;
        my %params = (
            response => $response,
            headers  => $headers,
            uri      => $uri->as_string
        );
        if ($self->has_secret) {
            $params{secret} = $self->secret;
        }
        $cb->(Facebook::Graph::Response->new(%params));
    }
}

no Any::Moose;
__PACKAGE__->meta->make_immutable;


=head1 NAME

Facebook::Graph::Publish - A base class for publishing various things to facebook.

=head1 VERSION

version 1.0300

=head1 DESCRIPTION

This module shouldn't be used by you directly for any purpose. 

=head1 LEGAL

Facebook::Graph is Copyright 2010 Plain Black Corporation (L<http://www.plainblack.com>) and is licensed under the same terms as Perl itself.

=cut