Yet Another CPAN Grep

WWW-Google-Notebook ( J/JI/JIRO/WWW-Google-Notebook-0.01.tar.gz, JIRO, 2006; MetaCPAN )

WWW-Google-Notebook/lib/WWW/Google/Notebook.pm ( view source; MetaCPAN )

 $res->is_error;
    $note = $self->_parse($res->content);
    1;
}

sub _parse {
    my ($self, $json) = @_;
    no warnings 'once';
    local *F = sub {};
    local *U = sub { $_[0] };
    local *B

],
            created_on    => $_[5],
        });
    };
    local *S = sub { $_[3] };
    eval $json;
}

sub _uri_escape {
    my $val = shift;
    $val =~ s/\r?\n/<br>/g;
    URI::Escape::uri_escap