view release on metacpan or  search on metacpan

lib/Facebook.pm  view on Meta::CPAN

  $Facebook::VERSION = '0.102';
}
# ABSTRACT: Facebook SDK in Perl

use Moose;
use Carp qw/croak/;

use namespace::autoclean;


has desktop => (
	isa => 'Bool',
	is => 'ro',
	required => 1,
	lazy => 1,
	default => sub { 0 },
);

has uid => (
	isa => 'Maybe[Str]',
	is => 'rw',

lib/Facebook.pm  view on Meta::CPAN

has rest_api => (
	is => 'ro',
	lazy => 1,
	default => sub {
		my $self = shift;
		my $rest_class_file = $self->rest_class;
		$rest_class_file =~ s/::/\//g;
		require $rest_class_file.'.pm';
		$self->rest_class->import;
		$self->rest_class->new(
			desktop => $self->desktop ? 0 : 1,
			api_key => $self->api_key,
			secret => $self->secret,
		);
	},
);


sub graph {
	my ( $self ) = @_;
	$self->graph_api;