File Coverage

blib/lib/App/Dochazka/CLI/Commands/RestTest/Priv.pm
Criterion Covered Total %
statement 65 65 100.0
branch n/a
condition n/a
subroutine 17 17 100.0
pod n/a
total 82 82 100.0


line stmt bran cond sub pod time code
1             # *************************************************************************
2             # Copyright (c) 2014-2016, SUSE LLC
3             #
4             # All rights reserved.
5             #
6             # Redistribution and use in source and binary forms, with or without
7             # modification, are permitted provided that the following conditions are met:
8             #
9             # 1. Redistributions of source code must retain the above copyright notice,
10             # this list of conditions and the following disclaimer.
11             #
12             # 2. Redistributions in binary form must reproduce the above copyright
13             # notice, this list of conditions and the following disclaimer in the
14             # documentation and/or other materials provided with the distribution.
15             #
16             # 3. Neither the name of SUSE LLC nor the names of its contributors may be
17             # used to endorse or promote products derived from this software without
18             # specific prior written permission.
19             #
20             # THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
21             # AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
22             # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
23             # ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
24             # LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
25             # CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
26             # SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
27             # INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
28             # CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
29             # ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
30             # POSSIBILITY OF SUCH DAMAGE.
31             # *************************************************************************
32             #
33              
34 20     20   236 use 5.012;
  20         39  
35 20     20   63 use strict;
  20         22  
  20         285  
36 20     20   77 use warnings;
  20         23  
  20         9876  
37              
38             # $METHOD priv
39             sub _method_priv {
40 8     8   2881 my ( $ts, $th ) = @_;
41 8         14 my $method = $ts->[0];
42              
43 8         54 return [ $method, "priv", $th->{_REST} ];
44             }
45              
46             # $METHOD priv eid $NUM
47             sub _method_priv_eid_num {
48 8     8   2901 my ( $ts, $th ) = @_;
49 8         17 my $method = $ts->[0];
50 8         8 my $eid = $th->{_NUM};
51              
52 8         38 return [ $method, "priv/eid/$eid", $th->{_REST} ];
53             }
54              
55             # $METHOD priv eid $NUM $TIMESTAMP
56             sub _method_priv_eid_num_timestamp {
57 8     8   2988 my ( $ts, $th ) = @_;
58 8         14 my $method = $ts->[0];
59 8         11 my $eid = $th->{_NUM};
60 8         10 my $timestamp = $th->{_TIMESTAMP};
61              
62 8         41 return [ $method, "priv/eid/$eid/$timestamp", $th->{_REST} ];
63             }
64              
65             # $METHOD priv history eid $NUM
66             sub _method_priv_history_eid_num {
67 8     8   2899 my ( $ts, $th ) = @_;
68 8         13 my $method = $ts->[0];
69 8         13 my $eid = $th->{_NUM};
70              
71 8         39 return [ $method, "priv/history/eid/$eid", $th->{_REST} ];
72             }
73              
74             # $METHOD priv history eid $NUM $TSRANGE
75             sub _method_priv_history_eid_num_tsrange {
76 8     8   2882 my ( $ts, $th ) = @_;
77 8         15 my $method = $ts->[0];
78 8         11 my $eid = $th->{_NUM};
79 8         10 my $tsr = $th->{_TSRANGE};
80              
81 8         40 return [ $method, "priv/history/eid/$eid/$tsr", $th->{_REST} ];
82             }
83              
84             # $METHOD priv history nick $TERM
85             sub _method_priv_history_nick_term {
86 8     8   3011 my ( $ts, $th ) = @_;
87 8         15 my $method = $ts->[0];
88 8         9 my $nick = $th->{_TERM};
89              
90 8         38 return [ $method, "priv/history/nick/$nick", $th->{_REST} ];
91             }
92              
93             # $METHOD priv history nick $TERM $TSRANGE
94             sub _method_priv_history_nick_term_tsrange {
95 8     8   2959 my ( $ts, $th ) = @_;
96 8         14 my $method = $ts->[0];
97 8         9 my $nick = $th->{_TERM};
98 8         10 my $tsr = $th->{_TSRANGE};
99              
100 8         38 return [ $method, "priv/history/nick/$nick/$tsr", $th->{_REST} ];
101             }
102              
103             # $METHOD priv history phid $NUM
104             sub _method_priv_history_phid_num {
105 8     8   2917 my ( $ts, $th ) = @_;
106 8         13 my $method = $ts->[0];
107 8         12 my $phid = $th->{_NUM};
108              
109 8         39 return [ $method, "priv/history/phid/$phid", $th->{_REST} ];
110             }
111              
112             # $METHOD priv history self
113             sub _method_priv_history_self {
114 8     8   2909 my ( $ts, $th ) = @_;
115 8         12 my $method = $ts->[0];
116              
117 8         33 return [ $method, "priv/history/self", $th->{_REST} ];
118             }
119              
120             # $METHOD priv history self $TSRANGE
121             sub _method_priv_history_self_tsrange {
122 8     8   2986 my ( $ts, $th ) = @_;
123 8         18 my $method = $ts->[0];
124 8         10 my $tsr = $th->{_TSRANGE};
125              
126 8         41 return [ $method, "priv/history/self/$tsr", $th->{_REST} ];
127             }
128              
129             # $METHOD priv nick $TERM
130             sub _method_priv_nick_term {
131 8     8   2979 my ( $ts, $th ) = @_;
132 8         15 my $method = $ts->[0];
133 8         12 my $nick = $th->{_TERM};
134              
135 8         39 return [ $method, "priv/nick/$nick", $th->{_REST} ];
136             }
137              
138             # $METHOD priv nick $TERM $TIMESTAMP
139             sub _method_priv_nick_term_timestamp {
140 8     8   2967 my ( $ts, $th ) = @_;
141 8         14 my $method = $ts->[0];
142 8         13 my $nick = $th->{_TERM};
143 8         9 my $timestamp = $th->{_TIMESTAMP};
144              
145 8         38 return [ $method, "priv/nick/$nick/$timestamp", $th->{_REST} ];
146             }
147              
148             # $METHOD priv self
149             sub _method_priv_self {
150 8     8   2860 my ( $ts, $th ) = @_;
151 8         15 my $method = $ts->[0];
152              
153 8         36 return [ $method, "priv/self", $th->{_REST} ];
154             }
155              
156             # $METHOD priv self $TIMESTAMP
157             sub _method_priv_self_timestamp {
158 8     8   2846 my ( $ts, $th ) = @_;
159 8         16 my $method = $ts->[0];
160 8         14 my $timestamp = $th->{_TIMESTAMP};
161              
162 8         38 return [ $method, "priv/self/$timestamp", $th->{_REST} ];
163             }
164              
165             1;