The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

ATOOMIC / OpenStack-MetaAPI-0.003 / lib / OpenStack / MetaAPI / API / Specs / Roles / Service.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
—
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150

              
package OpenStack::MetaAPI::API::Specs::Roles::Service;
use strict;
use warnings;
use Moo::Role;
use OpenStack::MetaAPI::Helpers::DataAsYaml;
has 'specs' => (
    is      => 'ro',
    lazy    => 1,
    default => sub {
        my ($self) = @_;
        my $specs =
          OpenStack::MetaAPI::Helpers::DataAsYaml::LoadDataFrom(ref $self)
          // {};
        # populate missing keys
        $specs->{$_} //= {} for qw/get post put delete/;
        return $specs;
    });
sub get {
    my ($self, $route) = @_;
    $route = '/' . $route unless $route =~ m{^/};
    return $self->specs()->{get}->{$route};
}
sub put {
    die "must be implemented";
}
sub post {
    die "must be implemented";
}
sub query_filters_for {
    my ($self, $method, $route, $args) = @_;
    die unless defined $method;
    die unless defined $route;
    die unless ref $args eq 'ARRAY';
    return unless @$args % 2 == 0;
    my %filters = @$args;
    $method =~ s{^/+}{};
    my $spec = $self->can($method)->($self, $route);
    return
         unless ref $spec eq 'HASH'
      && ref $spec->{request}
      && ref $spec->{request}->{query};
    my %valid_filters = map { $_ => 1 } sort keys %{$spec->{request}->{query}};
    my $use_filters = {};
    foreach my $filter (sort keys %filters) {
        next unless defined $valid_filters{$filter};
        ### ... can use type & co ...
        $use_filters->{$filter} = $filters{$filter};
    }
    return unless scalar keys %$use_filters;
    return $use_filters;
}
## hook all methods to our object
sub setup_api_methods_for_service {
    my ($self, $service) = @_;
    my $specs = $self->specs;
    foreach my $method (sort keys %$specs) {
        foreach my $route (sort keys %{$specs->{$method}}) {
            my $rule = $specs->{$method}->{$route};
            next unless ref $rule && ref $rule->{perl_api};
            my $perl_api = $rule->{perl_api};
            my $code = sub { };
            my $from_txt =
              "from spec " . (ref $self->specs) . " for route $route";
            my $method_name = $perl_api->{method}
              or die "method is missing $from_txt";
            my $type = $perl_api->{type} or die "type is missing $from_txt";
            if ($type eq 'getfromid') {
                my $token = $perl_api->{uid} or die "uid is missing $from_txt";
                $code = sub {
                    my ($self, $uid) = @_;
                    my $r = $route;
                    $r =~ s[\Q$token\E][$uid]g;
                    return $self->_get_from_id_spec($r, $uid);
                };
            } elsif ($type eq 'listable') {
                my $listable_key = $perl_api->{listable_key}
                  or die "listable_key is missing $from_txt";
                $code = sub {
                    my ($self, @args) = @_;
                    return $self->_list([$route, $listable_key], \@args);
                };
            } else {
                die "Unknown type '$type' $from_txt";
            }
            $service->setup_method($method_name, $code);
        }
    }
    return;
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
OpenStack::MetaAPI::API::Specs::Roles::Service
=head1 VERSION
version 0.003
=head1 AUTHOR
Nicolas R <atoomic@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2019 by cPanel, Inc.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut