Initial commit of Perl alpha client generated files

Author: harmony7

README.md

@@ -7,9 +7,16 @@ The API is organized into collections of endpoints that allow manipulation of ob
 For the most accurate and up-to-date API reference content, visit our [Developer Hub](https://developer.fastly.com/reference/api/)
 
 
+    > ⚠️ This client library (`2.0.0-alpha1`)  is an early-access release. Features may change without notice. Use at your own risk.
+
+**We strongly recommend that you do not install alpha and beta releases on live production services.** No official support is provided for such releases. Please try out the library in a test environment, see what breaks without worrying about consequences, and give us [feedback](#issues).
+
+Read about the [Fastly Product Lifecycle](https://docs.fastly.com/products/fastly-product-lifecycle).
+
+
 # VERSION
 
-Automatically generated by the [OpenAPI Generator](https://openapi-generator.tech) project:
+Automatically generated:
 
 - API version: 1.0.0
 - Package version: 2.0.0-alpha1

bin/autodoc

@@ -0,0 +1,76 @@
+#!/usr/bin/perl
+use FindBin;
+use File::Spec;
+use lib File::Spec->catdir($FindBin::Bin, '..', 'lib');
+
+use Moose::Util qw(apply_all_roles);
+use Getopt::Std;
+
+my %options=();
+getopts("wnphmHc:", \%options);
+help if $options{h};
+
+my $my_app = $options{c} || 'My::App';
+
+if ($options{c}) {
+    eval <<LOAD;
+use $my_app;
+apply_all_roles($my_app, "Fastly::Role::AutoDoc");
+LOAD
+    die $@ if $@;
+}
+else {
+    package My::App;
+    use Moose;
+    with ('Fastly::Role', 'Fastly::Role::AutoDoc');
+}
+
+package main;
+
+my $opt;
+$opt = 'wide' if $options{w};
+$opt = 'narrow' if $options{n};
+
+$opt = 'pod' if $options{p};
+$opt = 'pod' if $options{H};
+$opt = 'pod' if $options{m};
+
+$opt ||= 'wide';
+
+my $api = $my_app->new;
+
+if ($options{H}) {
+    my $pod2html = "pod2html --backlink --css http://st.pimg.net/tucs/style.css?3";
+    open STDOUT, "| $pod2html" or die "Can't fork: $!";
+    $api->autodoc($opt);
+    close STDOUT or die "Can't close: $!";
+}
+elsif ($options{m}) {
+    my $pod2markdown = "pod2markdown --html-encode-chars 1";
+    open STDOUT, "| $pod2markdown" or die "Can't fork: $!";
+    $api->autodoc($opt);
+    close STDOUT or die "Can't close: $!";
+}
+else {
+    $api->autodoc($opt);
+}
+
+exit(0);
+
+# --------------------
+sub help {
+    print <<HELP;
+Usage: autodoc [OPTION] [-c My::App::Class]
+
+  -w           wide format (default)
+  -n           narrow format
+  -p           POD format
+  -H           HTML format
+  -m           Markdown format
+  -h           print this help message
+  -c           your application class
+
+HELP
+
+    exit(0);
+}

docs/Acl.md

@@ -0,0 +1,15 @@
+# Fastly::Object::Acl
+
+## Load the model package
+```perl
+use Fastly::Object::Acl;
+```
+
+## Properties
+Name | Type | Description | Notes
+------------ | ------------- | ------------- | -------------
+**name** | **string** | Name for the ACL. Must start with an alphanumeric character and contain only alphanumeric characters, underscores, and whitespace. | [optional] 
+
+[[Back to Model list]](../README.md#documentation-for-models) [[Back to API list]](../README.md#documentation-for-api-endpoints) [[Back to README]](../README.md)
+
+