File Coverage

blib/lib/WWW/Foursquare/Settings.pm

Criterion	Covered	Total	%
statement	6	21	28.5
branch			n/a
condition			n/a
subroutine	2	6	33.3
pod	0	4	0.0
total	8	31	25.8

package WWW::Foursquare::Settings;

use strict;
use warnings;

sub new {
    my ($class, $request, $setting_id) = @_;

    my $self = {};
    bless $self, $class;
    $self->{request}    = $request;
    $self->{setting_id} = $setting_id;

    return $self;
}

sub info {
    my ($self, %params) = @_;

    my $path = sprintf "settings/%s", $self->{setting_id};
    return $self->{request}->GET($path, \%params);
}

# general
sub all {
    my ($self, %params) = @_;

    my $path = "settings/all";
    return $self->{request}->GET($path, \%params);
}

# actions
sub set {
    my ($self, %params) = @_;

    my $path = sprintf "settings/%s/set", $self->{setting_id};
    return $self->{request}->GET($path, \%params);
}


1;