File Coverage

blib/lib/WWW/Foursquare/Venues.pm

Criterion	Covered	Total	%
statement	6	87	6.9
branch			n/a
condition			n/a
subroutine	2	28	7.1
pod	0	26	0.0
total	8	141	5.6

package WWW::Foursquare::Venues;

use strict;
use warnings;

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

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

    return $self;
}

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

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

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

    my $path = "venues/add";
    return $self->{request}->POST($path, \%params);
}

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

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

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

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

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

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

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

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

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

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

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

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

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

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

# ascpects
sub events {
    my ($self, %params) = @_;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

    my $path = sprintf "venues/%s/edit", $self->{venue_id};
    return $self->{request}->POST($path, \%params);
}

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

    my $path = sprintf "venues/%s/flag", $self->{venue_id};
    return $self->{request}->POST($path, \%params);
}

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

    my $path = sprintf "venues/%s/like", $self->{venue_id};
    return $self->{request}->POST($path, \%params);
}

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

    my $path = sprintf "venues/%s/makrtodo", $self->{venue_id};
    return $self->{request}->POST($path, \%params);
}

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

    my $path = sprintf "venues/%s/proposeedit", $self->{venue_id};
    return $self->{request}->POST($path, \%params);
}


1;