File Coverage

blib/lib/MikroTik/Client/Response.pm
Criterion Covered Total %
statement 18 18 100.0
branch 5 6 83.3
condition 2 3 66.6
subroutine 3 3 100.0
pod 1 1 100.0
total 29 31 93.5


line stmt bran cond sub pod time code
1             package MikroTik::Client::Response;
2 5     5   68254 use MikroTik::Client::Mo;
  5         12  
  5         34  
3              
4 5     5   2140 use MikroTik::Client::Sentence;
  5         13  
  5         1386  
5              
6             has data => [];
7             has sentence => sub { MikroTik::Client::Sentence->new() };
8              
9             sub parse {
10 36     36 1 119 my ($self, $buf) = @_;
11              
12 36         68 my $data = [];
13              
14 36         162 my $sentence = $self->sentence;
15 36         106 while ($$buf) {
16 53         156 my $words = $sentence->fetch($buf);
17 53 100       126 last if $sentence->is_incomplete;
18              
19 50         184 my $item = {'.tag' => '', '.type' => (shift @$words)};
20 50         99 push @$data, $item;
21              
22 50 100       106 next unless @$words;
23              
24 49         112 while (my $w = shift @$words) {
25 112 50 66     1009 $item->{$1 || $2} = $3 if ($w =~ /^(?:=([^=]+)|(\.tag))=(.*)/);
26             }
27             }
28              
29 36         166 return $self->{data} = $data;
30             }
31              
32             1;
33              
34             =encoding utf8
35              
36             =head1 NAME
37              
38             MikroTik::Client::Response - Parse responses from a buffer
39              
40             =head1 SYNOPSIS
41              
42             use MikroTik::Client::Response;
43              
44             my $response = MikroTik::Client::Response->new();
45              
46             my $list = $response->parse(\$buf);
47             for my $re (@$list) {
48             my ($type, $tag) = delete @{$re}{'.type'. '.tag'};
49             say "$_ => $re->{$_}" for keys %$re;
50             }
51              
52             =head1 DESCRIPTION
53              
54             Parser for API protocol responses.
55              
56             =head1 ATTRIBUTES
57              
58             L implements the following attributes.
59              
60             =head2 data
61              
62             my $items = $response->data;
63              
64             Sentences fetched in last operation;
65              
66             =head2 sentence
67              
68             my $sentence = $response->sentence;
69             $response->sentence(MikroTik::Client::Sentence->new());
70              
71             L object used to decode sentences from network buffer.
72              
73             =head1 METHODS
74              
75             =head2 parse
76              
77             my $list = $response->parse(\$buf);
78              
79             Parses data from a buffer and returns list of hashrefs with attributes for each
80             sentence. There are some special attributes:
81              
82             =over 2
83              
84             =item '.tag'
85              
86             '.tag' => 1
87              
88             Reply tag.
89              
90             =item '.type'
91              
92             '.type' => '!re'
93              
94             Reply type.
95              
96             =back
97              
98             =head1 SEE ALSO
99              
100             L
101              
102             =cut