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

ATOOMIC / OpenStack-MetaAPI-0.003 / lib / OpenStack / MetaAPI / Routes.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

              
package OpenStack::MetaAPI::Routes;
use strict;
use warnings;
use Moo;
use OpenStack::MetaAPI::API ();
use YAML::XS;
use OpenStack::MetaAPI::Helpers::DataAsYaml;
has 'auth' => (is => 'ro');
has 'api'  => (is => 'ro');
our $ROUTES;
sub init_once {
    $ROUTES //= OpenStack::MetaAPI::Helpers::DataAsYaml::LoadData();
}
# cannot read from data block at compile time
#INIT { init_once() }
sub list_all {
    init_once();
    return sort keys %$ROUTES;
}
sub DESTROY {
}
our $AUTOLOAD;
sub AUTOLOAD {
    my (@args) = @_;
    my $call_for = $AUTOLOAD;
    $call_for =~ s/.*:://;
    if (my $route = $ROUTES->{$call_for}) {
        die "$call_for is a method call" unless ref $args[0] eq __PACKAGE__;
        my $self = shift @args;
        my $service = $self->service($route->{service});
        # not easy to overwrite can if Moo/XS::Accessor
        my $controller = $service->can_method($call_for);
        die "Invalid route '$call_for' for service '" . ref($service) . "'"
          unless defined $controller;
        return $controller->($service, @args);
    }
    die "Unknown function $call_for from AUTOLOAD";
}
sub service {
    my ($self, $name) = @_;
    # cache the service once
    my $k = '_service_' . $name;
    if (!$self->{$k}) {
        $self->{$k} = OpenStack::MetaAPI::API::get_service(
            name   => $name, auth => $self->auth,
            region => $ENV{'OS_REGION_NAME'},
            # backreference
            api => $self->api,
        );
    }
    return $self->{$k};
}
1;
## this data block describes the routes
#   this could be moved to a file...
=pod
=encoding UTF-8
=head1 NAME
OpenStack::MetaAPI::Routes
=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
__DATA__
---
keypairs:
  service: compute
flavors:
  service: compute
servers:
  service: compute
delete_server:
  service: compute
server_from_uid:
  service: compute
create_server:
  service: compute
networks:
  service: network
add_floating_ip_to_server:
  service: network
floatingips:
  service: network
ports:
  service: network
delete_floatingip:
  service: network
port_from_uid:
  service: network
security_groups:
  service: network
create_floating_ip:
  service: network
image_from_uid:
  service: images
image_from_name:
  service: images