File Coverage

blib/lib/Jubatus/Clustering/Client.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 24 24 100.0


line stmt bran cond sub pod time code
1             # This file is auto-generated from clustering.idl(0.4.5-350-g9c67807) with jenerator version 0.4.5-532-g61b108e/develop
2             # *** DO NOT EDIT ***
3              
4             package Jubatus::Clustering::Client;
5              
6 1     1   3815 use strict;
  1         2  
  1         40  
7 1     1   6 use warnings;
  1         1  
  1         33  
8 1     1   5 use utf8;
  1         1  
  1         8  
9 1     1   19 use autodie;
  1         2  
  1         8  
10 1     1   5877 use AnyEvent::MPRPC;
  1         3  
  1         78  
11              
12 1     1   6 use parent 'Jubatus::Common::Client';
  1         2  
  1         7  
13             require Jubatus::Clustering::Types;
14              
15             sub push {
16             my ($self, $points) = @_;
17             return $self->_call("push", Jubatus::Common::TBool->new(), [$points],
18             [Jubatus::Common::TList->new(Jubatus::Common::TDatum->new())]);
19             }
20              
21             sub get_revision {
22             my ($self) = @_;
23             return $self->_call("get_revision", Jubatus::Common::TInt->new(0, 4), [], []);
24             }
25              
26             sub get_core_members {
27             my ($self) = @_;
28             return $self->_call("get_core_members", Jubatus::Common::TList->new(
29             Jubatus::Common::TList->new(Jubatus::Common::TUserDef->new(
30             Jubatus::Clustering::WeightedDatum->new()))), [], []);
31             }
32              
33             sub get_k_center {
34             my ($self) = @_;
35             return $self->_call("get_k_center", Jubatus::Common::TList->new(
36             Jubatus::Common::TDatum->new()), [], []);
37             }
38              
39             sub get_nearest_center {
40             my ($self, $point) = @_;
41             return $self->_call("get_nearest_center", Jubatus::Common::TDatum->new(),
42             [$point], [Jubatus::Common::TDatum->new()]);
43             }
44              
45             sub get_nearest_members {
46             my ($self, $point) = @_;
47             return $self->_call("get_nearest_members", Jubatus::Common::TList->new(
48             Jubatus::Common::TUserDef->new(Jubatus::Clustering::WeightedDatum->new(
49             ))), [$point], [Jubatus::Common::TDatum->new()]);
50             }
51              
52             1;
53              
54             1; # Jubatus::Clustering::Client;
55