Yet Another CPAN Grep

Tinder-API ( X/XX/XXGHOSTXX/Tinder/Tinder-API-0.03.zip, XXGHOSTXX, 2015; MetaCPAN )

Tinder-API/lib/Tinder/API.pm ( view source; MetaCPAN )

os_version'=> '800000',
	'Accept'=> '*/*',
	'platform'=> 'ios',
	'Content-Type'=> 'application/json; charset=utf-8',
	'Connection'=> 'keep-alive',
	'Proxy-Connection'=> 'keep-alive',
	'Content-L

>'en' ] );
	my @json=split /:/, $ua->request($request)->as_string();
	for(my $i=0;$i< scalar(@json);$i++)
	{
		if ($json[$i] =~ /token/)
		{
			 $self->{_TinderToken}=$1 if $json[$i+1] =~ /"(.+?

os_version'=> '800000',
	'Accept'=> '*/*',
	'platform'=> 'ios',
	'Content-Type'=> 'application/json; charset=utf-8',
	'Connection'=> 'keep-alive',
	'Proxy-Connection'=> 'keep-alive',
	'Content-L