File Coverage

lib/DR/Tnt/Client/Sync.pm
Criterion Covered Total %
statement 15 24 62.5
branch 0 2 0.0
condition n/a
subroutine 5 8 62.5
pod 0 2 0.0
total 20 36 55.5


line stmt bran cond sub pod time code
1 1     1   73355 use utf8;
  1         10  
  1         6  
2 1     1   24 use strict;
  1         2  
  1         15  
3 1     1   3 use warnings;
  1         8  
  1         33  
4              
5             package DR::Tnt::Client::Sync;
6 1     1   31 use Carp;
  1         4  
  1         70  
7             $Carp::Internal{ (__PACKAGE__) }++;
8 1     1   384 use Mouse;
  1         24375  
  1         4  
9              
10 0     0 0   sub driver { 'sync' }
11              
12             sub request {
13 0     0 0   my ($self, @args) = @_;
14              
15 0           my ($status, $message, $resp);
16 0     0     my $cb = sub { ($status, $message, $resp) = @_ };
  0            
17            
18 0           my $m = $args[0];
19              
20 0 0         @args = ('select', @args[1, 2, 3], 1, 0, 'EQ') if $m eq 'get';
21              
22 0           $self->_fcb->request(@args, $cb);
23            
24 0           return $self->_response($m, $status, $message, $resp);
25             }
26              
27             with 'DR::Tnt::Client::Role::LikeSync';
28              
29             __PACKAGE__->meta->make_immutable;