use v6;
use JSON::RPC::Client;
use Odoo::Client::Model;

unit class Odoo::Client;



head

Odoo::Client - A simple Odoo ERP client that uses JSON RPC


my $odoo = Odoo::Client.new(
    hostname => "localhost",
    port     => 8069
);


my $uid = $odoo.login(
    database => "<database>",
    username => '<email>',
    password => "<password>"
);


printf("Logged on with user id '%d'\n", $uid);


A simple L<Odoo|http://odoo.com> ERP client that uses JSON RPC.



has JSON::RPC::Client $!client;
has Str $!database;
has Str $!username;
has Str $!password;
has Int $!uid;



Returns a Odoo::Client object that is associated with Odoo instance. You need to
call C<login> to actually start doing useful operations.


submethod BUILD(Str :$hostname, Int :$port) {
    my $url = sprintf("http://%s:%d/jsonrpc", $hostname, $port);
    $!client = JSON::RPC::Client.new(url => $url);
}



Returns a hash of Odoo version information.


method version() returns Hash {
    my $version = $!client.call(
        service => "common",
        method  => "version",
        args    => []
    );
    return $version;
}



login(Str :$database, Str :$username, Str :$password) {


Logins to the Odoo database with provided authentication credentials.


method login(Str :$database, Str :$username, Str :$password) {
    my $uid = $!client.call(
        service => "common",
        method  => "login",
        args    => [$database, $username, $password]
    );
    if $uid.defined {
        $!database = $database;
        $!username = $username;
        $!password = $password;
        $!uid      = $uid;
    }
    return $uid;
}



invoke(Str :$model, Str :$method, :$method-args)


Invoke a method on a model and returns its results


multi method invoke(Str :$model, Str :$method, :$method-args) {
    my @args = [$!database, $!uid, $!password, $model, $method, $method-args];
    my $result = $!client.call(
        service => "object",
        method  => "execute",
        args    => @args
    );
    return $result;
}



Returns an C<Odoo::Client::Model> model. This is a helper method.


#TODO should create a model proxy by queries fields for that model
method model(Str $name) {

    # Create the model proxy
    my $model = Odoo::Client::Model.new(
        :client(self),
        :name($name)
    );

    # Workaround for button-immediate-install
    if $name eq 'ir.module.module' {
        #TODO make this more generic by querying Odoo model
        $model.^add_method('button-immediate-install', method ($args){
            my $result = $!client.invoke(
                model       => 'ir.module.module',
                method      => 'button_immediate_install',
                method-args => $args
            );
            return $result;
        })
    }

    return $model;
}



item

Ahmad M. Zawawi, L<azawawi|https://github.com/azawawi> on C<#raku>


root

Model

README

React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>

=item1 B<Resources>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>

=end nested
=begin nested :!nested

=item1 B<Resoures>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=end React


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React


Client

Name

Synopsis

Description

Documentation

Attributes

Methods

new(Str :$hostname, Int :$port)

version returns Hash

invoke(Str :$model, Str :$method, :$method-args)

model(Str $name)

See Also

Author

LICENSE