Magento.pm

package Magento;

use v5.14;
use warnings;
use Carp;
use XML::RPC;

sub new {
    my ($class,$uri,$user,$pass) = @_;
    my $client = XML::RPC->new("$uri/api/xmlrpc/");
    my $session = $client->call(login => $user, $pass);
    bless { client => $client, session => $session }, $class;
}

sub AUTOLOAD {
    my ($this,@args) = @_;
    my $fn = our $AUTOLOAD;
    $fn =~ s/.*://;
    $fn =~ s/_([^_]+)$/.$1/;
    $this->{client}->call(call => $this->{session},$fn,\@args);
}

1;