CPAN::Groonga

Digest::MD5 'md5_hex';
use Moose;
use MooseX::Method::Signatures;
use MooseX::ClassAttribute;
use JSON;
use URI::Encode qw(uri_encode);
use LWP::UserAgent;
use Date::Parse;
use YAML qw(LoadFile DumpFi

$res->code != 200
    and $self->log->logdie( "Unable to contact Toodledo\n");
  my $ref = decode_json( $res->content )
    or $self->log->logdie( "Content invalid\n");

  $self->log->logdie( $ref->{e

trict;
use warnings;

our $VERSION = '1.00';

use base qw(Exporter);

use File::HomeDir qw();
use JSON;

our @EXPORT_OK = qw(debug toodledo_encode toodledo_decode toodledo_time
		     arg_encode home 

PP_TOODLEDO_DEBUG};
}


sub arg_encode
{
  local $_ = shift;

  s/\n/\\n/g;
  ref $_
    ? encode_json( $_ )
    : $_;
}


sub toodledo_encode
{
  local $_ = shift;

  s/&/%26/g;
  s/;/%3B/g;
  $_;
}

1;

__END__

=head1 NAME

=head1 SYNOPSIS

=head1 DESCRIPTION

=head1 METHODS

=head2 arg_encode

JSON encoding for parameters submitted to the API.

=head2 home

User's home directory.  Broken out so