File Coverage

File:lib/OpenAPI/Handler/Admin.pm
Coverage:82.4%

linestmtbrancondsubpodtimecode
1package OpenAPI;
2
3
22
22
22
22
192
77
206
use strict;
4
22
22
22
22
235
72
180
use warnings;
5
22
22
22
22
233
92
191
use vars qw($Dumper);
6
7sub POST_admin_op {
8
12
12
0
86
    my ($self, $bits) = @_;
9
12
68
    my $op = $bits->[1];
10
12
50
67
177
    if ($op ne 'select' and $op ne 'do') {
11
0
0
        die "Admin operation not supported: $op\n";
12    }
13    ### $op
14
12
50
119
    my $sql = _STRING($self->{_req_data}) or
15        die "SQL literal must be a string.\n";
16
17
12
100
50
403
    if ($op eq 'select') {
18
2
28
        return $self->select($sql, { use_hash => 1 });
19    } elsif ($op eq 'do') {
20
10
77
        $self->do($sql);
21
10
208
        return { success => 1 };
22    }
23}
24
251;
26