File Coverage

blib/lib/Jubatus/Anomaly/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 anomaly.idl(0.4.5-347-g86989a6) with jenerator version 0.4.5-532-g61b108e/develop
2             # *** DO NOT EDIT ***
3              
4             package Jubatus::Anomaly::Client;
5              
6 1     1   4220 use strict;
  1         3  
  1         40  
7 1     1   5 use warnings;
  1         2  
  1         27  
8 1     1   5 use utf8;
  1         2  
  1         8  
9 1     1   23 use autodie;
  1         1  
  1         7  
10 1     1   5484 use AnyEvent::MPRPC;
  1         1  
  1         87  
11              
12 1     1   4 use parent 'Jubatus::Common::Client';
  1         2  
  1         7  
13             require Jubatus::Anomaly::Types;
14              
15             sub clear_row {
16             my ($self, $id) = @_;
17             return $self->_call("clear_row", Jubatus::Common::TBool->new(), [$id],
18             [Jubatus::Common::TString->new()]);
19             }
20              
21             sub add {
22             my ($self, $row) = @_;
23             return $self->_call("add", Jubatus::Common::TUserDef->new(
24             Jubatus::Anomaly::IdWithScore->new()), [$row],
25             [Jubatus::Common::TDatum->new()]);
26             }
27              
28             sub update {
29             my ($self, $id, $row) = @_;
30             return $self->_call("update", Jubatus::Common::TFloat->new(), [$id, $row],
31             [Jubatus::Common::TString->new(), Jubatus::Common::TDatum->new()]);
32             }
33              
34             sub overwrite {
35             my ($self, $id, $row) = @_;
36             return $self->_call("overwrite", Jubatus::Common::TFloat->new(), [$id, $row],
37             [Jubatus::Common::TString->new(), Jubatus::Common::TDatum->new()]);
38             }
39              
40             sub clear {
41             my ($self) = @_;
42             return $self->_call("clear", Jubatus::Common::TBool->new(), [], []);
43             }
44              
45             sub calc_score {
46             my ($self, $row) = @_;
47             return $self->_call("calc_score", Jubatus::Common::TFloat->new(), [$row],
48             [Jubatus::Common::TDatum->new()]);
49             }
50              
51             sub get_all_rows {
52             my ($self) = @_;
53             return $self->_call("get_all_rows", Jubatus::Common::TList->new(
54             Jubatus::Common::TString->new()), [], []);
55             }
56              
57             1;
58              
59             __END__