File Coverage

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

Criterion	Covered	Total	%
statement	13	19	68.4
branch			n/a
condition			n/a
subroutine	7	9	77.7
pod	6	6	100.0
total	26	34	76.4

#######################################################################
# ex: set ts=8 sw=4 et
#########################################################################
package WWW::Facebook::API::Permissions;

use warnings;
use strict;

use Carp;

sub begin {
    my $self = shift;
    shift; # get rid of hash key
    $self->base->call_as_api_key(shift);
    return;
}

sub end {
    shift->base->call_as_api_key(q{});
    return;
}

sub grant_api_access {
    return shift->base->call( 'permissions.grantApiAccess', @_ );
}

sub check_available_api_access {
    return shift->base->call( 'permissions.checkAvailableApiAccess', @_ );
}

sub revoke_api_access {
	return shift->base->call( 'permissions.revokeApiAccess', @_ );
}

sub check_granted_api_access {
	return shift->base->call( 'permissions.checkGrantedApiAccess', @_ );
}

1;    # Magic true value required at end of module
__END__