CPAN::Groonga

 Crashplan::Client;

use warnings;
use strict;

use Carp;
use MIME::Base64;
use REST::Client;
use JSON;

use Crashplan::Client::Org;
use Crashplan::Client::User;
use Crashplan::Client::Computer;
use C

lf->set_header(Authorization => "Basic $creds");
        $self->set_header(Accept => "application/json");
        # Automatically follow redirect
        $self->{rest}->setFollow(1);
        $self->{r

ntity;

    my $body = encode_json( { map {$_ => $entity->{$_}} @attributes} );

    $self->POST($entity->url,$body);

    my $return = undef;
    my $param = decode_json($self->responseContent);

   

package Crashplan::Client::User;

use strict;
use warnings;
use JSON;

our $VERSION = '0.003_0';

=head1 NAME

Crashplan::Client::User - Object representation of Crashplan PROe server's entity

=head1

rent object
    my @attributes = grep {!/^rest|rest_header$/} keys %$self;

    my $body = encode_json( { map {$_ => $self->{$_}} @attributes} );

    $self->{rest}->PUT($self->url."/".$self->id,$body

package Crashplan::Client::Org;

use strict;
use warnings;
use JSON;

our $VERSION = '0.003_0';

=head1 NAME

Crashplan::Client::Org - Object representation of Crashplan PROe server's entity

=head1 S

rent object
    my @attributes = grep {!/^rest|rest_header$/} keys %$self;

    my $body = encode_json( { map {$_ => $self->{$_}} @attributes} );

    $self->{rest}->PUT($self->url."/".$self->id,$body