#!perl -T use 5.006; use strict; use warnings FATAL => 'all'; use Test::More; plan tests => 1; BEGIN { use_ok( 'WWW::Foursquare' ) || print "Bail out!\n"; } diag( "Testing WWW::Foursquare $WWW::Foursquare::VERSION, Perl $], $^X" );