view release on metacpan or  search on metacpan

README.MD  view on Meta::CPAN

####auth
Takes a `facebookAuthToken` and a corresponding Id and returns a Tinder `X-Auth-Token`.

``` perl
 my XAUTHTOKEN=$API->auth() 
```

Please note that this is an internal method and is already called in the constructor `new`.

####relocate
Takes two coordinates (`lat,long`) and updates your coordinates on Tinder.

``` perl
$API->relocate(0.00000,0.00000) 
```

**NOTE** Sometimes Tinder spits out *Not significant change* for your location. This means in most cases that you have to feed it a pair with more distance to the old coordinates.

####getRecs
Returns a list of recommendations from Tinder.
``` perl
my $response=$API->getRecs()
``` 

lib/Tinder/API.pm  view on Meta::CPAN

A Facebook Id associated with the token.

=back

=item C<auth>

Takes a facebookAuthToken and a corresponding Id and returns a tinder X-Auth-Token.
C<< my XAUTHTOKEN=$API->auth() >>
Please note that this is an internal method and is already called in the constructor B<new>.

=item C<relocate>

Takes two coordinates (lat,long) and updates your coordinates on Tinder;
C<< $API->relocate(0.00000,0.00000) >>
B<NOTE> Sometimes Tinder spits out I<Not significant change> for your location. This means in most cases that you have to feed it a pair with more distance to the old coordinates.

=item C<getRecs>

Returns a list of recommendations from Tinder;
C<< my $response=$API->getRecs(); >>

=item C<getUser>

Takes a TinderId of a user (valid) and returns all information about him/her;

lib/Tinder/API.pm  view on Meta::CPAN

	'platform'=> 'ios',
	'Content-Type'=> 'application/json; charset=utf-8',
	'Connection'=> 'keep-alive',
	'Proxy-Connection'=> 'keep-alive',
	'Content-Length'=> '329',
	'app-version'=> '218',
	);
	$ua->default_headers($req_headers);
	return 0;
}
sub relocate()
{
	my $self=shift;
	my $lat=shift;
	my $lon=shift;
	my $TinderToken=$self->{_TinderToken};
	my $url='https://api.gotinder.com/user/ping';
	my $request = POST( $url, [ "lat" => $lat, "lon" => $lon] );
	return $ua->request($request)->as_string();
}
sub getRecs()