File Coverage

blib/lib/WWW/Facebook/API/Canvas.pm

Criterion	Covered	Total	%
statement	18	62	29.0
branch	0	18	0.0
condition	0	15	0.0
subroutine	5	9	55.5
pod	6	6	100.0
total	29	110	26.3

#######################################################################
# ex: set ts=8 sw=4 et
#########################################################################
package WWW::Facebook::API::Canvas;
use warnings;
use strict;
use Carp;

sub get_fb_params {
    my $self = shift;
    $self->base->query(shift);

    my $fb_params = {};
	# verify - FB Connect or Native?
	my @query = '';
	my $api_key_pre = $self->base->api_key."_";
	if ($self->base->query->param('fb_sig')) {
    	@query = grep {m/^fb_sig_/xms} $self->base->query->param;
	}
	else {
		@query = grep {m/^$api_key_pre/xms} $self->base->query->cookie;
	}

    for my $param (@query) {
		my @values = '';
		if ($self->base->query->param('fb_sig')) {
       		@values = $self->base->query->param($param);
		}
		else {
			@values = $self->base->query->cookie($param)->value;
		}
        if ( @values > 1 || ref $values[0] ) {
            croak "Multiple values for $param: Are you using POST for forms?";
        }

		if ($self->base->query->param('fb_sig')) {
        	my $attribute = ( $param =~ /^fb_sig_ (.*) $/xms )[0];
        	$fb_params->{$attribute} = $self->base->query->param($param);
		}
		else {
        	my $attribute = ( $param =~ /^$api_key_pre (.*) $/xms )[0];
        	$fb_params->{$attribute} = $self->base->query->cookie($param)->value;
		}
    }

    return $fb_params;
}

sub get_non_fb_params {
    my $self = shift;
    $self->base->query(shift);

    my $non_fb_params = {};
    my @query = grep { !/^fb_sig_?/xms } $self->base->query->param;
    for my $param (@query) {
        my @values = $self->base->query->param($param);
        if ( @values > 1 || ref $values[0] ) {
            croak "Multiple values for $param. Are you using POST for forms?";
        }

        $non_fb_params->{$param} = $self->base->query->param($param);
    }

    return $non_fb_params;
}

sub validate_sig {
    my $self = shift;
    $self->base->query(shift);

    my $fb_params = $self->get_fb_params;
    return unless $self->base->query->param('fb_sig') || $self->base->query->cookie($self->base->api_key)->value;
    return $fb_params
        if $self->base->verify_sig(
        params => $fb_params,
        sig    => $self->base->query->param('fb_sig') || $self->base->query->cookie($self->base->api_key)->value,
        );

    return;
}

sub get_user {
    my $self = shift;
    $self->base->query(shift);

    my $fb_params = $self->validate_sig;
    return $fb_params->{'user'} if exists $fb_params->{'user'};

    return q{};
}

sub in_fb_canvas {
    my $self = shift;
    $self->base->query(shift);

    return $self->get_fb_params->{'in_canvas'};
}

sub in_frame {
    my $self = shift;
    $self->base->query(shift);

    my $fb_params = $self->get_fb_params;
    return 1 if $fb_params->{'in_canvas'} or $fb_params->{'in_iframe'};

    return;
}

1;
__END__