Yet Another CPAN Grep

WebService-Simplenote ( I/IO/IOANR/WebService-Simplenote-0.2.1.tar.gz, IOANR, 2012; MetaCPAN )

WebService-Simplenote/lib/WebService/Simplenote.pm ( view source; MetaCPAN )

ON = '0.2.1';

use v5.10;
use open qw(:std :utf8);
use Moose;
use MooseX::Types::Path::Class;
use JSON;
use LWP::UserAgent;
use HTTP::Cookies;
use Log::Any qw//;
use DateTime;
use MIME::Base64 qw//;
u

 => 1,
);

method _build__ua {

    my $headers = HTTP::Headers->new(Content_Type => 'application/json',);

    # XXX is it worth saving cookie?? How is password more valuable than auth token?
    # l

ogger->error('Network: ' . $response->status_line);
        return;
    }

    my $index = decode_json($response->content);

    if ($index->{count} > 0) {
        $self->logger->debugf('Network: Inde

WebService-Simplenote ( I/IO/IOANR/WebService-Simplenote-0.2.1.tar.gz, IOANR, 2012; MetaCPAN )

WebService-Simplenote/lib/WebService/Simplenote/Note.pm ( view source; MetaCPAN )

e;
use JSON qw//;
use Log::Any qw//;
use namespace::autoclean;

around BUILDARGS => sub {
    my $orig  = shift;
    my $class = shift;

    if (@_ == 1 && !ref $_[0]) {
        my $note = JSON->new->

, JSON->backend);
    my $json = JSON->new;
    $json->allow_blessed;
    $json->convert_blessed;
    my $serialised_note = $json->utf8->encode($self);

    return $serialised_note;
}

method TO_JSON