Yet Another CPAN Grep

Told-Client ( P/PE/PETERSHAW/Told-Client/Told-Client-0.001.tar.gz, PETERSHAW, 2013; MetaCPAN )

Told-Client/lib/Told/Client.pm ( view source; MetaCPAN )

package Told::Client;

use 5.016002;
use strict;
use warnings;

use JSON;
use LWP;

require Exporter;

our @ISA = qw(Exporter);

our %EXPORT_TAGS = ( 'all' => [ qw(
	tell
    setDebug
    setConnectio

'} =~ /^test/){
            $result = encode_json(\%data);
    	} else {
        	$result = $browser->post($self->{'host'}."/log"
           		, encode_json \%data
	        );
	    }
    } elsif($self