CPAN::Groonga

;
use Moose;
use MooseX::Storage;

use overload ('""' => 'to_string');

with Storage('format' => 'JSON', 'io' => 'File');

use Forest::Tree;
use Graphics::Primitive::Border;
use Graphics::Primitive::I

itive::Component';

with qw(MooseX::Clone Graphics::Primitive::Aligned);
with Storage (format => 'JSON', io => 'File');

has image => (
    is => 'rw',
    isa => 'Str'
);
has scale => (
    is => 'rw

package Graphics::Primitive::Container;
use Moose;
use MooseX::Storage;

with Storage (format => 'JSON', io => 'File');

use Graphics::Primitive::ComponentList;

use Forest::Tree;

extends 'Graphics::

;
use MooseX::Storage;

extends 'Graphics::Primitive::Paint::Gradient';

with Storage (format => 'JSON', io => 'File');

has 'end' => (
    is => 'rw',
    isa => 'Geometry::Primitive::Circle',
    re

orage;

extends 'Graphics::Primitive::Operation';

with 'MooseX::Clone';
with Storage (format => 'JSON', io => 'File');

has paint => (
    isa => 'Graphics::Primitive::Paint',
    is  => 'rw',
    re

ooseX::Storage;
use Moose::Util::TypeConstraints;

with 'MooseX::Clone';
with Storage (format => 'JSON', io => 'File');

enum 'Graphics::Primitive::Font::AntialiasModes' => (
    qw(default none gray 

oose::Util::TypeConstraints;
use MooseX::Storage;

with 'MooseX::Clone';
with Storage (format => 'JSON', io => 'File');

enum 'LineCap' => qw(butt round square);
enum 'LineJoin' => qw(miter round beve

rimitive::Border;
use Moose;
use MooseX::Storage;

with 'MooseX::Clone';
with Storage (format => 'JSON', io => 'File');

use Graphics::Color;
use Graphics::Primitive::Brush;

has 'bottom' => (
    is 

seX::Storage;

with 'Geometry::Primitive::Equal';

with 'MooseX::Clone';
with Storage (format => 'JSON', io => 'File');

use Moose::Util::TypeConstraints;

coerce 'Graphics::Primitive::Insets'
    => 

:Primitive::Path;
use Moose;
use MooseX::Storage;

with 'MooseX::Clone';
with Storage (format => 'JSON', io => 'File');

use Geometry::Primitive::Arc;
use Geometry::Primitive::Bezier;
use Geometry::Pr

anages backimap status

use Moose;
use MooseX::Storage;
with Storage( 'format' => 'JSON' );
# Storage prereq
use JSON::Any();
use version();

use English qw( -no_match_vars );


has timestamp => (
   

as storage => (
    is => 'ro',
    isa => 'App::backimap::Storage',
);

my $FILENAME = 'backimap.json';

# Extra status initialization is not documented in POD.

sub BUILD {
    my $self = shift;

  

->storage;

    if ( $self->storage->init ) {
        $self->save();
    }
    else {
        my $json = $self->storage->get($FILENAME);

        # Do not check package if version is alpha (CPAN: #683

Storage;

extends 'Graphics::Primitive::Paint';

with qw(MooseX::Clone);
with Storage (format => 'JSON', io => 'File');

has color => (
    isa => 'Graphics::Color',
    is  => 'rw',
    traits => [qw

itive::Component';

with qw(MooseX::Clone Graphics::Primitive::Aligned);
with Storage (format => 'JSON', io => 'File');

use Graphics::Primitive::Font;

has 'angle' => (
    is => 'rw',
    isa => 'Nu

;
use MooseX::Storage;

extends 'Graphics::Primitive::Paint::Gradient';

with Storage (format => 'JSON', io => 'File');

has line => (
    isa => 'Geometry::Primitive::Line',
    is => 'rw',
);

__PAC

age Graphics::Primitive::ComponentList;
use Moose;
use MooseX::Storage;

with Storage (format => 'JSON', io => 'File');

has 'components' => (
    traits => ['Array'],
    is => 'rw',
    isa => 'Arra

);
	
	# JSON and local library installation
	$self->install_modules( qw{
		common::sense
		JSON::XS
		JSON
		local::lib
	} );	

	# Now that we have JSON::XS, use it as Parse::CPAN::Meta's JSON backend

.
	$self->add_env('PERL_JSON_BACKEND', 'JSON::XS');
	
	# Graphics module installation.
	$self->install_module( name => 'Imager' );
	$self->install_module( name => 'GD' );
	
	return 1;
}

sub install_s

orage;

extends 'Graphics::Primitive::Operation';

with 'MooseX::Clone';
with Storage (format => 'JSON', io => 'File');

use Graphics::Primitive::Brush;

has brush => (
    isa => 'Graphics::Primitive

y $level = $ENV{'HTML_ZOOM_DEBUG'}) {
  foreach my $mod (qw(Smart::Comments Data::Dumper::Concise JSON)) {
    (my $file_stem = $mod) =~ s/::/\//g;
    die "HTML_ZOOM_DEBUG env var set to ${level} - t

l+2;
  no warnings 'redefine';
  *import = sub { Smart::Comments->import(@smartness) };
  my $j = JSON->new->space_after;
  my $d = \&Data::Dumper::Concise::Dumper;
  *Smart::Comments::Dumper = sub {

for my $key ( keys %args ) {
        $self->{$key} = $args{$key};
    } 

    $self->{params} = '.json?apikey=' . $self->{api_key};
    if ( $self->{pretty_print} eq 'true') {
        $self->{params} 

DESCRIPTION

This module is intended to provide an interface between Perl and the Rotten
Tomatoes JSON API. The Rotten Tomatoes API is a RESTful web service. In order
to use this library you must prov

6-1 alpha-2)

=head2 $obj->callback(...)

JSONP Support

    $obj->callback(
        callback_fn => method();
    );

* B< callback_fn >

The API supports JSONP calls. Simply append a callback paramet

package WebService::Vtiger;

use warnings;
use strict;

use LWP::UserAgent;
use JSON;
use Digest::MD5;


=head1 NAME

Webservice::Vtiger - Interface to vtiger5.2 webservices

=head1 VERSION

Version 0

ibutes:

=over 2 

=item * ua: the browser

Instance of LWP::UserAgent

=item * json: the json handler 

Instance of JSON

=item * ctx: the MD5 handler

Instance of Digest::MD5

=item * url: the url o

my $self  = {
        'ua'   => LWP::UserAgent->new,        # browser
        'json' => JSON->new->allow_nonref,    # json handler
        'ctx'  => Digest::MD5->new,           # MD5 handler
        '