Amazon Elastic Compute Cloud (Amazon EC2) is a web service that provides resizable compute capacity in the cloud. It is designed
+ to make web-scale computing easier for developers. EC2 allows users to rent virtual computers on which to run their computer
+ applications.
+
+
It provides you with complete control of your computing resources and lets you run on the proven Amazon computing environment. Amazon EC2
+ reduces the time required to obtain and boot new server instances to minutes, allowing you to quickly scale capacity, both up and down,
+ as your computing requirements change. You can create, launch, and terminate server instances as needed, paying by the hour for active
+ servers. EC2 provides developers the tools to build failure resilient applications and isolate thems from common failure scenarios.
+
+
Amazon EC2 presents a true virtual computing environment, allowing you to use web service interfaces to launch instances with a
+ variety of operating systems, load them with your custom application environment, manage your network access permissions, and run
+ your image using as many or few systems as you want.
ElectricCommander Integration to EC2 Implementations
+
+
This plugin uses the Amazon EC2 application programming interface (API) that lets developers choose where their applications physically run and
+ that provides access to infrastructure resources. Using this secure API, your application is automatically scaled up and down as needed. This integration
+ allows ElectricCommander to manage EC2 resources.
+
+
The plugin interacts with EC2 data by using PERL to perform the following tasks:
+
+
+
Create configurations with connection information.
+
Query for virtual machine and configuration information.
+
Perform actions on instances.
+
Make API Requests.
+
Create ElectricCommander resources.
+
+
+
The integration has two types of procedures to accomplish a specific task:
+
+
API procedures named API_xxx that directly wrap an EC2 API call
+
Higher-level procedures named EC2_xxx that combine many API calls
+
+
+
The procedure that you select determines which fields are available.
+
+
This plugin was developed and tested against Amazon Elastic Compute Cloud (Amazon EC2).
+
+
+
+
Setting Up the Plugin Configuration
+
+
Plugin configurations are sets of parameters that apply across some or all of the plugin procedures.
+ They reduce repetition of common values, create predefined sets of parameters for end users, and store
+ credentials securely. Each configuration has a unique name that is automatically entered in designated
+ parameters in the procedures.
+
+
Input
+
+
+
Go to Administration > Plugins to open the Plugin Manager.
+
Find the EC-EC2 row.
+
Click Configure to open the EC2 Configurations page.
+
Click Create Configuration.
+
To create a Chef configuration, enter the following information and click OK.
+ Remember that you may need to create additional configurations later.
+
+
+
+
+
Parameter
+
Description
+
+
+
+
+
Configuration Name
+
Provide a unique name for the connection, keeping in mind that you may need to create additional connections
+ over time. (Required)
+
+
+
Description
+
A description for this configuration. The default is EC2 integration.
+
+
+
Service URL
+
The service URL for the EC2 service. For the Amazon public EC2, this should be https://ec2.amazonaws.com. (Required)
+
+
+
Resource Pool
+
The name of the pool of resources on which the integration steps can run. The default is default (Required)
+
+
+
Workspace
+
The workspace to use for resources dynamically created by this configuration. The default is default. (Required)
+
+
+
Access Key (Credential Parameters)
+
The Access Key ID and Secret Access Key, that are required for communicating with EC2. The configuration stores these as a credential. (Required)
+
+
+
Attempt Connection?
+
If the check box is selected, the system tries a connection to check credentials. (Required)
+
+
+
Debug Level
+
The debug level for the output (Required):
+
+
0 for errors only
+
1 for normal headers and responses
+
2+ for debugging information included
+
+ The default is 1.
+
+
+
+
+
+
+
+
+
Output
+
+
The EC2 Configurations page now shows the new configuration.
+
+
+
+
Plugin Procedures
+
+
+
+
API_AllocateIP
+
+
This procedure allocates a public IP address using the Amazon EC2 API. You run this procedure to get an Elastic IP address to use with your EC2 account.
+
+
Input
+
+
+
Go to the API_AllocateIP procedure.
+
Enter the following parameters:
+
+
+
+
Parameter
+
Description
+
+
+
+
+
Configuration
+
The name of a valid existing configuration with the connection information. (Required)
+
+
+
Results Location
+
Where to put the result. If you do not enter a location, , the result is only printed.
+
+
+
+
+
+
+
+
+
+
+
+
+
Output
+
+
After the job runs, you can view the results on the Job Details page in ElectricCommander. In the API_AllocateIP step,
+ click the Log button to see the diagnostic information.
+
+
+
+
+
+
API_AssociateIP
+
+
This procedure attaches a previously allocated IP address to an instance. This procedure associates an Elastic IP address with the instance.
+ If the IP address is currently assigned to another instance, it is re-assigned to the stance.
+
+
Input
+
+
+
Go to the API_AssociateIP procedure.
+
Enter the following parameters:
+
+
+
+
Parameter
+
Description
+
+
+
+
+
Configuration
+
The name of a valid existing configuration with the connection information. (Required)
+
+
+
Instance
+
The instance to associate with the IP address. (Required)
+
+
+
Elastic IP
+
IP address to assign to the instance. (Required)
+
+
+
+
+
+
+
+
+
+
+
+
+
Output
+
+
After the job runs, you can view the results on the Job Details page in ElectricCommander. In the API_AllocateIP step,
+ click the Log button to see the diagnostic information.
+
+
+
+
+
+
API_AttachVolumes
+
+
This procedure attaches a list of volumes to a list of instances, using the order of both lists to match volumes to instances. It attaches
+ each Amazon EBS volume to a running instance and exposes it as the specified device.
+
+
Input
+
+
+
Go to the API_AttachVolumes procedure.
+
Enter the following parameters:
+
+
+
+
Parameter
+
Description
+
+
+
+
+
Configuration
+
The name of a valid existing configuration with the connection information. (Required)
+
+
+
Device
+
How the device is exposed to the instance. The default is /dev/sdh. (Required)
+
+
+
List of Instances
+
The instances to which the volumes are attached. (Required)
+
+
+
List of Volumes
+
The volumes that are attached to the instances. (Required)
+
+
+
+
+
+
+
+
+
+
+
+
+
Output
+
+
After the job runs, you can view the results on the Job Details page in ElectricCommander. In the API_AttachVolumes step,
+ click the Log button to see the diagnostic information.
+
+
+
+
+
+
API_CreateImage
+
+
This procedure converts a running instance into a new image. It creates an Amazon EBS-backed AMI from an Amazon EBS-backed instance.
+
+
Input
+
+
+
Go to the API_CreateImage procedure.
+
Enter the following parameters:
+
+
+
+
Parameter
+
Description
+
+
+
+
+
Configuration
+
The name of a valid existing configuration with the connection information. (Required)
+
+
+
Instance
+
The name of the instance to convert. (Required)
+
+
+
New Image Name
+
The name of the new image. (Required)
+
+
+
New Image Description
+
The description for the new image. (Required)
+
+
+
No Reboot
+
By default, this parameter is set to False. Amazon EC2 tries to shut down the instance cleanly before the new image is created. Amazon EC2 then restarts
+ the new instance with the new image. When the parameter is set to True, Amazon EC2 does not shut down the instance before creating the image, and the file
+ system integrity on the new image cannot be guaranteed. (Required)
+
+
+
Results Location
+
Where to put the result. If you do not enter a location, the result is only printed. (Required)
+
+
+
+
+
+
+
+
+
+
+
+
+
Output
+
+
After the job runs, you can view the results on the Job Details page in ElectricCommander. In the API_CreateImage step,
+ click the Log button to see the diagnostic information.
+
+
+
+
+
+
API_CreateKey
+
+
This procedure creates a new key pair with the specified name. The public key is stored by Amazon EC2, and the private key is
+ returned to you. If a key with the specified name already exists, Amazon EC2 returns an error.
+
+
Input
+
+
+
Go to the API_CreateKey procedure.
+
Enter the following parameters:
+
+
+
+
Parameter
+
Description
+
+
+
+
+
Configuration
+
The name of a valid existing configuration with the connection information. (Required)
+
+
+
Key name
+
A unique name for the key pair. The default is cmdr-$[jobStepId]. (Required)
+
+
+
Results Location
+
Where to put the result. If the location is not specified, the result is only printed.
+
+
+
+
+
+
+
+
+
+
+
+
+
Output
+
+
After the job runs, you can view the results on the Job Details page in ElectricCommander. In the API_CreateKey step,
+ click the Log button to see the diagnostic information.
+
+
+
+
+
+
API_CreateTags
+
+
This procedure adds or overwrites one or more tags for the specified Amazon EC2 resources.
+
+
Input
+
+
+
Go to the API_CreateTags procedure.
+
Enter the following parameters:
+
+
+
+
Parameter
+
Description
+
+
+
+
+
Configuration
+
The name of a valid existing configuration with the connection information. (Required)
+
+
+
Resources
+
A list of resource IDs, separated by spaces. (Required)
+
+
+
Tags
+
A list of key-value pairs, separated by commas, in this format: key1 => value1, key2 => value 2, ... (Required)
+
+
+
+
+
+
+
+
+
+
+
+
+
Output
+
+
After the job runs, you can view the results on the Job Details page in ElectricCommander. In the API_CreateTags step,
+ click the Log button to see the diagnostic information.
+
+
+
+
+
+
API_DeleteKey
+
+
This procedure deletes the specified key pair by removing the public key from Amazon EC2. You must own the key pair.
+
+
Input
+
+
+
Go to the API_DeleteKey procedure.
+
Enter the following parameters:
+
+
+
+
Parameter
+
Description
+
+
+
+
+
Configuration
+
The name of a valid existing configuration with the connection information. (Required)
+
+
+
Key name
+
The name of the key pair to delete. The default is $[/myJob/Amazon EC2/$[cleanup_tag]/KeyPairId]. (Required)
+
+
+
+
+
+
+
+
+
+
+
+
+
Output
+
+
After the job runs, you can view the results on the Job Details page in ElectricCommander. In the API_DeleteKey step,
+ click the Log button to see the diagnostic information.
+
+
+
+
+
+
API_DeleteVolume
+
+
This procedure deletes an EBS volume. It is usually used to delete a volume created for a specific instance.
+
+
Input
+
+
+
Go to the API_DeleteVolume procedure.
+
Enter the following parameters:
+
+
+
+
Parameter
+
Description
+
+
+
+
+
Configuration
+
The name of a valid existing configuration with the connection information. (Required)
+
+
+
Detach Only?
+
If the check box is selected, the volume is not deleted after it is detached from the instance. (Required)
+
+
+
Volume
+
Name of volume to delete.
+
+
+
+
+
+
+
+
+
+
+
+
+
Output
+
+
After the job runs, you can view the results on the Job Details page in ElectricCommander. In the API_DeleteVolume step,
+ click the Log button to see the diagnostic information.
+
+
+
+
+
+
API_DescribeInstances
+
+
This procedure adds descriptions to one or more instances.
+
+
Input
+
+
+
Go to the API_DescribeInstances procedure.
+
Enter the following parameters:
+
+
+
+
Parameter
+
Description
+
+
+
+
+
Configuration
+
The name of a valid existing configuration with the connection information. (Required)
+
+
+
Instances
+
One or more instances. You can specify one instance, a list of instances separated with semi-colons, or reservation.
+
+
+
Results Location
+
Where to put the result. If the location is not specified, the result is only printed.
+
+
+
+
+
+
+
+
+
+
+
+
+
Output
+
+
After the job runs, you can view the results on the Job Details page in ElectricCommander. In the API_DescribeInstances step,
+ click the Log button to see the diagnostic information.
+
+
+
+
+
+
API_ReleaseIP
+
+
This procedure releases a public IP address allocated to your account.
+
+
Input
+
+
+
Go to the API_ReleaseIP procedure.
+
Enter the following parameters:
+
+
+
+
Parameter
+
Description
+
+
+
+
+
Configuration
+
The name of a valid existing configuration with the connection information. (Required)
+
+
+
Elastic IP
+
The IP address to be released. (Required)
+
+
+
+
+
+
+
+
+
+
+
+
+
Output
+
+
After the job runs, you can view the results on the Job Details page in ElectricCommander. In the API_ReleaseIP step,
+ click the Log button to see the diagnostic information.
+
+
+
+
+
+
API_Run
+
+
This procedure runs the specified API method (procedure). Individual API procedures collect parameter values and call this procedure.
+ Credentials should be attached to this procedure.
+
+
Input
+
+
+
Go to the API_Run procedure.
+
Enter the following parameters:
+
+
+
+
Parameter
+
Description
+
+
+
+
+
Configuration
+
The name of a valid existing configuration with the connection information. (Required)
+
+
+
Method
+
The API method (procedure) to run. (Required)
+
+
+
+
+
+
+
+
+
+
+
+
+
Output
+
+
After the job runs, you can view the results on the Job Details page in ElectricCommander. In the API_Run step,
+ click the Log button to see the diagnostic information.
+
+
+
+
+
API_RunInstances
+
This procedure allows the user to start one or more instances from a machine image (AMI/EMI). The instances are part of one
+ reservation and can be terminated later as a group or individually.
+
+
+
+
+
Parameter
+
Description
+
+
+
+
+
Configuration
+
The name of the config which holds all the connection information. This must reference a valid existing configuration. (Required)
+
+
+
Number of Instances
+
The number of instances to start(default is '1'). (Required)
+
+
+
Group
+
The security group to use (default is 'default'). (Required)
+
+
+
Image
+
The name of the EC2 image that you would like to deploy. (Required)
+
+
+
Instance Type
+
The instance type (default is 'Small(m1.small)'). (Required)
+
+
+ Options:
+
Small(m1.small)
+
Large(m1.large)
+
Extra Large(m1.xlarge)
+
Micro(t1.micro)
+
High-Memory Extra Large(m2.xlarge)
+
High-Memory Double Extra Large(m2.2xlarge)
+
High-Memory Quadruple Extra Large(m2.4xlarge)
+
High-CPU Medium(c1.medium)
+
High-CPU Extra Large(c1.xlarge)
+
Cluster Compute Quadruple Extra Large(cc1.4xlarge)
+
Cluster GPU Quadruple Extra Large(cg1.4xlarge)
+
+
+
+
+
Key name
+
The name of the key pair to use. (Required)
+
+
+
Results Location
+
Where to put the result. If not specified, the result is only printed.
+
+
+
User Data
+
Extra user data to pass to runInstance.
+
+
+
Zone
+
The Availability Zone you want to launch the instance into. (Required)
+
+
+
Resource Pool
+
If you would like to add Commander resources for each instance created, enter the Commander pool name for the new resource.
+ If left blank no resource will be created.
+
+
+
Commander Workspace
+
If you specify a resource poolName in res_poolName, this is the workspace that will be used when creating the resource.
+
+
+
Resource port
+
If you specify a resource poolName in res_poolName, this is the port that will be used when creating the resource.
+
+
+
Subnet Id
+
The ID of the subnet to launch the instance(s) into (for use with VPCs)
+
+
+
+
+
+
+
+
+
+
+
API_StartInstance
+
+
This procedure deploys an Amazon EBS-backed instance.
+
+
Input
+
+
+
Go to the API_StartInstance procedure.
+
Enter the following parameters:
+
+
+
+
Parameter
+
Description
+
+
+
+
+
Configuration
+
The name of a valid existing configuration with the connection information. (Required)
+
+
+
Instance name
+
The name of the EC2 instance to deploy. (Required)
+
+
+
+
+
+
+
+
+
+
+
+
+
Output
+
+
After the job runs, you can view the results on the Job Details page in ElectricCommander. In the API_StartInstance step,
+ click the Log button to see the diagnostic information.
+
+
+
+
+
+
API_StopInstance
+
+
This procedure stops an Amazon EBS-backed instance. Data is not be lost when the instance stops.
.
+
+
Input
+
+
+
Go to the API_StartInstance procedure.
+
Enter the following parameters:
+
+
+
+
Parameter
+
Description
+
+
+
+
+
Configuration
+
The name of a valid existing configuration with the connection information. (Required)
+
+
+
Instance id
+
The ID of the Amazon EC2 instance to stop. (Required)
+
+
+
+
+
+
+
+
+
+
+
+
+
Output
+
+
After the job runs, you can view the results on the Job Details page in ElectricCommander. In the API_StopInstance step,
+ click the Log button to see the diagnostic information.
+
+
+
+
+
+
API_TearDownResource
+
+
This procedure terminate one instance. When the procedure terminates, any data added to the disk or any changes made to the disk will be lost.
+
+
Input
+
+
+
Go to the API_TearDownResource procedure.
+
Enter the following parameters:
+
+
+
+
Parameter
+
Description
+
+
+
+
+
Configuration
+
The name of a valid existing configuration with the connection information.
+
+
+
Resource Name
+
The name of the cloud resource to tear down. This procedure works only on a resource that was created in a dynamic environment. (Required)
+
+
+
+
+
+
+
+
+
+
+
+
+
Output
+
+
After the job runs, you can view the results on the Job Details page in ElectricCommander. In the API_TearDownResource step,
+ click the Log button to see the diagnostic information.
+
+
+
+
+
+
API_Terminate
+
+
This procedure terminate one or more instances. When the procedures terminates any data added to the disk or any changes made to the disk will be lost.
+
+
Input
+
+
+
Go to the API_Terminate procedure.
+
Enter the following parameters:
+
+
+
+
Parameter
+
Description
+
+
+
+
+
Configuration
+
The name of a valid existing configuration with the connection information. (Required)
+
+
+
Instance|Reservation Id
+
If parameter value is an instance ID, terminate the specific instance. If it is a reservation ID, terminate all the instances in the reservation. (Required)
+
+
+
List of Resources
+
List of ElectricCommander resources to delete, separated by semi-colons.
+
+
+
+
+
+
+
+
+
+
+
+
+
Output
+
+
After the job runs, you can view the results on the Job Details page in ElectricCommander. In the API_Terminate step,
+ click the Log button to see the diagnostic information.
+
+
+
+
+
+
CloudManagerGrow
+
+
This procedure allows this plugin to work with CloudManager plugin. CloudManager runs this procedure to add servers and calls the EC2 Auto Deploy procedure.
+
+
Input
+
+
+
Go to the CloudManagerGrow procedure.
+
Enter the following parameters:
+
+
+
+
Parameter
+
Description
+
+
+
+
+
Configuration
+
The name of the configuration with all the EC-EC2 connection information. (Required)
+
+
+
Security Group
+
The EC2 security group for the new instances. The default is default. (Required)
+
+
+
Image Name
+
The AMI or EMI image to use. (Required)
+
+
+
Device
+
The OS device to which the snapshot is connected when a snapshot is specified.
+
+
+
Instance Type
+
The EC2 instance type to create. The default is Small(m1.small). (Required)
+
+
Options:
+
Small(m1.small)
+
Large(m1.large)
+
Extra Large(m1.xlarge)
+
Micro(t1.micro)
+
High-Memory Extra Large(m2.xlarge)
+
High-Memory Double Extra Large(m2.2xlarge)
+
High-Memory Quadruple Extra Large(m2.4xlarge)
+
High-CPU Medium(c1.medium)
+
High-CPU Extra Large(c1.xlarge)
+
Cluster Compute Quadruple Extra Large(cc1.4xlarge)
+
Cluster GPU Quadruple Extra Large(cg1.4xlarge)
+
+
+
+
+
User Data
+
Data to pass to the instance.
+
+
+
Snapshot
+
An Amazon EC2 snapshot. If a snapshot is specified, a new volume is created from the snapshot and attached to the running instance.
+
+
+
Zone
+
The Availability Zone where the instance is launched. The default is us-east-1b. (Required)
+
+
+
Resource Pool
+
Pool name for resources. (Required)
+
+
+
Number of new instances
+
The number of new servers. (Required)
+
+
+
+
+
+
+
+
+
+
+
+
+
Output
+
+
After the job runs, you can view the results on the Job Details page in ElectricCommander. In the CloudManagerGrow step,
+ click the Log button to see the diagnostic information.
+
+
+
+
+
+
CloudManagerShrink
+
+
This procedure allows the plugin to work with CloudManager plugin. CloudManager runs this procedure to remove servers and calls the EC2 Auto Cleanup procedure.
+
+
Input
+
+
+
Go to the CloudManagerShrink procedure.
+
Enter the following parameters:
+
+
+
+
Parameter
+
Description
+
+
+
+
+
Configuration
+
The name of a valid existing configuration with the connection information. (Required)
+
+
+
List of Deployments
+
A list of deployments (previously created by the CloudManagerGrow procedure) to stop. (Required)
+
+
+
+
+
+
+
+
+
+
+
+
+
Output
+
+
After the job runs, you can view the results on the Job Details page in ElectricCommander. In the CloudManagerShrink step,
+ click the Log button to see the diagnostic information.
+
+
+
+
+
+
CloudManagerSync
+
+
This procedure allows the plugin to work with CloudManager plugin. CloudManager runs this procedure to synchronize the servers.
+
+
Input
+
+
+
Go to the CloudManagerSync procedure.
+
Enter the following parameters:
+
+
+
+
Parameter
+
Description
+
+
+
+
+
Configuration
+
The name of a valid existing configuration with the connection information. (Required)
+
+
+
List of Deployments
+
A list of deployments. (Required)
+
+
+
+
+
+
+
+
+
Output
+
+
After the job runs, you can view the results on the Job Details page in ElectricCommander. In the CloudManagerSync step,
+ click the Log button to see the diagnostic information.
+
+
+
+
+
+
EC2 Auto Cleanup
+
+
This procedure cleans up the instances created with the "EC2 Auto Deploy" procedure. It uses the API_DeleteKey, API_Terminate, and API_DeleteVolume procedures to
+ delete the key pair, storage, Elastic IP, and security settings.
+
+
Input
+
+
+
Go to the EC2 Auto Cleanup procedure.
+
Enter the following parameters:
+
+
+
+
Parameter
+
Description
+
+
+
+
+
Configuration
+
The name of a valid existing configuration with the connection information. (Required)
+
+
+
Key name
+
Name of the key pair to delete. (Required)
+
+
+
Reservation Id
+
The reservation ID. All instances in the reservation will be deleted. (Required).
+
+
+
List of Volumes
+
The names of volumes to delete. The volumne IDs are separated by semi-colons.
+
+
+
List of Resources
+
List of ElectricCommander resources to delete, separated by semi-colons.
+
+
+
+
+
+
+
+
+
+
+
Output
+
+
After the job runs, you can view the results on the Job Details page in ElectricCommander. In the EC2 Auto Cleanup step,
+ click the Log button to see the diagnostic information.
+
+
+
+
+
+
EC2 Auto Deploy
+
+
This procedure depoy new EC2 instances. It calls the API_CreateKey, API_RunInstances, ProcessVolumes, and API_AttachVolumes procedures to automatically create and
+ associate the key pair, storage, Elastic IP, and security settings.
+
+
Input
+
+
+
Go to the EC2 Auto Deploy procedure.
+
Enter the following parameters:
+
+
+
+
Parameter
+
Description
+
+
+
+
+
Cleanup tag
+
A key used to match a cleanup step to the corresponding provision step. This allows recursive, multiple, or both recursive and multiple calls calls within a procedure. The default is tag. (Required)
+
+
+
Configuration
+
The name of a valid existing configuration with the connection information. (Required)
+
+
+
Number of Instances
+
The number of instances to automatically deploy. (Required)
+
+
+
EC2 AMI
+
The name of the Amazon EC2 instance to deploy. (Required)
+
+
+
Group
+
The security group to use. The default is defaul. (Required)
+
+
+
Instance Type
+
The instance type. The default is Large(m1.large). (Required)
+
+
Options:
+
Small(m1.small)
+
Large(m1.large)
+
Extra Large(m1.xlarge)
+
Micro(t1.micro)
+
High-Memory Extra Large(m2.xlarge)
+
High-Memory Double Extra Large(m2.2xlarge)
+
High-Memory Quadruple Extra Large(m2.4xlarge)
+
High-CPU Medium(c1.medium)
+
High-CPU Extra Large(c1.xlarge)
+
Cluster Compute Quadruple Extra Large(cc1.4xlarge)
+
Cluster GPU Quadruple Extra Large(cg1.4xlarge)
+
+
+
+
+
Results Location
+
Where to put the result. If the location is not specified, the result is only printed. (Required)
+
+
+
Snapshot Id
+
The ID of the snapshot for a volume and attached to the new instances. If the snapshot ID is not specified, volumes are not attached.
+
+
+
User Data
+
Extra user data to pass to the API_runInstances procedure.
+
+
+
Volume device
+
The device name of a volume attached to an instance. Examples are /dev/sdf in Linux and UNIX or xvdf in Windows. The default is xvdf.
+
+
+
Zone
+
The zone where the instance is created. (Required)
+
+
+
Resource Pool
+
Name of the resource pool. If you enter a name, a new resource is created and put in the pool.
+
+
+
Commander Workspace
+
Name of the workspace where the resources are created.
+
+
+
Resource port
+
ID of the port to which the new resources are assigned.
+
+
+
+
+
+
+
+
+
+
+
Output
+
+
After the job runs, you can view the results on the Job Details page in ElectricCommander. In the EC2 Auto Deploy step,
+ click the Log button to see the diagnostic information.
+
+
+
+
+
EC2 Auto Pause
+
+
This procedure pauses a instance store-backed AMI. It disconnects the volumes, saves them, and terminates the instance. It works with the EC2 Auto Resume procedure,
+ which starts a new instance and re-attaches the volumes.
+
+
Input
+
+
+
Go to the EC2 Auto Pause procedure.
+
Enter the following parameters:
+
+
+
+
Parameter
+
Description
+
+
+
+
+
Configuration
+
The name of a valid existing configuration with the connection information. (Required)
+
+
+
List of Instances
+
The instances to terminate, which can be a reservation, a single instance, or a list of instances. (Required)
+
+
+
List of Volumes
+
The list of volumes to detach from instances. (Required)
+
+
+
+
+
+
+
+
+
+
+
Output
+
+
After the job runs, you can view the results on the Job Details page in ElectricCommander. In the EC2 Auto Pause step,
+ click the Log button to see the diagnostic information.
+
+
+
+
+
+
EC2 Auto Resume
+
+
This procedure restarts an instance. After the EC2 Auto Pause procedure runs, it starts a new istance and re-attaches the saved volumes.
+
+
Input
+
+
+
Go to the EC2 Auto Resume procedure.
+
Enter the following parameters:
+
+
+
+
Parameter
+
Description
+
+
+
+
+
Cleanup tag
+
A key used to match a cleanup step to the corresponding provision step. This allows recursive, multiple, or both recursive and multiple calls within
+ a procedure. The default is tag. (Required)
+
+
+
Configuration
+
The name of a valid existing configuration wtih the connection information. (Required)
+
+
+
Number of Instances
+
The number of instances to restart. (Required)
+
+
+
EC2 AMI
+
The name of the EC2 instance to deploy. (Required)
+
+
+
Group
+
The security group to use. The default is default. (Required)
+
+
+
Instance Type
+
The instance type. The default is Large(m1.large). (Required)
+
+
Options:
+
Small(m1.small)
+
Large(m1.large)
+
Extra Large(m1.xlarge)
+
Micro(t1.micro)
+
High-Memory Extra Large(m2.xlarge)
+
High-Memory Double Extra Large(m2.2xlarge)
+
High-Memory Quadruple Extra Large(m2.4xlarge)
+
High-CPU Medium(c1.medium)
+
High-CPU Extra Large(c1.xlarge)
+
Cluster Compute Quadruple Extra Large(cc1.4xlarge)
+
Cluster GPU Quadruple Extra Large(cg1.4xlarge)
+
+
+
+
+
Key name
+
The name of the key pair to use. (Required)
+
+
+
Results Location
+
Where to put the result. If the location is not specified, the result is only printed. The default is /myJob/Amazon EC2. (Required)
+
+
+
Volume device
+
The device name of a volume attached to an instance. Examples are /dev/sdf in Linux and UNIX or xvdf in Windows. The default is xvdf.
+
+
+
List of Volumes
+
The list of volumes to attach to the new instances. (Required)
+
+
+
Zone
+
The zone where the instance is created. The default is xen-cluster. (Required)
+
+
+
+
+
+
+
+
+
+
+
Output
+
+
After the job runs, you can view the results on the Job Details page in ElectricCommander. In the EC2 Auto Resume step,
+ click the Log button to see the diagnostic information.
+
+
+
+
+
+
EC2 Set Name
+
+
This procedure sets an instance name.
+
+
Input
+
+
+
Go to the EC2 Set Name procedure.
+
Enter the following parameters:
+
+
+
+
Parameter
+
Description
+
+
+
+
+
Configuration
+
The name of a valid existing configuration wtih the connection information. (Required)
+
+
+
Instance
+
The ID of the instance. (Required)
+
+
+
Name
+
The new name of the instance. (Required)
+
+
+
+
+
+
+
+
+
+
+
Output
+
+
After the job runs, you can view the results on the Job Details page in ElectricCommander. In the EC2 Set Name step,
+ click the Log button to see the diagnostic information.
+
+
+
+
+
+
Snap Attached Volume
+
+
This procedure creates a new snapshot from a volume attached to an instance. It only creates a snapshot from the first volume found.
+
+
+
+
+
Parameter
+
Description
+
+
+
+
+
Configuration
+
The name of a valid existing configuration with the connection information. (Required)
+
+
+
Instance Id
+
The ID of the running EC2 instance. (Required)
+
+
+
Results Location
+
Where to put the result. If the location is not specified, the result is only printed. (Required)
+
+
+
Volume Id
+
The ID of the volume. If you enter a list of volume IDs, separate the IDs with semi-colons. (Required)
+
+
+
+
+
+
+
+
+
+
+
Use Cases and Examples
+
+
+
+
Use Case 1: Deploy, Consume, and Clean up the Job
+
+
The most common use for this plugin is to create an instance, create a resource in ElectricCommander that is assigned to this instance, run some operations using the resoruce,
+ and then delete the resource and the instance. To do this, you must:
+
+
+
Create a plugin configuration.
+
Deploy an instance in EC2.
+
Create a key pair.
+
Run the instance.
+
Create a new volume from an snapshot.
+
Attach the volume to an instance.
+
Create a resource for this instance.
+
Run an operation using the resource.
+
Delete the key pair.
+
Delete the resource.
+
Delete the deployed instance.
+
Delete volume.
+
+
+
Create a Plugin Configuration
+
+
In ElectricCommander, go to Administration > Plugins to open the Plugin Manager. Then click Configure and enter the values
+ for the parameters in the EC2 Configuration page.
+
+
After the configuration is created, you can see it in "EC2 Configurations".
+
+
Deploy an Instance in EC2
+
+
Go to the EC2 Auto Deploy procedure, enter the values from your EC2 server in the parameter fields:
+
+
This procedure calls the API_CreateKey, API_RunInstances, API_Run and API_AttachVolumes procedures to deploy the instance.
+
+
Use the Resource
+
+
Create a new command step for the resource. In this example, get a resource from the resource pool and add an ec-perl sleep command for 30 seconds
+
+
+
+
Clean Up the Instance
+
+
After the resource is used, create a step using the EC2 Auto Cleanup procedure and enter the parameters:
+
+
+
+
This procedure calls the API_DeleteKey, API_Terminate and API_DeleteVolume procedures to clean up the instance.
+
+
View the Results and Output
+
+
After the job runs, you can see properties in the results location that you specified.
+
+
+
+
+
+
The following output appears during the Deploy procedures:
+
+
CreateKeyPair
+
+
+
+
RunInstances
+
+
+
+
ProcessVolumes
+
+
+
+
AttachVolume
+
+
+
+
The following output appears during the Cleanup procedures:
+
+
DeleteKeyPair
+
+
+
+
Terminate
+
+
+
+
DeleteVolumes
+
+
+
+
+
Release Notes
+
+
@PLUGIN_KEY@ 2.3.0
+
+
+
Fixed the issue where the API_CreateTags procedure is visible from step picker. Default value for tag was set as "Name."
+
Added properties in the 'ec_cloudprovisioning_plugin' property sheet for ElectricFlow Deploy .
+
Propogated the summary property to the upper level.
+
Add VPC support to the API_RunInstances procedures.
+
Updated the Configuraton page UI.
+
Removed Eucalytus support from the plugin.
+
+
+
@PLUGIN_KEY@ 2.2.0
+
+
+
+
+
+
@PLUGIN_KEY@ 2.2.0
+
+
+
Fixed the Secret access key in the log.
+
Changed the Configuration Management procedure.
+
Added a new parameter called Attempt Connection? in the CreateConfiguration procedure.
+
Added a step called AttemptConnection in the CreateConfiguration procedure.
+
+
+
@PLUGIN_KEY@ 2.1.2
+
+
+
Changed the procedure names in the step picker list.
+
+
+
@PLUGIN_KEY@ 2.0.7
+
+
+
Fixed the plugin configuration descriptions in the Help page.
+
Changed the Eucalytus tool description.
+
+
+
@PLUGIN_KEY@ 2.0.6
+
+
+
Fixed the problem with attached credentials.
+
+
+
@PLUGIN_KEY@ 2.0.5
+
+
+
Fixed the DescribeInstances procedure (it returned fake data when non-existent instance was specified).
+
+
+
@PLUGIN_KEY@ 2.0.4
+
+
+
Fixed the system test and API_DeleteVolume procedures.
+
+
+
@PLUGIN_KEY@ 2.0.3
+
+
+
Improved the error handling.
+
+
+
@PLUGIN_KEY@ 2.0.2
+
+
+
Removed the CloudManagerGrow and CloudManagerShrink procedures from step picker.
+
Changed the style of the Help page.
+
+
+
@PLUGIN_KEY@ 2.0.1
+
+
+
Added a link to each procedure.
+
Cleaned up the parameter panel XML file.
+
+
+
@PLUGIN_KEY@ 2.0.0
+
+
+
Applied the new Help page template.
+
Added a detalied use case.
+
Added the new XML parameter panel to all procedures.
+
Fixed image parameter label on the API_RunInstances procedure.
+
+
+
@PLUGIN_KEY@ 1.2.1
+
+
+
Updated the Help page.
+
+
+
+
+
+
+
+
diff --git a/pages/configurations.xml b/pages/configurations.xml
new file mode 100644
index 0000000..01fd1ed
--- /dev/null
+++ b/pages/configurations.xml
@@ -0,0 +1,11 @@
+
+
+ EC2 Configurations
+ /pages/@PLUGIN_NAME@/help
+
+ list
+
+
+
diff --git a/pages/editConfiguration.xml b/pages/editConfiguration.xml
new file mode 100644
index 0000000..fdf222f
--- /dev/null
+++ b/pages/editConfiguration.xml
@@ -0,0 +1,11 @@
+
+
+ Edit EC2 Configuration
+ /pages/@PLUGIN_NAME@/help
+
+ edit
+
+
+
diff --git a/pages/newConfiguration.xml b/pages/newConfiguration.xml
new file mode 100644
index 0000000..3959057
--- /dev/null
+++ b/pages/newConfiguration.xml
@@ -0,0 +1,11 @@
+
+
+ New EC2 Configuration
+ /pages/@PLUGIN_NAME@/help
+
+ create
+
+
+
diff --git a/pom.xml b/pom.xml
new file mode 100644
index 0000000..ba3896e
--- /dev/null
+++ b/pom.xml
@@ -0,0 +1,116 @@
+
+
+ 4.0.0
+
+
+ com.electriccloud
+ commander-plugins-parent
+ 1.0.2-SNAPSHOT
+ ../build/parent/pom.xml
+
+
+ EC-EC2
+ 2.3.1-SNAPSHOT
+ jar
+
+ Plugins : EC-EC2
+
+
+
+
+
+
+ org.apache.maven.plugins
+ maven-assembly-plugin
+
+
+
+ org.apache.maven.plugins
+ maven-compiler-plugin
+
+
+
+
+ org.apache.maven.plugins
+ maven-jar-plugin
+
+
+ default
+ none
+
+
+
+
+
+ org.apache.maven.plugins
+ maven-source-plugin
+
+
+
+ org.codehaus.mojo
+ exec-maven-plugin
+
+
+
+ org.codehaus.mojo
+ gwt-maven-plugin
+
+
+
+
+ com.github.goldin
+ copy-maven-plugin
+
+
+
+
+
+
+
+ ${project.groupId}
+ commander-sdk
+
+
+ ${project.groupId}
+ commander-sdk
+ tests
+ test
+
+
+ ${project.groupId}
+ ec_internal
+
+
+
+ com.google.gwt
+ gwt-servlet
+
+
+ com.google.gwt
+ gwt-user
+
+
+ com.gwtplatform
+ gwtp-all
+
+
+ com.intellij
+ annotations
+
+
+ com.googlecode.gwt-test-utils
+ gwt-test-utils
+
+
+ junit
+ junit
+
+
+ org.mockito
+ mockito-core
+
+
+
+
diff --git a/src/main/java/ecplugins/ec2/client/ConfigurationList.java b/src/main/java/ecplugins/ec2/client/ConfigurationList.java
new file mode 100644
index 0000000..37d1455
--- /dev/null
+++ b/src/main/java/ecplugins/ec2/client/ConfigurationList.java
@@ -0,0 +1,263 @@
+
+// ConfigurationList.java --
+//
+// ConfigurationList.java is part of ElectricCommander.
+//
+// Copyright (c) 2005-2012 Electric Cloud, Inc.
+// All rights reserved.
+//
+
+package ecplugins.ec2.client;
+
+import java.util.HashMap;
+import java.util.Map;
+
+import com.google.gwt.event.dom.client.ClickHandler;
+import com.google.gwt.http.client.Request;
+import com.google.gwt.http.client.RequestCallback;
+import com.google.gwt.http.client.RequestException;
+import com.google.gwt.http.client.Response;
+import com.google.gwt.user.client.Window.Location;
+import com.google.gwt.user.client.ui.Anchor;
+import com.google.gwt.user.client.ui.Label;
+import com.google.gwt.user.client.ui.Widget;
+
+import com.electriccloud.commander.client.ChainedCallback;
+import com.electriccloud.commander.client.requests.RunProcedureRequest;
+import com.electriccloud.commander.client.responses.DefaultRunProcedureResponseCallback;
+import com.electriccloud.commander.client.responses.RunProcedureResponse;
+import com.electriccloud.commander.gwt.client.ComponentBaseFactory;
+import com.electriccloud.commander.gwt.client.requests.CgiRequestProxy;
+import com.electriccloud.commander.gwt.client.ui.ListTable;
+import com.electriccloud.commander.gwt.client.ui.SimpleErrorBox;
+import com.electriccloud.commander.gwt.client.util.CommanderUrlBuilder;
+
+import ecinternal.client.DialogClickHandler;
+import ecinternal.client.ListBase;
+import ecinternal.client.Loader;
+
+/**
+ * EC-EC2 Configuration List.
+ */
+public class ConfigurationList
+ extends ListBase
+{
+
+ //~ Instance fields --------------------------------------------------------
+
+ private final EC2ConfigList m_configList;
+
+ //~ Constructors -----------------------------------------------------------
+
+ public ConfigurationList()
+ {
+
+ // noinspection HardCodedStringLiteral
+ super("ecgc", "EC2 Configurations", "All Configurations");
+ m_configList = new EC2ConfigList();
+ }
+
+ //~ Methods ----------------------------------------------------------------
+
+ @Override protected Anchor constructCreateLink()
+ {
+ CommanderUrlBuilder urlBuilder = CommanderUrlBuilder.createPageUrl(
+ ComponentBaseFactory.getPluginName(), "newConfiguration");
+
+ urlBuilder.setParameter("redirectTo",
+ CommanderUrlBuilder.createRedirectUrl()
+ .buildString());
+
+ // noinspection HardCodedStringLiteral
+ return new Anchor("Create Configuration", urlBuilder.buildString());
+ }
+
+ @Override protected void load()
+ {
+
+ // noinspection HardCodedStringLiteral
+ setStatus("Loading...");
+
+ Loader loader = new EC2ConfigListLoader(m_configList, this,
+ new ChainedCallback() {
+ @Override public void onComplete()
+ {
+ loadList();
+ }
+ });
+
+ loader.load();
+ }
+
+ private void deleteConfiguration(String configName)
+ {
+
+ // noinspection HardCodedStringLiteral
+ setStatus("Deleting...");
+ clearErrorMessages();
+
+ // Build runProcedure request
+ RunProcedureRequest request = getRequestFactory()
+ .createRunProcedureRequest();
+
+ request.setProjectName("/plugins/EC-EC2/project");
+ request.setProcedureName("DeleteConfiguration");
+ request.addActualParameter("config", configName);
+ request.setCallback(new DefaultRunProcedureResponseCallback(this) {
+ @Override public void handleResponse(
+ RunProcedureResponse response)
+ {
+
+ if (getLog().isDebugEnabled()) {
+ getLog().debug(
+ "Commander runProcedure request returned jobId: "
+ + response.getJobId());
+ }
+
+ waitForJob(response.getJobId().toString());
+ }
+ });
+
+ if (getLog().isDebugEnabled()) {
+ getLog().debug("Issuing Commander request: " + request);
+ }
+
+ doRequest(request);
+ }
+
+ private void loadList()
+ {
+ ListTable listTable = getListTable();
+
+ if (!m_configList.isEmpty()) {
+
+ // noinspection HardCodedStringLiteral
+ listTable.addHeaderRow(true, "Configuration Name", "Server");
+ }
+
+ for (String configName : m_configList.getConfigNames()) {
+
+ // Config name
+ Label configNameLabel = new Label(configName);
+
+ // Server name
+ String configServer = m_configList.getConfigServer(configName);
+ Label configServerLabel = new Label(configServer);
+
+ // "Edit" link
+ CommanderUrlBuilder urlBuilder = CommanderUrlBuilder.createPageUrl(
+ ComponentBaseFactory.getPluginName(), "editConfiguration");
+
+ urlBuilder.setParameter("configName", configName);
+ urlBuilder.setParameter("redirectTo",
+ CommanderUrlBuilder.createRedirectUrl()
+ .buildString());
+
+ @SuppressWarnings("HardCodedStringLiteral")
+ Anchor editConfigLink = new Anchor("Edit",
+ urlBuilder.buildString());
+
+ // "Delete" link
+ @SuppressWarnings("HardCodedStringLiteral")
+ Anchor deleteConfigLink = new Anchor("Delete");
+ @SuppressWarnings({"HardCodedStringLiteral", "StringConcatenation"})
+ ClickHandler dch = new DialogClickHandler(
+ new DeleteConfirmationDialog(configName,
+ "Are you sure you want to delete the EC2 configuration '"
+ + configName + "'?") {
+ @Override protected void doDelete()
+ {
+ deleteConfiguration(m_objectId);
+ }
+ });
+
+ deleteConfigLink.addClickHandler(dch);
+
+ // Add the row
+ editConfigLink.getElement()
+ .setId(getIdPrefix() + "-edit");
+ deleteConfigLink.getElement()
+ .setId(getIdPrefix() + "-delete");
+
+ Widget actions = getUIFactory().constructActionList(editConfigLink,
+ deleteConfigLink);
+
+ listTable.addRow(configNameLabel, configServerLabel, actions);
+ }
+
+ clearStatus();
+ }
+
+ @SuppressWarnings("OverlyComplexAnonymousInnerClass")
+ private void waitForJob(final String jobId)
+ {
+ CgiRequestProxy cgiRequestProxy = new CgiRequestProxy(
+ ComponentBaseFactory.getPluginName(), "ec2Monitor.cgi");
+ Map cgiParams = new HashMap();
+
+ cgiParams.put("jobId", jobId);
+
+ // Pass debug flag to CGI, which will use it to determine whether to
+ // clean up a successful job
+ if ("1".equals(getGetParameter("debug"))) {
+ cgiParams.put("debug", "1");
+ }
+
+ try {
+ cgiRequestProxy.issueGetRequest(cgiParams, new RequestCallback() {
+ @Override public void onError(
+ Request request,
+ Throwable exception)
+ {
+
+ // noinspection HardCodedStringLiteral
+ addErrorMessage("CGI request failed:: ", exception);
+ }
+
+ @Override public void onResponseReceived(
+ Request request,
+ Response response)
+ {
+ String responseString = response.getText();
+
+ if (getLog().isDebugEnabled()) {
+ getLog().debug(
+ "CGI response received: " + responseString);
+ }
+
+ if (responseString.startsWith("Success")) {
+
+ // We're done!
+ Location.reload();
+ }
+ else {
+ @SuppressWarnings(
+ {
+ "HardCodedStringLiteral",
+ "StringConcatenation"
+ }
+ )
+ SimpleErrorBox error = getUIFactory()
+ .createSimpleErrorBox(
+ "Error occurred during configuration deletion: "
+ + responseString);
+ CommanderUrlBuilder urlBuilder = CommanderUrlBuilder
+ .createUrl("jobDetails.php")
+ .setParameter("jobId", jobId);
+
+ // noinspection HardCodedStringLiteral
+ error.add(
+ new Anchor("(See job for details)",
+ urlBuilder.buildString()));
+ addErrorMessage(error);
+ }
+ }
+ });
+ }
+ catch (RequestException e) {
+
+ // noinspection HardCodedStringLiteral
+ addErrorMessage("CGI request failed:: ", e);
+ }
+ }
+}
diff --git a/src/main/java/ecplugins/ec2/client/ConfigurationManagementFactory.java b/src/main/java/ecplugins/ec2/client/ConfigurationManagementFactory.java
new file mode 100644
index 0000000..638e79c
--- /dev/null
+++ b/src/main/java/ecplugins/ec2/client/ConfigurationManagementFactory.java
@@ -0,0 +1,61 @@
+
+// ConfigurationManagementFactory.java --
+//
+// ConfigurationManagementFactory.java is part of ElectricCommander.
+//
+// Copyright (c) 2005-2011 Electric Cloud, Inc.
+// All rights reserved.
+//
+
+package ecplugins.ec2.client;
+
+import ecinternal.client.InternalComponentBaseFactory;
+import ecinternal.client.InternalFormBase;
+import ecinternal.client.PropertySheetEditor;
+
+import com.electriccloud.commander.gwt.client.BrowserContext;
+import com.electriccloud.commander.gwt.client.Component;
+import com.electriccloud.commander.gwt.client.ComponentContext;
+import org.jetbrains.annotations.NotNull;
+
+import static com.electriccloud.commander.gwt.client.util.CommanderUrlBuilder.createPageUrl;
+
+public class ConfigurationManagementFactory
+ extends InternalComponentBaseFactory
+{
+
+ //~ Methods ----------------------------------------------------------------
+
+ @NotNull
+ @Override public Component createComponent(ComponentContext jso)
+ {
+ String panel = jso.getParameter("panel");
+ Component component;
+
+ if ("create".equals(panel)) {
+ component = new CreateConfiguration();
+ }
+ else if ("edit".equals(panel)) {
+ String configName = BrowserContext.getInstance()
+ .getGetParameter("configName");
+ String propSheetPath = "/plugins/" + getPluginName()
+ + "/project/ec2_cfgs/" + configName;
+ String formXmlPath = "/plugins/" + getPluginName()
+ + "/project/ui_forms/EC2EditConfigForm";
+
+ component = new PropertySheetEditor("ecgc",
+ "Edit EC2 Configuration", configName, propSheetPath,
+ formXmlPath, getPluginName());
+
+ ((InternalFormBase) component).setDefaultRedirectToUrl(
+ createPageUrl(getPluginName(), "configurations").buildString());
+ }
+ else {
+
+ // Default panel is "list"
+ component = new ConfigurationList();
+ }
+
+ return component;
+ }
+}
diff --git a/src/main/java/ecplugins/ec2/client/CreateConfiguration.java b/src/main/java/ecplugins/ec2/client/CreateConfiguration.java
new file mode 100644
index 0000000..e1bf41a
--- /dev/null
+++ b/src/main/java/ecplugins/ec2/client/CreateConfiguration.java
@@ -0,0 +1,219 @@
+
+// CreateConfiguration.java --
+//
+// CreateConfiguration.java is part of ElectricCommander.
+//
+// Copyright (c) 2005-2012 Electric Cloud, Inc.
+// All rights reserved.
+//
+
+package ecplugins.ec2.client;
+
+import java.util.Collection;
+import java.util.HashMap;
+import java.util.Map;
+import java.util.Map.Entry;
+
+import com.google.gwt.http.client.Request;
+import com.google.gwt.http.client.RequestCallback;
+import com.google.gwt.http.client.RequestException;
+import com.google.gwt.http.client.Response;
+import com.google.gwt.user.client.ui.Anchor;
+
+import com.electriccloud.commander.client.requests.RunProcedureRequest;
+import com.electriccloud.commander.client.responses.DefaultRunProcedureResponseCallback;
+import com.electriccloud.commander.client.responses.RunProcedureResponse;
+import com.electriccloud.commander.gwt.client.requests.CgiRequestProxy;
+import com.electriccloud.commander.gwt.client.ui.CredentialEditor;
+import com.electriccloud.commander.gwt.client.ui.FormBuilder;
+import com.electriccloud.commander.gwt.client.ui.FormTable;
+import com.electriccloud.commander.gwt.client.ui.SimpleErrorBox;
+import com.electriccloud.commander.gwt.client.util.CommanderUrlBuilder;
+
+import ecinternal.client.InternalFormBase;
+import ecinternal.client.ui.CustomEditorLoader;
+
+import static com.electriccloud.commander.gwt.client.util.CommanderUrlBuilder.createPageUrl;
+import static com.electriccloud.commander.gwt.client.util.CommanderUrlBuilder.createUrl;
+
+import static ecinternal.client.InternalComponentBaseFactory.getPluginName;
+
+/**
+ * Create EC2 Configuration.
+ */
+public class CreateConfiguration
+ extends InternalFormBase
+{
+
+ //~ Constructors -----------------------------------------------------------
+
+ public CreateConfiguration()
+ {
+
+ // noinspection HardCodedStringLiteral
+ super("New EC2 Configuration", "EC2 Configurations");
+
+ CommanderUrlBuilder urlBuilder = createPageUrl(getPluginName(),
+ "configurations");
+
+ setDefaultRedirectToUrl(urlBuilder.buildString());
+ }
+
+ //~ Methods ----------------------------------------------------------------
+
+ @Override protected FormTable initializeFormTable()
+ {
+ return getUIFactory().createFormBuilder();
+ }
+
+ @Override protected void load()
+ {
+ FormBuilder fb = (FormBuilder) getFormTable();
+
+ // noinspection HardCodedStringLiteral
+ setStatus("Loading...");
+
+ CustomEditorLoader loader = new CustomEditorLoader(fb, this);
+
+ loader.setCustomEditorPath("/plugins/EC-EC2"
+ + "/project/ui_forms/EC2CreateConfigForm");
+ loader.load();
+ clearStatus();
+ }
+
+ @Override protected void submit()
+ {
+
+ // noinspection HardCodedStringLiteral
+ setStatus("Saving...");
+ clearAllErrors();
+
+ FormBuilder fb = (FormBuilder) getFormTable();
+
+ if (!fb.validate()) {
+ clearStatus();
+
+ return;
+ }
+
+ // Build runProcedure request
+ RunProcedureRequest request = getRequestFactory()
+ .createRunProcedureRequest();
+
+ request.setProjectName("/plugins/EC-EC2/project");
+ request.setProcedureName("CreateConfiguration");
+
+ Map params = fb.getValues();
+ Collection credentialParams = fb.getCredentialIds();
+
+ for (Entry stringStringEntry : params.entrySet()) {
+
+ if (credentialParams.contains(stringStringEntry.getKey())) {
+ CredentialEditor credential = fb.getCredential(
+ stringStringEntry.getKey());
+
+ request.addCredentialParameter(stringStringEntry.getKey(),
+ credential.getUsername(), credential.getPassword());
+ }
+ else {
+ request.addActualParameter(stringStringEntry.getKey(),
+ stringStringEntry.getValue());
+ }
+ }
+
+ // Launch the procedure
+ request.setCallback(new DefaultRunProcedureResponseCallback(this) {
+ @Override public void handleResponse(
+ RunProcedureResponse response)
+ {
+
+ if (getLog().isDebugEnabled()) {
+ getLog().debug(
+ "Commander runProcedure request returned jobId: "
+ + response.getJobId());
+ }
+
+ waitForJob(response.getJobId().toString());
+ }
+ });
+
+ if (getLog().isDebugEnabled()) {
+ getLog().debug("Issuing Commander request: " + request);
+ }
+
+ doRequest(request);
+ }
+
+ @SuppressWarnings("OverlyComplexAnonymousInnerClass")
+ private void waitForJob(final String jobId)
+ {
+ CgiRequestProxy cgiRequestProxy = new CgiRequestProxy(
+ getPluginName(), "ec2Monitor.cgi");
+ Map cgiParams = new HashMap();
+
+ cgiParams.put("jobId", jobId);
+
+ // Pass debug flag to CGI, which will use it to determine whether to
+ // clean up a successful job
+ if ("1".equals(getGetParameter("debug"))) {
+ cgiParams.put("debug", "1");
+ }
+
+ try {
+ cgiRequestProxy.issueGetRequest(cgiParams, new RequestCallback() {
+ @Override public void onError(
+ Request request,
+ Throwable exception)
+ {
+
+ // noinspection HardCodedStringLiteral
+ addErrorMessage("CGI request failed: ", exception);
+ }
+
+ @Override public void onResponseReceived(
+ Request request,
+ Response response)
+ {
+ String responseString = response.getText();
+
+ if (getLog().isDebugEnabled()) {
+ getLog().debug(
+ "CGI response received: " + responseString);
+ }
+
+ if (responseString.startsWith("Success")) {
+
+ // We're done!
+ cancel();
+ }
+ else {
+ @SuppressWarnings(
+ {
+ "HardCodedStringLiteral",
+ "StringConcatenation"
+ }
+ )
+ SimpleErrorBox error = getUIFactory()
+ .createSimpleErrorBox(
+ "Error occurred during configuration creation: "
+ + responseString);
+ CommanderUrlBuilder urlBuilder = createUrl(
+ "jobDetails.php").setParameter("jobId",
+ jobId);
+
+ // noinspection HardCodedStringLiteral
+ error.add(
+ new Anchor("(See job for details)",
+ urlBuilder.buildString()));
+ addErrorMessage(error);
+ }
+ }
+ });
+ }
+ catch (RequestException e) {
+
+ // noinspection HardCodedStringLiteral
+ addErrorMessage("CGI request failed: ", e);
+ }
+ }
+}
diff --git a/src/main/java/ecplugins/ec2/client/EC2ConfigList.java b/src/main/java/ecplugins/ec2/client/EC2ConfigList.java
new file mode 100644
index 0000000..ee55b34
--- /dev/null
+++ b/src/main/java/ecplugins/ec2/client/EC2ConfigList.java
@@ -0,0 +1,116 @@
+
+// EC2ConfigList.java --
+//
+// EC2ConfigList.java is part of ElectricCommander.
+//
+// Copyright (c) 2005-2010 Electric Cloud, Inc.
+// All rights reserved.
+//
+
+package ecplugins.ec2.client;
+
+import java.util.List;
+import java.util.Map;
+import java.util.Set;
+import java.util.TreeMap;
+
+import com.google.gwt.user.client.ui.ListBox;
+import com.google.gwt.xml.client.Document;
+import com.google.gwt.xml.client.Node;
+import com.google.gwt.xml.client.XMLParser;
+
+import static com.electriccloud.commander.gwt.client.util.XmlUtil.getNodeByName;
+import static com.electriccloud.commander.gwt.client.util.XmlUtil.getNodeValueByName;
+import static com.electriccloud.commander.gwt.client.util.XmlUtil.getNodesByName;
+
+public class EC2ConfigList
+{
+
+ //~ Instance fields --------------------------------------------------------
+
+ private final Map m_configInfo =
+ new TreeMap();
+
+ //~ Methods ----------------------------------------------------------------
+
+ public void addConfig(
+ String configName,
+ String configServer)
+ {
+ m_configInfo.put(configName, new EC2ConfigInfo(configServer));
+ }
+
+ public String parseResponse(String cgiResponse)
+ {
+ Document document = XMLParser.parse(cgiResponse);
+ Node responseNode = getNodeByName(document, "response");
+ String error = getNodeValueByName(responseNode, "error");
+
+ if (error != null && !error.isEmpty()) {
+ return error;
+ }
+
+ Node configListNode = getNodeByName(responseNode, "cfgs");
+ List configNodes = getNodesByName(configListNode, "cfg");
+
+ for (Node configNode : configNodes) {
+ String configName = getNodeValueByName(configNode, "name");
+ String configServer = getNodeValueByName(configNode, "service_url");
+
+ addConfig(configName, configServer);
+ }
+
+ return null;
+ }
+
+ public void populateConfigListBox(ListBox lb)
+ {
+
+ for (String configName : m_configInfo.keySet()) {
+ lb.addItem(configName);
+ }
+ }
+
+ public Set getConfigNames()
+ {
+ return m_configInfo.keySet();
+ }
+
+ public String getConfigServer(String configName)
+ {
+ return m_configInfo.get(configName).m_server;
+ }
+
+ public String getEditorDefinition(String configName)
+ {
+ return "EC-EC2";
+ }
+
+ public boolean isEmpty()
+ {
+ return m_configInfo.isEmpty();
+ }
+
+ public void setEditorDefinition(
+ String configServer,
+ String editorDefiniton)
+ {
+ }
+
+ //~ Inner Classes ----------------------------------------------------------
+
+ private class EC2ConfigInfo
+ {
+
+ //~ Instance fields ----------------------------------------------------
+
+ private String m_server;
+
+ //~ Constructors -------------------------------------------------------
+
+ public EC2ConfigInfo(String server)
+ {
+ m_server = server;
+ }
+ }
+}
diff --git a/src/main/java/ecplugins/ec2/client/EC2ConfigListLoader.java b/src/main/java/ecplugins/ec2/client/EC2ConfigListLoader.java
new file mode 100644
index 0000000..3cb5f34
--- /dev/null
+++ b/src/main/java/ecplugins/ec2/client/EC2ConfigListLoader.java
@@ -0,0 +1,252 @@
+
+// EC2ConfigListLoader.java --
+//
+// EC2ConfigListLoader.java is part of ElectricCommander.
+//
+// Copyright (c) 2005-2012 Electric Cloud, Inc.
+// All rights reserved.
+//
+
+package ecplugins.ec2.client;
+
+import java.util.HashMap;
+import java.util.Map;
+
+import org.jetbrains.annotations.NonNls;
+
+import com.google.gwt.http.client.Request;
+import com.google.gwt.http.client.RequestCallback;
+import com.google.gwt.http.client.RequestException;
+import com.google.gwt.http.client.Response;
+
+import com.electriccloud.commander.client.ChainedCallback;
+import com.electriccloud.commander.client.domain.Property;
+import com.electriccloud.commander.client.requests.GetPropertyRequest;
+import com.electriccloud.commander.client.responses.CommanderError;
+import com.electriccloud.commander.client.responses.PropertyCallback;
+import com.electriccloud.commander.client.util.StringUtil;
+import com.electriccloud.commander.gwt.client.Component;
+import com.electriccloud.commander.gwt.client.requests.CgiRequestProxy;
+
+import ecinternal.client.HasErrorPanel;
+import ecinternal.client.Loader;
+
+import static ecinternal.client.InternalComponentBaseFactory.getPluginName;
+
+public class EC2ConfigListLoader
+ extends Loader
+{
+
+ //~ Instance fields --------------------------------------------------------
+
+ private final EC2ConfigList m_configList;
+ private final CgiRequestProxy m_cgiRequestProxy;
+ private String m_editorName;
+
+ //~ Constructors -----------------------------------------------------------
+
+ public EC2ConfigListLoader(
+ EC2ConfigList configList,
+ Component component,
+ ChainedCallback callback)
+ {
+ super(component, callback);
+ m_configList = configList;
+ m_cgiRequestProxy = new CgiRequestProxy(getPluginName(), "ec2.cgi");
+ }
+
+ //~ Methods ----------------------------------------------------------------
+
+ @Override public void load()
+ {
+ Map cgiParams = new HashMap();
+
+ cgiParams.put("cmd", "getCfgList");
+ loadConfigs(cgiParams);
+ }
+
+ @SuppressWarnings("OverlyComplexAnonymousInnerClass")
+ private void loadConfigs(Map cgiParams)
+ {
+
+ try {
+ String request = m_cgiRequestProxy.issueGetRequest(cgiParams,
+ new RequestCallback() {
+ @Override public void onError(
+ @SuppressWarnings(
+ "AnonymousClassVariableHidesContainingMethodVariable"
+ ) Request request,
+ Throwable exception)
+ {
+
+ // noinspection HardCodedStringLiteral
+ ((HasErrorPanel) m_component).addErrorMessage(
+ "Error loading EC2 configuration list: ",
+ exception);
+ }
+
+ @Override public void onResponseReceived(
+ @SuppressWarnings(
+ "AnonymousClassVariableHidesContainingMethodVariable"
+ ) Request request,
+ Response response)
+ {
+ @NonNls String responseString = response.getText();
+
+ // if HTML returned we never made it to the CGI
+ Boolean isHtml = responseString.contains(
+ "DOCTYPE HTML");
+ String error;
+
+ if (isHtml) {
+ error = responseString;
+ }
+ else {
+ error = m_configList.parseResponse(
+ responseString);
+ }
+
+ if (m_component.getLog()
+ .isDebugEnabled()) {
+ m_component.getLog()
+ .debug(
+ "Recieved CGI response: "
+ + responseString
+ + " isHTML:" + isHtml
+ + " error:" + error);
+ }
+
+ if (error == null) {
+
+ if (StringUtil.isEmpty(m_editorName)
+ || m_configList.isEmpty()) {
+
+ // We're done!
+ if (m_callback != null) {
+ m_callback.onComplete();
+ }
+ }
+ else {
+ loadEditors();
+ }
+ }
+ else {
+ ((HasErrorPanel) m_component).addErrorMessage(
+ error);
+ }
+ }
+ });
+
+ if (m_component.getLog()
+ .isDebugEnabled()) {
+ m_component.getLog()
+ .debug("Issued CGI request: " + request);
+ }
+ }
+ catch (RequestException e) {
+
+ if (m_component instanceof HasErrorPanel) {
+
+ // noinspection HardCodedStringLiteral
+ ((HasErrorPanel) m_component).addErrorMessage(
+ "Error loading EC2 configuration list: ", e);
+ }
+ else {
+ m_component.getLog()
+ .error(e);
+ }
+ }
+ }
+
+ private void loadEditors()
+ {
+ GetPropertyRequest request =
+ m_requestFactory.createGetPropertyRequest();
+
+ request.setPropertyName("/plugins/EC-EC2/project/ui_forms/"
+ + m_editorName);
+ request.setExpand(false);
+ request.setCallback(new EditorLoaderCallback("ec2cfg"));
+ m_requestManager.doRequest(new ChainedCallback() {
+ @Override public void onComplete()
+ {
+
+ // We're done!
+ if (m_callback != null) {
+ m_callback.onComplete();
+ }
+ }
+ }, request);
+ }
+
+ public void setEditorName(String editorName)
+ {
+ m_editorName = editorName;
+ }
+
+ //~ Inner Classes ----------------------------------------------------------
+
+ public class EditorLoaderCallback
+ implements PropertyCallback
+ {
+
+ //~ Instance fields ----------------------------------------------------
+
+ private final String m_configPlugin;
+
+ //~ Constructors -------------------------------------------------------
+
+ public EditorLoaderCallback(@NonNls String configPlugin)
+ {
+ m_configPlugin = configPlugin;
+ }
+
+ //~ Methods ------------------------------------------------------------
+
+ @Override public void handleError(CommanderError error)
+ {
+
+ if (m_component instanceof HasErrorPanel) {
+ ((HasErrorPanel) m_component).addErrorMessage(error);
+ }
+ else {
+ m_component.getLog()
+ .error(error);
+ }
+ }
+
+ @Override public void handleResponse(Property response)
+ {
+
+ if (m_component.getLog()
+ .isDebugEnabled()) {
+ m_component.getLog()
+ .debug("Commander getProperty request returned: "
+ + response);
+ }
+
+ if (response != null) {
+ String value = response.getValue();
+
+ if (!StringUtil.isEmpty(value)) {
+ m_configList.setEditorDefinition(m_configPlugin, value);
+
+ return;
+ }
+ }
+
+ // There was no property value found in the response
+ @SuppressWarnings({"HardCodedStringLiteral", "StringConcatenation"})
+ String errorMsg = "Editor '" + m_editorName
+ + "' not found for EC2 plugin '" + m_configPlugin + "'";
+
+ if (m_component instanceof HasErrorPanel) {
+ ((HasErrorPanel) m_component).addErrorMessage(errorMsg);
+ }
+ else {
+ m_component.getLog()
+ .error(errorMsg);
+ }
+ }
+ }
+}
diff --git a/src/main/resources/META-INF/plugin.xml b/src/main/resources/META-INF/plugin.xml
new file mode 100644
index 0000000..6153594
--- /dev/null
+++ b/src/main/resources/META-INF/plugin.xml
@@ -0,0 +1,18 @@
+
+
+ @PLUGIN_KEY@
+ @PLUGIN_VERSION@
+
+ Integration for Amazon EC2/Eucalyptus
+ configurations.xml
+ @PLUGIN_KEY@_help.xml
+ Electric Cloud
+ http://www.electric-cloud.com/support
+ Resource Management
+
+
+
+ war/ecplugins.ec2.ConfigurationManagement/ecplugins.ec2.ConfigurationManagement.nocache.js
+
+
+
diff --git a/src/main/resources/ecplugins/ec2/ConfigurationManagement.gwt.xml b/src/main/resources/ecplugins/ec2/ConfigurationManagement.gwt.xml
new file mode 100644
index 0000000..fbbc4d1
--- /dev/null
+++ b/src/main/resources/ecplugins/ec2/ConfigurationManagement.gwt.xml
@@ -0,0 +1,15 @@
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/API_Run.pl b/src/main/resources/project/API_Run.pl
new file mode 100644
index 0000000..1d16f15
--- /dev/null
+++ b/src/main/resources/project/API_Run.pl
@@ -0,0 +1,2228 @@
+## Perl Code to implement EC2 API Calls
+package main;
+
+$::gDebug = 1;
+$| = 1;
+
+use ElectricCommander;
+use ElectricCommander::PropDB;
+use ElectricCommander::PropMod qw(/myProject/lib);
+use Data::Dumper;
+use MIME::Base64 qw(encode_base64);
+use XML::Simple;
+
+use Amazon::EC2::Model::CreateTagsRequest;
+use Amazon::EC2::Model::Tag;
+use Amazon::EC2::Model::DescribeVolumesRequest;
+use Amazon::EC2::Model::AllocateAddressRequest;
+use Amazon::EC2::Model::ReleaseAddressRequest;
+use Amazon::EC2::Model::AttachVolumeRequest;
+use Amazon::EC2::Model::CreateKeyPairRequest;
+use Amazon::EC2::Model::DeleteKeyPairRequest;
+use Amazon::EC2::Model::CreateVolumeRequest;
+use Amazon::EC2::Model::CreateSnapshotRequest;
+use Amazon::EC2::Model::DeleteVolumeRequest;
+use Amazon::EC2::Model::DetachVolumeRequest;
+use Amazon::EC2::Model::StartInstancesRequest;
+use Amazon::EC2::Model::StartInstancesResponse;
+use Amazon::EC2::Model::StartInstancesResult;
+use Amazon::EC2::Model::StopInstancesRequest;
+use Amazon::EC2::Model::StopInstancesResponse;
+use Amazon::EC2::Model::StopInstancesResult;
+use Amazon::EC2::Model::TerminateInstancesRequest;
+use Amazon::EC2::Model::DescribeInstancesRequest;
+use Amazon::EC2::Model::DeregisterImageRequest;
+use Amazon::EC2::Model::CreateImageRequest;
+use Amazon::EC2::Model::RunInstancesRequest;
+use Amazon::EC2::Model::Placement;
+
+
+
+$::gMockData = false;
+$::gMockRegistry = q{};
+
+main();
+exit 0;
+
+################################################################################
+
+###########################
+##
+## Pull credential values from a credential
+##
+###########################
+sub getCredential($) {
+ my ($credname) = @_;
+
+ my $jobStepId = $ENV{"COMMANDER_JOBSTEPID"};
+ my $xPath = $::CmdrAPI->getFullCredential("$credname", { jobStepId => $jobStepId });
+ if (!defined $xPath) {
+ my $msg = $::CmdrAPI->getError();
+ mesg(0, "Error: retrieving credential $msg \n");
+ exit(1);
+ }
+
+ # Get user and password from Credential
+ my $user = $xPath->findvalue('//credential/userName');
+ my $pass = $xPath->findvalue('//credential/password');
+ return ($user, $pass);
+}
+
+#############################################################################
+## extract_keyfile
+##
+## extract keyfile for commands that retun key contents to STDOUT
+##
+## args:
+## filename - the name of the file to put the key text in
+## pem - contents of key file
+#############################################################################
+sub extract_keyfile($$) {
+ my ($filename, $pem) = @_;
+
+ open FILE, ">", $filename or die $!;
+ print FILE $pem . "\n";
+ close FILE;
+ chmod(0700, $filename);
+}
+
+####
+# generate random digit
+# len - number of digits
+####
+sub getRandKey($) {
+ my ($max) = @_;
+ my $r = int(rand($max));
+ return $r;
+}
+
+###########################
+##
+## Print a message if it meets debugging level
+##
+###########################
+sub mesg {
+ my ($level, $msg) = @_;
+ if ($level <= $::gDebug) {
+ print $msg;
+ }
+}
+
+###########################
+##
+## extract a required
+## parameter from options
+## die if not found
+##
+###########################
+sub getRequiredParam {
+ my ($param, $opts) = @_;
+ if ("$param" eq "") {
+ mesg(0, "Blank parameter name not allowed in getRequiredParam\n");
+ exit 1;
+ }
+ my $value = $opts->{$param};
+ if ("$value" eq "") {
+ mesg(0, "Required parameter $param not found.\n");
+ exit 1;
+ }
+ return $value;
+}
+
+###########################
+##
+## extract an optional
+## parameter from options
+##
+##
+###########################
+sub getOptionalParam {
+ my ($param, $opts) = @_;
+ my $value = "";
+ eval { $value = $opts->{$param}; };
+ return $value;
+}
+
+###########################
+##
+## Derive the location to store
+## the output properties.
+##
+###########################
+sub getPropResultLocationForPool {
+ my ($opts, $poolName) = @_;
+ my $propResult = getOptionalParam("propResult", $opts);
+ if (!$propResult) {
+ $propResult = "/myParent/parent";
+ }
+
+ #Decided not to scope by resource pool name for now
+ #to ensure backward compatibility.
+ #if ($poolName) {
+ # $propResult .= "/" . $poolName;
+ #}
+ return $propResult;
+}
+
+###########################
+##
+## Throw EC2 error
+##
+##
+###########################
+sub throwEC2Error {
+ my ($ex) = @_;
+
+ if (defined($ex)) {
+ require Amazon::EC2::Exception;
+ if (ref $ex eq "Amazon::EC2::Exception") {
+ mesg(1, "Caught Exception: " . $ex->getMessage() . "\n");
+ mesg(1, "Response Status Code: " . $ex->getStatusCode() . "\n");
+ mesg(1, "Error Code: " . $ex->getErrorCode() . "\n");
+ mesg(1, "Error Type: " . $ex->getErrorType() . "\n");
+ mesg(1, "Request ID: " . $ex->getRequestId() . "\n");
+ mesg(1, "XML: " . $ex->getXML() . "\n");
+ }
+ else {
+ mesg(0, "An error occurred:\n");
+ mesg(0, "$ex\n");
+ }
+ exit 1;
+ }
+}
+
+###########################
+##
+## main program
+##
+###########################
+sub main {
+ my $opts = {method => teardownresource};
+
+ $::CmdrAPI = new ElectricCommander();
+ $::CmdrAPI->abortOnError(0);
+
+ ## load option list from procedure parameters
+ populateActualParameters($::CmdrAPI, $opts);
+
+
+ my $method = $opts->{method} . '';
+ if ($method =~ m/teardownresource/is) {
+ my $ok = tearDownResource($opts);
+ # just a trap
+ if ($ok) {
+ exit 0;
+ }
+ exit 1;
+ }
+
+
+
+ # check for required params
+ if (!defined $opts->{config} || "$opts->{config}" eq "") {
+ mesg(0, "config parameter must exist and be non-blank\n");
+ exit 1;
+ }
+
+ # check to see if a config with this name exists
+ my $proj = "@PLUGIN_NAME@";
+ if (substr($proj, 0, 1) eq "@") {
+ $proj = "EC-EC2-1.0.0.0";
+ }
+
+ # set property table to this cfg list
+ my $CfgDB = ElectricCommander::PropDB->new(
+ $::CmdrAPI, "/projects/$proj/ec2_cfgs"
+ );
+
+ # read values from this config
+
+ $opts->{service_url} = $CfgDB->getCol("$opts->{config}", "service_url");
+ $opts->{debug} = $CfgDB->getCol("$opts->{config}", "debug");
+
+ $opts->{resourceName} = $CfgDB->getCol("$opts->{config}", 'resource_pool');
+ $opts->{workspaceName} = $CfgDB->getCol("$opts->{config}", 'workspace');
+
+
+ # if mockdata is non blank, hard coded mock data will be
+ # used and no actual calls to EC2 will be made
+ if ($CfgDB->getCol("$opts->{config}", "mockdata") ne "") {
+ print "MOCK DATA MODE=true\n";
+ $::gMockData = true;
+
+ # this property sheet will be used to keep track of
+ # things created so getters can find them
+ $::gMockRegistry = "/myProject/MOCK_REGISTRY/$opts->{config}";
+ }
+
+ if ("$opts->{debug}" ne "") {
+ $::gDebug = $opts->{debug};
+ }
+
+ # generic propdb for writting results
+ $opts->{pdb} = ElectricCommander::PropDB->new($::CmdrAPI, "");
+ $opts->{ec_instance} = $::CmdrAPI;
+ if ("$opts->{service_url}" eq "") {
+ mesg(0, "Error: Configuration $opts->{config} does not specify a service_url\n");
+ exit 1;
+ }
+
+ # credential uses the same name as the configuration
+ ($opts->{AWS_ACCESS_KEY_ID}, $opts->{AWS_SECRET_ACCESS_KEY}) = getCredential("$opts->{config}");
+
+ if ("$opts->{AWS_ACCESS_KEY_ID}" eq "") {
+ mesg(0, "Access key not found in credential $opts->{config}\n");
+ exit 1;
+ }
+ mesg(5, "Found credential $opts->{AWS_ACCESS_KEY_ID}\n");
+
+ my $config = {
+ ServiceURL => "$opts->{service_url}",
+ UserAgent => "Amazon EC2 Perl Library",
+ SignatureVersion => 2,
+ SignatureMethod => "HmacSHA256",
+ ProxyHost => undef,
+ ProxyPort => -1,
+ MaxErrorRetry => 3
+ };
+ require Amazon::EC2::Client;
+ my $service = Amazon::EC2::Client->new($opts->{AWS_ACCESS_KEY_ID}, $opts->{AWS_SECRET_ACCESS_KEY}, $config);
+
+ foreach my $op (keys %{$opts}) {
+ if($op eq 'AWS_SECRET_ACCESS_KEY')
+ { next;
+ }
+ mesg(5, "\$opts\-\>\{$op\}=$opts->{$op}\n");
+ }
+
+ # ---------------------------------------------------------------
+ # Dispatch operation
+ # ---------------------------------------------------------------
+ if ($::gMockData ne false) {
+ $opts->{method} = "MOCK_" . $opts->{method};
+ }
+ $opts->{method}($opts, $service);
+
+ exit 0;
+}
+
+sub tearDownResource {
+ my ($opts) = @_;
+ my $ec = ElectricCommander->new();
+
+ mesg(0, "Starting tearDownResource\n");
+
+ $::gDebug = 0;
+
+ my $resName = $opts->{resName} . '';
+ if (!$resName) {
+ mesg(0, "Missing resource name parameter\n");
+ }
+ my $instances = getInstancesForTermination($ec, $resName);
+ if (!@$instances) {
+ mesg(0, "No resource or resource pool with name '$resName' found for termination. Nothing to do in this case.\n");
+ #ECPRESOURCEAMAZON-148:
+ #This is considered an acceptable condition when this procedure is called for a cleanup
+ #after an error is encountered during provisioning. We could have failed before the
+ #resouce itself was created in which case there would be no resource in EC to terminate.
+ exit 0;
+ }
+
+ my $proj = '@PLUGIN_NAME@';
+
+ if (substr($proj, 0, 1) eq '@') {
+ $proj = "EC-EC2-1.0.0.0";
+ }
+
+ my $config = '';
+ for my $inst (@$instances) {
+ my $init = 0;
+ # higher priority. If config provided into procedure - it will be used
+ if ($opts->{config}) {
+ $config = $opts->{config};
+ }
+ elsif ($inst->{config}){
+ $config = $inst->{config};
+ }
+ else {
+ mesg(0, "No config presented. Can't tear down $inst->{instance_id}");
+ next;
+ }
+ # let's try to get config data.
+
+
+ # set property table to this cfg list
+ my $CfgDB = ElectricCommander::PropDB->new($ec, "/projects/$proj/ec2_cfgs");
+ eval {
+ $opts->{service_url} = $CfgDB->getCol("$config", "service_url");
+ $opts->{debug} = $CfgDB->getCol("$config", "debug");
+ ($opts->{AWS_ACCESS_KEY_ID}, $opts->{AWS_SECRET_ACCESS_KEY}) = getCredential("$config");
+ $opts->{resourceName} = $CfgDB->getCol("$config", 'resource_pool');
+ $opts->{workspaceName} = $CfgDB->getCol("$config", 'workspace');
+ 1;
+ } or do {
+ mesg(0, "Can't get information from config provided. Can't terminate $inst->{instance_id}\n");
+ next;
+ };
+
+ $::gDebug = $opts->{debug};
+ $opts->{ec_instance} = $ec;
+ $opts->{pdb} = ElectricCommander::PropDB->new($ec, "");
+ my $config_hash = {
+ ServiceURL => "$opts->{service_url}",
+ UserAgent => "Amazon EC2 Perl Library",
+ SignatureVersion => 2,
+ SignatureMethod => "HmacSHA256",
+ ProxyHost => undef,
+ ProxyPort => -1,
+ MaxErrorRetry => 3
+ };
+ require Amazon::EC2::Client;
+ my $service = Amazon::EC2::Client->new($opts->{AWS_ACCESS_KEY_ID}, $opts->{AWS_SECRET_ACCESS_KEY}, $config_hash);
+ $opts->{resName} = $inst->{resource_name};
+ API_TearDownResource($opts, $service);
+ }
+ exit 0;
+}
+########################################
+## individual api methods
+########################################
+sub API_AllocateIP {
+ my ($opts, $service) = @_;
+
+ my $ip = "";
+ my $propResult = getOptionalParam("propResult", $opts);
+
+ mesg(1, "--Allocating Amazon EC2 Address -------\n");
+
+ my $request = new Amazon::EC2::Model::AllocateAddressRequest();
+ eval {
+ my $response = $service->allocateAddress($request);
+ if ($response->isSetAllocateAddressResult()) {
+ my $result = $response->getAllocateAddressResult();
+ if ($result->isSetPublicIp()) {
+ $ip = $result->getPublicIp();
+ }
+ }
+ };
+ if ($@) { throwEC2Error($@); }
+ if ("$ip" eq "") {
+ mesg(1, "Error allocating IP address.\n");
+ exit 1;
+ }
+
+ mesg(1, "Address $ip allocated\n");
+
+ ## store new key in properties
+ if ("$propResult" ne "") {
+ $opts->{pdb}->setProp("$propResult/ip", $ip);
+ }
+ exit 0;
+}
+
+sub MOCK_API_AllocateIP {
+ my ($opts, $service) = @_;
+
+ my $ip = "";
+ my $propResult = getOptionalParam("propResult", $opts);
+
+ mesg(1, "--Allocating Amazon EC2 Address -------\n");
+
+ my $r1 = getRandKey(255);
+ my $r2 = getRandKey(255);
+ $ip = "192.168.$r1.$2";
+ $opts->{pdb}->setProp("$::gMockRegistry/ElasticIPS", $ip);
+
+ mesg(1, "Address $ip allocated\n");
+
+ ## store new key in properties
+ if ("$propResult" ne "") {
+ $opts->{pdb}->setProp("$propResult/ip", $ip);
+ }
+
+ exit 0;
+}
+
+sub API_AssociateIP {
+ my ($opts, $service) = @_;
+
+ mesg(1, "--Associate Amazon EC2 Address -------\n");
+ my $ip = getRequiredParam("ip", $opts);
+ my $instance = getRequiredParam("instance", $opts);
+
+ require Amazon::EC2::Model::AssociateAddressRequest;
+
+ my $request = new Amazon::EC2::Model::AssociateAddressRequest({ "InstanceId" => "$instance", "PublicIp" => "$ip" });
+
+ # associate address
+ eval {
+ my $response = $service->associateAddress($request);
+ mesg(3, $response->toXML() . "\n");
+ };
+ if ($@) { throwEC2Error($@); }
+ mesg(1, "Address $ip associated with instance $instance\n");
+}
+
+sub MOCK_API_AssociateIP {
+ my ($opts, $service) = @_;
+
+ mesg(1, "--Associate Amazon EC2 Address -------\n");
+ my $ip = getRequiredParam("ip", $opts);
+ my $instance = getRequiredParam("instance", $opts);
+
+ $opts->{pdb}->setProp("$::gMockRegistry/IPAssociations/$ip", $instance);
+
+ mesg(1, "Address $ip associated with instance $instance\n");
+}
+
+sub API_ReleaseIP {
+ my ($opts, $service) = @_;
+
+ mesg(1, "--Releasing Amazon EC2 Address -------\n");
+
+ # see if an IP was passed in
+ my $ip = getRequiredParam("ip", $opts);
+
+ my $request = new Amazon::EC2::Model::ReleaseAddressRequest({ "PublicIp" => "$ip" });
+
+ eval { my $response = $service->releaseAddress($request); };
+ if ($@) { throwEC2Error($@); }
+
+ mesg(1, "Address $ip released\n");
+
+ exit 0;
+}
+
+sub MOCK_API_ReleaseIP {
+ my ($opts, $service) = @_;
+
+ mesg(1, "--Releasing Amazon EC2 Address -------\n");
+
+ # see if an IP was passed in
+ my $ip = getRequiredParam("ip", $opts);
+
+ # if associated, throw error
+ my $instance = $opts->{pdb}->setProp("$::gMockRegistry/IPAssociations/$ip");
+ if ($instance ne "") {
+ mesg(1, "Caught Exception: " . "IP address in use\n");
+ }
+ else {
+
+ # else remove
+ $opts->{pdb}->deleteProp("$::gMockRegistry/ElasticIPS/$ip");
+ }
+
+ mesg(1, "Address $ip released\n");
+
+ exit 0;
+}
+
+sub API_AttachVolume {
+ my ($opts, $service) = @_;
+
+ mesg(1, "-- Attach Volumes -------\n");
+
+ my $instlist1 = getRequiredParam("instances", $opts);
+ my $vollist1 = getRequiredParam("volumes", $opts);
+ my $device = getRequiredParam("device", $opts);
+
+ my $attachCount = 0;
+
+ my @instlist = split(/;/, $instlist1);
+ my @vollist = split(/;/, $vollist1);
+
+ if (scalar(@vollist) == 0) {
+ mesg(1, "--No volumes to attach\n");
+ exit 0;
+ }
+
+ # pair instances with volumes in order
+ my %vol_id_match;
+ my $i = 0;
+ foreach (@instlist) {
+ my $instance_id = $_;
+ $vol_id_match{$instance_id} = @vollist[$i];
+ $i++;
+ }
+
+ my $done = 0;
+ my %doneList;
+ while (!$done) {
+ $done = 1;
+ foreach (@instlist) {
+ my $instance_id = $_;
+ my $vol_id = $vol_id_match{$instance_id};
+ my $status = "";
+
+ if ("$vol_id" eq "") { next; }
+
+ if (!$doneList{$vol_id}) {
+
+ mesg(1, "Attaching $vol_id to instance $instance_id\n");
+
+ # check to make sure volume is in available state
+ eval {
+ my $request = new Amazon::EC2::Model::DescribeVolumesRequest({ "VolumeId" => "$vol_id" });
+ my $response = $service->describeVolumes($request);
+ if ($response->isSetDescribeVolumesResult()) {
+ my $result = $response->getDescribeVolumesResult();
+ my $volumes = $result->getVolume();
+
+ # should only be one row in result
+ foreach (@$volumes) {
+ my $vol = $_;
+ $status = $vol->getStatus();
+ }
+ }
+ };
+ if ($@) { throwEC2Error($@); }
+
+ mesg(1, "Volume $vol_id is in state $status\n");
+ if ("$status" eq "available") {
+
+ ## associate volume to instance
+ mesg(1, "Trying to attach $vol_id to $instance_id\n");
+ eval {
+ my $request = new Amazon::EC2::Model::AttachVolumeRequest(
+ {
+ "VolumeId" => "$vol_id",
+ "InstanceId" => "$instance_id",
+ "Device" => "$device"
+ }
+ );
+ my $response = $service->attachVolume($request);
+ };
+ if ($@) { throwEC2Error($@); }
+
+ mesg(1, "Volume $vol_id attached to instance $instance_id\n");
+ $doneList{$vol_id} = 1;
+ $attachCount++;
+ }
+ else {
+ # at least one more to process
+ # If we reset $done outside of this block,
+ # the function will try to add the volume twice.
+ $done = 0;
+ }
+ }
+ else {
+ mesg(1, "Volume $vol_id already attached to $instance_id.\n");
+ }
+ }
+ sleep(10);
+ }
+
+ mesg(1, "$attachCount volumes were attached to instances.\n");
+ exit 0;
+}
+
+sub MOCK_API_AttachVolume {
+ my ($opts, $service) = @_;
+
+ mesg(1, "-- Attach Volumes -------\n");
+
+ my $instlist1 = getRequiredParam("instances", $opts);
+ my $vollist1 = getRequiredParam("volumes", $opts);
+ my $device = getRequiredParam("device", $opts);
+
+ my $attachCount = 0;
+
+ my @instlist = split(/;/, $instlist1);
+ my @vollist = split(/;/, $vollist1);
+
+ if (scalar(@vollist) == 0) {
+ mesg(1, "--No volumes to attach\n");
+ exit 0;
+ }
+
+ # pair instances with volumes in order
+ my %vol_id_match;
+ my $i = 0;
+ foreach (@instlist) {
+ my $instance_id = $_;
+ $vol_id_match{$instance_id} = @vollist[$i];
+ $i++;
+ }
+
+ my $done = 0;
+ my %doneList;
+ while (!$done) {
+ $done = 1;
+ foreach (@instlist) {
+ my $instance_id = $_;
+ my $vol_id = $vol_id_match{$instance_id};
+ my $status = "";
+
+ if ("$vol_id" eq "") { next; }
+
+ if (!$doneList{$vol_id}) {
+
+ # at least one more to process
+ $done = 0;
+
+ mesg(1, "Attaching $vol_id to instance $instance_id\n");
+
+ $status = "available";
+
+ mesg(1, "Volume $vol_id is in state $status\n");
+ if ("$status" eq "available") {
+ mesg(1, "Attaching $vol_id to instance $instance_id\n");
+ $opts->{pdb}->setProp("$::gMockRegistry/Instances/$instance_id/volume", "$vol_id");
+ $opts->{pdb}->setProp("$::gMockRegistry/Instances/$instance_id/device", "$device");
+ $opts->{pdb}->setProp("$::gMockRegistry/Volumes/$vol_id/instance", $instance_id);
+
+ mesg(1, "Volume $vol_id attached to instance $instance_id\n");
+ $doneList{$vol_id} = 1;
+ $attachCount++;
+ }
+ }
+ else {
+ mesg(1, "Volume $vol_id already attached to $instance_id.\n");
+ }
+ }
+ sleep(10);
+ }
+
+ mesg(1, "$attachCount volumes were attached to instances.\n");
+ exit 0;
+}
+
+sub API_CreateKeyPair {
+ my ($opts, $service) = @_;
+
+ mesg(1, "--Creating Amazon EC2 KeyPair -------\n");
+
+ my $newkeyname = getRequiredParam("keyname", $opts);
+ my $propResult = getOptionalParam("propResult", $opts);
+ my $pem;
+
+ mesg(1, "Create request...\n");
+ my $request = new Amazon::EC2::Model::CreateKeyPairRequest({ "KeyName" => "$newkeyname" });
+
+ eval {
+
+ #mesg(5, Data::Dumper->Dumper([$request]));
+ my $response = $service->createKeyPair($request);
+ if ($response->isSetCreateKeyPairResult()) {
+ my $result = $response->getCreateKeyPairResult();
+ if ($result->isSetKeyPair()) {
+ my $pair = $result->getKeyPair();
+ $pem = $pair->getKeyMaterial();
+ }
+ }
+ };
+ if ($@) { throwEC2Error($@); }
+
+ ## store new key in properties
+ if ("$propResult" ne "") {
+ $opts->{pdb}->setProp($propResult . "/KeyPairId", $newkeyname);
+ }
+
+ ## extract private key from results
+ extract_keyfile($newkeyname . ".pem", $pem);
+ mesg(1, "KeyPair $newkeyname created\n");
+ exit 0;
+}
+
+sub MOCK_API_CreateKeyPair {
+ my ($opts, $service) = @_;
+
+ mesg(1, "--Creating Amazon EC2 KeyPair -------\n");
+
+ my $newkeyname = getRequiredParam("keyname", $opts);
+ my $propResult = getOptionalParam("propResult", $opts);
+ my $pem;
+
+ $pem = "lalalala";
+ $opts->{pdb}->setProp($::gMockRegistry . "/Keypairs/$newkeyname", "created");
+
+ ## store new key in properties
+ if ("$propResult" ne "") {
+ $opts->{pdb}->setProp("$propResult/KeyPairId", $newkeyname);
+ }
+
+ ## extract private key from results
+ extract_keyfile($newkeyname . ".pem", $pem);
+ mesg(1, "KeyPair $newkeyname created\n");
+ exit 0;
+}
+
+sub API_DeleteKeyPair {
+ my ($opts, $service) = @_;
+
+ mesg(1, "--Deleting Amazon EC2 KeyPair -------\n");
+
+ # see if a key was created for this tag
+ my $keynames = getRequiredParam("keyname", $opts);
+ my @keylist = split(/;/, "$keynames");
+ foreach my $keyname (@keylist) {
+ my $request = new Amazon::EC2::Model::DeleteKeyPairRequest({ "KeyName" => "$keyname" });
+
+ eval { my $response = $service->deleteKeyPair($request); };
+ if ($@) { throwEC2Error($@); }
+ mesg(1, "KeyPair $keyname deleted\n");
+ }
+ exit 0;
+}
+
+sub MOCK_API_DeleteKeyPair {
+ my ($opts, $service) = @_;
+
+ mesg(1, "--Deleting Amazon EC2 KeyPair -------\n");
+
+ # see if a key was created for this tag
+ my $keynames = getRequiredParam("keyname", $opts);
+ my @keylist = split(/;/, "$keynames");
+ foreach my $keyname (@keylist) {
+ $opts->{pdb}->deleteProp("$::gMockData/Keypairs/$keyname");
+ mesg(1, "KeyPair $keyname deleted\n");
+ }
+ exit 0;
+}
+
+sub CreateVolume {
+ my ($opts, $service) = @_;
+
+ mesg(1, "-- Create Volume -------\n");
+ my $snap_id = $opts->{snapshot};
+ my $propResult = getRequiredParam("propResult", $opts);
+ if ("$snap_id" eq "") {
+ mesg(0, "No snapshots to process.\n");
+ $opts->{pdb}->setProp("$propResult/VolumeList", "");
+ exit 0;
+ }
+
+ my $propResult = getRequiredParam("propResult", $opts);
+ $opts->{pdb}->setProp("$propResult/Snapshot", "$snap_id");
+
+ ## now make a new volume out of the snapshot
+
+ # get list of instances
+ my $instListProp = $opts->{pdb}->getProp("$propResult/InstanceList");
+ my @instList = split(/;/, $instListProp);
+
+ my %volsCreated;
+ my $vollist = "";
+ foreach (@instList) {
+ my $id = $_;
+ my $newvol = "";
+ eval {
+ my $actualZone = $opts->{pdb}->getProp("$propResult/Instance-$id/Zone");
+ mesg(1, "Creating volume from snapshot in zone $actualZone\n");
+
+ my $request = new Amazon::EC2::Model::CreateVolumeRequest(
+ {
+ "SnapshotId" => "$snap_id",
+ "AvailabilityZone" => "$actualZone"
+ }
+ );
+ my $response = $service->createVolume($request);
+
+ # get volume id
+ if ($response->isSetCreateVolumeResult()) {
+ $result = $response->getCreateVolumeResult();
+ my $vol = $result->getVolume();
+ $newvol = $vol->getVolumeId();
+
+ mesg(1, "New volume $newvol created from snapshot $snap_id for instance $id\n");
+ $opts->{pdb}->setProp("$propResult/Instance-$id/NewVolume", $newvol);
+ if ("$vollist" ne "") { $vollist .= ";"; }
+ $vollist .= $newvol;
+ $volsCreated{$newvol} = 1;
+ }
+ };
+ if ($@) { throwEC2Error($@); }
+ }
+
+ ## wait for snapshots to be ready
+ my $done = 0;
+ my $status = "pending";
+ while (!$done) {
+ $done = 1;
+ sleep 10;
+ eval {
+ mesg(1, "Waiting for volume $newvol\n");
+ my $request = new Amazon::EC2::Model::DescribeVolumesRequest();
+ my $response = $service->describeVolumes($request);
+ if ($response->isSetDescribeVolumesResult()) {
+ my $result = $response->getDescribeVolumesResult();
+ my $volumes = $result->getVolume();
+ foreach (@$volumes) {
+ my $vol = $_;
+ $status = $vol->getStatus();
+ $id = $vol->getVolumeId;
+ if ($volsCreated{$id} and $status ne "available") {
+ $done = 0;
+ }
+ }
+ }
+ };
+ if ($@) { throwEC2Error($@); }
+ }
+ $opts->{pdb}->setProp("$propResult/VolumeList", $vollist);
+ mesg(1, "Snapshot $snap_id used to create volumes\n");
+ exit 0;
+}
+
+sub MOCK_CreateVolume {
+ my ($opts, $service) = @_;
+
+ mesg(1, "-- Create Volume -------\n");
+ my $snap_id = $opts->{snapshot};
+ my $propResult = getRequiredParam("propResult", $opts);
+ if ("$snap_id" eq "") {
+ mesg(0, "No snapshots to process.\n");
+ $opts->{pdb}->setProp("$propResult/VolumeList", "");
+ exit 0;
+ }
+
+ my $propResult = getRequiredParam("propResult", $opts);
+ $opts->{pdb}->setProp("$propResult/Snapshot", "$snap_id");
+
+ # get list of instances
+ my $instListProp = $opts->{pdb}->getProp("$propResult/InstanceList");
+ my @instList = split(/;/, $instListProp);
+
+ my %volsCreated;
+ my $vollist = "";
+ foreach (@instList) {
+ my $id = $_;
+ my $v = getRandKey(9999999);
+ my $newvol = "vol-$v";
+ mesg(1, "New volume $newvol created from snapshot $snap_id for instance $id\n");
+ $opts->{pdb}->setProp("$propResult/Instance-$id/NewVolume", $newvol);
+
+ $opts->{pdb}->setProp("$::gMockRegistry/Volumes/$newvol/state", "created");
+ if ("$vollist" ne "") { $vollist .= ";"; }
+ $vollist .= $newvol;
+ }
+ $opts->{pdb}->setProp("$propResult/VolumeList", $vollist);
+ mesg(1, "Snapshot $snap_id used to create volumes\n");
+ exit 0;
+}
+
+sub SnapVolume {
+ my ($opts, $service) = @_;
+
+ mesg(1, "-- Snapping Volume -------\n");
+
+ my $vol = getRequiredParam("volume", $opts);
+ my $instance = getRequiredParam("instance", $opts);
+ my $propResult = getRequiredParam("propResult", $opts);
+ my $snap_id = "";
+
+ if ("$vol" eq "") {
+ mesg(0, "Volume parameter is blank.\n");
+ exit 0;
+ }
+ if ("$instance" eq "") {
+ mesg(0, "Instance parameter is blank.\n");
+ exit 0;
+ }
+
+ ## double check that the volume is attached to the instance
+ eval {
+ my $request = new Amazon::EC2::Model::DescribeVolumesRequest({ "VolumeId" => "$vol" });
+ my $response = $service->describeVolumes($request);
+ if ($response->isSetDescribeVolumesResult()) {
+ my $result = $response->getDescribeVolumesResult();
+ my $volumes = $result->getVolume();
+
+ # should only be one row in result
+ foreach (@$volumes) {
+ my $volume = $_;
+ my $attachments = $volume->getAttachment();
+ foreach (@$attachments) {
+ my $attach = $_;
+ my $id = $attach->getInstanceId();
+ if ("$id" ne "$instance") {
+ mesg(0, "Volume $vol was not attached to instance $instance ($id).\n");
+ exit 1;
+ }
+ }
+ }
+ }
+ };
+ if ($@) { throwEC2Error($@); }
+
+ ## create a snapshot from volume
+ eval {
+ my $request = new Amazon::EC2::Model::CreateSnapshotRequest({ "VolumeId" => "$vol" });
+ my $response = $service->createSnapshot($request);
+ if ($response->isSetCreateSnapshotResult()) {
+ my $result = $response->getCreateSnapshotResult();
+ my $snapshot = $result->getSnapshot();
+ $snap_id = $snapshot->getSnapshotId();
+ }
+ };
+ if ($@) { throwEC2Error($@); }
+ mesg(1, "Created new snapshot $snap_id\n");
+
+ # return new snapid
+ $opts->{pdb}->setProp("$propResult/NewSnapshot", $snap_id);
+ exit 0;
+}
+
+sub MOCK_SnapVolume {
+ my ($opts, $service) = @_;
+
+ mesg(1, "-- Snapping Volume -------\n");
+
+ my $vol = getRequiredParam("volume", $opts);
+ my $instance = getRequiredParam("instance", $opts);
+ my $propResult = getRequiredParam("propResult", $opts);
+ my $snap_id = "";
+
+ if ("$vol" eq "") {
+ mesg(0, "Volume parameter is blank.\n");
+ exit 0;
+ }
+ if ("$instance" eq "") {
+ mesg(0, "Instance parameter is blank.\n");
+ exit 0;
+ }
+
+ my $r = getRandKey(9999999);
+ $snap_id = "snap-$r";
+ $opts->{pdb}->setProp("$::gMockRegistry/Snapshots/$snap_id", "created");
+ mesg(1, "Created new snapshot $snap_id\n");
+
+ # return new snapid
+ $opts->{pdb}->setProp("$propResult/NewSnapshot", $snap_id);
+ exit 0;
+}
+
+sub API_DescribeInstances {
+ my ($opts, $service) = @_;
+
+ mesg(1, "-- Describe Instances -------\n");
+
+ # possible states
+ # pending
+ # running
+ # shutting-down
+ # terminated
+ # stopping
+ # stopped
+ #
+ # answer will be in form $resultHash->{instance} = state;
+ my $resultHash;
+
+ # instances can be of 2 forms
+ # 1- a single instance i-1232
+ # 2 - a list of instances i-1232;i-4566
+ my $reservation = getRequiredParam("instances", $opts);
+ my $propResult = getOptionalParam("propResult", $opts);
+
+ @instances = split(/;/, $reservation);
+ mesg(1, " found " . scalar(@instances) . " in instance list $reservation\n");
+
+ foreach my $instanceName (@instances) {
+ mesg(2, " describing $instanceName\n");
+
+ eval {
+ my $request = new Amazon::EC2::Model::DescribeInstancesRequest({ "InstanceId" => "$instanceName" });
+ my $response = $service->describeInstances($request);
+ if ($response->isSetDescribeInstancesResult()) {
+ my $result = $response->getDescribeInstancesResult();
+ my $resList = $result->getReservation();
+ foreach (@$resList) {
+ my $res = $_;
+ my $resId = $res->getReservationId();
+ $instanceList = $res->getRunningInstance();
+ foreach (@$instanceList) {
+ my $instance = $_;
+ my $id = $instance->getInstanceId();
+ my $stateObj = $instance->getInstanceState();
+ $resultHash->{$instanceName}{state} = $stateObj->getName();
+ $resultHash->{$instanceName}{image} = $instance->getImageId();
+ $resultHash->{$instanceName}{prvdns} = $instance->getPrivateDnsName();
+ $resultHash->{$instanceName}{pubdns} = $instance->getPublicDnsName();
+ $resultHash->{$instanceName}{key} = $instance->getKeyName();
+ $resultHash->{$instanceName}{type} = $instance->getInstanceType();
+ $resultHash->{$instanceName}{launch} = $instance->getLaunchTime();
+ my $placement = $instance->getPlacement();
+ $resultHash->{$instanceName}{zone} = $placement->getAvailabilityZone();
+ }
+ }
+ }
+ };
+ # dont die on error...
+ if ($@) {
+ require Amazon::EC2::Exception;
+ if (ref $@ eq "Amazon::EC2::Exception") {
+ mesg(1, "Caught Exception: " . $@->getMessage() . "\n");
+ mesg(1, "Response Status Code: " . $@->getStatusCode() . "\n");
+ mesg(1, "Error Code: " . $@->getErrorCode() . "\n");
+ mesg(1, "Error Type: " . $@->getErrorType() . "\n");
+ mesg(1, "Request ID: " . $@->getRequestId() . "\n");
+ mesg(1, "XML: " . $@->getXML() . "\n");
+ }
+ else {
+ mesg(0, "An error occurred:\n");
+ mesg(0, "$@\n");
+ }
+ # send back results that it is stopped
+ $resultHash->{$instanceName}{state} = "stopped";
+ }
+ }
+ my $xml = "";
+ foreach my $i (keys %{$resultHash}) {
+ $xml .= " \n";
+ $xml .= " $i\n";
+ foreach my $p (keys %{ $resultHash->{$i} }) {
+ $xml .= " <$p>" . $resultHash->{$i}{$p} . "\n";
+ }
+ $xml .= " \n";
+ }
+ $xml .= "\n";
+ if (!$propResult) {
+ mesg(0, "$xml");
+ } else {
+ $opts->{pdb}->setProp("$propResult/describe", $xml);
+ }
+
+}
+
+sub MOCK_API_DescribeInstances {
+ my ($opts, $service) = @_;
+
+ mesg(1, "-- Describe Instances -------\n");
+
+ # possible states
+ # pending
+ # running
+ # shutting-down
+ # terminated
+ # stopping
+ # stopped
+ #
+ # answer will be in form $resultHash->{instance} = state;
+ my $resultHash;
+
+ # instances can be of 2 forms
+ # 1- a single instance i-1232
+ # 2 - a list of instances i-1232;i-4566
+ my $reservation = getRequiredParam("instances", $opts);
+ my $propResult = getOptionalParam("propResult", $opts);
+
+ @instances = split(/;/, $reservation);
+ mesg(1, " found " . scalar(@instances) . " in instance list $reservation\n");
+
+ foreach my $instanceName (@instances) {
+ mesg(2, " describing $instanceName\n");
+ $resultHash->{$instanceName}{state} = $opts->{pdb}->getProp("$::gMockRegistry/Instances/$instanceName/state");
+ if ($resultHash->{$instanceName}{state} eq "") {
+ $resultHash->{$instanceName}{state} = "terminated";
+ }
+ $resultHash->{$instanceName}{image} = $opts->{pdb}->getProp("$::gMockRegistry/Instances/$instanceName/image");
+ $resultHash->{$instanceName}{pvrdns} = $opts->{pdb}->getProp("$::gMockRegistry/Instances/$instanceName/pvrdns");
+ $resultHash->{$instanceName}{pubdns} = $opts->{pdb}->getProp("$::gMockRegistry/Instances/$instanceName/pubdns");
+ $resultHash->{$instanceName}{key} = $opts->{pdb}->getProp("$::gMockRegistry/Instances/$instanceName/key");
+ $resultHash->{$instanceName}{type} = $opts->{pdb}->getProp("$::gMockRegistry/Instances/$instanceName/type");
+ $resultHash->{$instanceName}{launch} = $opts->{pdb}->getProp("$::gMockRegistry/Instances/$instanceName/launch");
+ $resultHash->{$instanceName}{zone} = $opts->{pdb}->getProp("$::gMockRegistry/Instances/$instanceName/zone");
+ $resultHash->{$instanceName}{volue} = $opts->{pdb}->getProp("$::gMockRegistry/Instances/$instanceName/volume");
+ }
+ my $xml = "";
+ foreach my $i (keys %{$resultHash}) {
+ $xml .= " \n";
+ $xml .= " $i\n";
+ foreach my $p (keys %{ $resultHash->{$i} }) {
+ $xml .= " <$p>" . $resultHash->{$i}{$p} . "\n";
+ }
+ $xml .= " \n";
+ }
+ $xml .= "\n";
+ if (!$propResult) {
+ mesg(0, "$xml");
+ } else {
+ $opts->{pdb}->setProp("$propResult/describe", $xml);
+ }
+}
+
+sub API_DeleteVol {
+ my ($opts, $service) = @_;
+
+ mesg(1, "-- Delete Dynamic Volume -------\n");
+
+ my $volumes = $opts->{volumes};
+ my @volumeList = split(/;/, "$volumes");
+ if (@volumeList == 0) {
+ mesg(1, "No volumes to delete.\n");
+ exit 0;
+ }
+
+ my $detachOnly = getRequiredParam("detachOnly", $opts);
+
+ my $delCount = 0;
+ my $detCount = 0;
+
+ foreach (@volumeList) {
+ my $vol_id = $_;
+
+ mesg(1, "Deleting Volume $vol_id\n");
+
+ # loop until volume available
+ # either it completes or the step times out...
+ my $status = "";
+ while (1) {
+ eval {
+ my $request = new Amazon::EC2::Model::DescribeVolumesRequest({ "VolumeId" => "$vol_id" });
+ my $response = $service->describeVolumes($request);
+ if ($response->isSetDescribeVolumesResult()) {
+ my $result = $response->getDescribeVolumesResult();
+ my $volumes = $result->getVolume();
+
+ # should only be one row in result
+ foreach (@$volumes) {
+ my $vol = $_;
+ $status = $vol->getStatus();
+ }
+ }
+ };
+ if ($@) { throwEC2Error($@); }
+ mesg(1, "Found status=[$status]\n");
+ if ($status eq "available") {
+ last;
+ }
+ if ($status eq "terminated" or $status eq "deleting") {
+ mesg(1, "Error detaching volume $vol_id\n");
+ exit 1;
+ }
+ if ($status eq "in-use") {
+ mesg(1, "Trying to detach $vol_id\n");
+ eval {
+ my $request = new Amazon::EC2::Model::DetachVolumeRequest({ "VolumeId" => "$vol_id" });
+ my $response = $service->detachVolume($request);
+ };
+ if ($@) {
+ throwEC2Error($@);
+ $status = "busy";
+ }
+ $detCount++;
+ mesg(1, "Volume $vol_id detached\n");
+ }
+ mesg(1, "Waiting for volume $vol_id to be in available state\n");
+ sleep 10;
+ }
+ if (!$detachOnly) {
+ ## delete volume
+ eval {
+ mesg(1, "Deleting volume $vol_id\n");
+ my $request = new Amazon::EC2::Model::DeleteVolumeRequest({ "VolumeId" => "$vol_id" });
+ my $response = $service->deleteVolume($request);
+ };
+ if ($@) { throwEC2Error($@); }
+ mesg(1, "Volume $vol_id deleted\n");
+ $delCount++;
+ }
+
+ }
+
+ if (!$detachOnly) {
+ mesg(1, "$delCount volumes deleted.\n");
+ }
+ else {
+ mesg(1, "$detCount volumes detached.\n");
+ }
+ exit 0;
+}
+
+sub MOCK_API_DeleteVol {
+ my ($opts, $service) = @_;
+
+ mesg(1, "-- Delete Dynamic Volume -------\n");
+
+ my $volumes = $opts->{volumes};
+ my @volumeList = split(/;/, "$volumes");
+ if (@volumeList == 0) {
+ mesg(1, "No volumes to delete.\n");
+ exit 0;
+ }
+
+ my $detachOnly = getRequiredParam("detachOnly", $opts);
+
+ my $delCount = 0;
+ my $detCount = 0;
+
+ foreach (@volumeList) {
+ my $vol_id = $_;
+
+ mesg(1, "Deleting Volume $vol_id\n");
+
+ # if volume attached
+ my $instance = $opts->{pdb}->getProp("$::gMockRegistry/Volumes/$vol_id/instance");
+
+ if ($instance ne "") {
+ mesg(1, "Trying to detach $vol_id\n");
+ $opts->{pdb}->setProp("$::gMockRegistry/Volumes/$vol_id/instance", "");
+ $opts->{pdb}->setProp("$::gMockRegistry/Instances/$instance/volume", "");
+ $detCount++;
+ mesg(1, "Volume $vol_id detached\n");
+ }
+
+ if (!$detachOnly) {
+ ## delete volume
+ $opts->{pdb}->delRow("$::gMockRegistry/Volumes/$vol_id");
+ mesg(1, "Volume $vol_id deleted\n");
+ $delCount++;
+ }
+
+ }
+
+ if (!$detachOnly) {
+ mesg(1, "$delCount volumes deleted.\n");
+ }
+ else {
+ mesg(1, "$detCount volumes detached.\n");
+ }
+ exit 0;
+}
+
+sub API_Start {
+ my ($opts, $service) = @_;
+
+ mesg(1, "--Start Amazon EC2 Instance -------\n");
+
+ my $instance = getRequiredParam("instance", $opts);
+
+ ## start EBS instance
+
+ mesg(1, "Starting instance\n");
+
+ eval {
+
+ my $request = new Amazon::EC2::Model::StartInstancesRequest({ "InstanceId" => "$instance", });
+ my $response = $service->startInstances($request);
+ };
+ if ($@) { throwEC2Error($@); }
+ exit 0;
+}
+
+sub MOCK_API_Start {
+ my ($opts, $service) = @_;
+
+ mesg(1, "--Start Amazon EC2 Instance -------\n");
+
+ my $instance = getRequiredParam("instance", $opts);
+
+ ## start EBS instance
+
+ mesg(1, "Starting instance\n");
+
+ $opts->{pdb}->setProp("$::gMockRegistry/Instances/$instance/state", "running");
+ exit 0;
+}
+
+sub API_Stop {
+ my ($opts, $service) = @_;
+
+ mesg(1, "--Stop Amazon EC2 Instance -------\n");
+
+ my $instance = getRequiredParam("instance", $opts);
+
+ ## stop EBS instance
+
+ mesg(1, "Stopping instance\n");
+
+ eval {
+
+ my $request = new Amazon::EC2::Model::StopInstancesRequest({ "InstanceId" => "$instance", });
+ my $response = $service->stopInstances($request);
+ };
+ if ($@) { throwEC2Error($@); }
+ exit 0;
+
+}
+
+sub MOCK_API_Stop {
+ my ($opts, $service) = @_;
+
+ mesg(1, "--Stop Amazon EC2 Instance -------\n");
+
+ my $instance = getRequiredParam("instance", $opts);
+
+ ## stop EBS instance
+ mesg(1, "Stopping instance\n");
+
+ $opts->{pdb}->setProp("$::gMockRegistry/Instances/$instance/state", "stopped");
+ exit 0;
+}
+
+
+sub _terminate_instance {
+ my ($instance_id, $service) = @_;
+
+ my ($request, $response);
+ eval {
+ $request = new Amazon::EC2::Model::TerminateInstancesRequest({ "InstanceId" => "$instance_id" });
+ $response = $service->terminateInstances($request);
+ 1;
+ } or do {
+ mesg(1, "Can't terminate instance $instance_id :" . Dumper $@ . "\n");
+ return 0;
+ };
+ return 1;
+}
+
+
+sub API_TerminateInstances {
+ my ($opts, $service) = @_;
+
+ mesg(1, "--Terminate Amazon EC2 Instance -------\n");
+ my $id = getRequiredParam("id", $opts);
+ my $resources = getOptionalParam("resources", $opts);
+
+ ## terminate instance
+ my $termCount = 0;
+ my @list = getInstanceList($id, $service);
+ foreach (@list) {
+ my $id = $_;
+
+ mesg(1, "Terminating instance $id\n");
+ eval {
+ my $request = new Amazon::EC2::Model::TerminateInstancesRequest({ "InstanceId" => "$id" });
+ my $response = $service->terminateInstances($request);
+ };
+ if ($@) { throwEC2Error($@); }
+ $termCount++;
+ }
+ mesg(1, "$termCount instances terminated.\n");
+
+ mesg(1, "Deleting resources.\n");
+ my @rlist = split(/;/, $resources);
+ foreach my $r (@rlist) {
+ deleteResource($opts, $r);
+ }
+ exit 0;
+}
+
+sub MOCK_API_TerminateInstances {
+ my ($opts, $service) = @_;
+
+ mesg(1, "--Terminate Amazon EC2 Instance -------\n");
+ my $id = getRequiredParam("id", $opts);
+ my $resources = getOptionalParam("resources", $opts);
+
+ ## terminate instance
+ my $termCount = 0;
+ my @list = getInstanceList($id, $service);
+ foreach (@list) {
+ my $id = $_;
+ mesg(1, "Terminating instance $id\n");
+ $opts->{pdb}->setProp("$::gMockRegistry/Instances/$id/state", "terminated");
+ $termCount++;
+ }
+ mesg(1, "$termCount instances terminated.\n");
+
+ mesg(1, "Deleting resources.\n");
+ my @rlist = split(/;/, $resources);
+ foreach my $r (@rlist) {
+ deleteResource($opts, $r);
+ }
+ exit 0;
+}
+
+sub API_TearDownResource {
+ my ($opts, $service) = @_;
+
+ my $ec = $opts->{ec_instance};
+ my $resource_name = getRequiredParam('resName', $opts);
+ my $resource_value;
+
+ eval {
+ $resource_value = $ec->getResource($resource_name);
+ 1;
+ } or do {
+ mesg(1, "Error occured: $@\n");
+ mesg(1, "Can't find resource $resource_name\n");
+ return 0;
+ };
+
+ if (!$resource_value) {
+ mesg(1, "No such resource: $resource_name\n");
+ return 0;
+ }
+
+ my ($createdBy, $instance_id, $config_name);
+ $p_path = "/resources/$resource_name/ec_cloud_instance_details";
+ eval {
+ $createdBy = $ec->getProperty("$p_path/createdBy")->findvalue('//value')->string_value;
+ $instance_id = $ec->getProperty("$p_path/instance_id")->findvalue('//value')->string_value;
+ $config_name = $ec->getProperty("$p_path/config")->findvalue('//value')->string_value;
+ 1;
+ } or do {
+ mesg(1, "Can't destroy instance, which was created by another plugin.\n");
+ return 0;
+ };
+
+ if (!$instance_id || !$createdBy || $createdBy ne 'EC-EC2') {
+ mesg(1, "Can't terminate resource $resource_name\n");
+ return 0;
+ }
+ if (!_terminate_instance($instance_id, $service)) {
+ mesg(1, "Can't terminate instance\n");
+ return 0;
+ }
+ mesg(1, "Terminating resource: $resource_name, created by $createdBy with id: $instance_id\n");
+
+ $ec->deleteResource($resource_name);
+ return 1;
+}
+
+#
+# Instance list can be in one of three forms:
+# reservation of the form r-xxxxxx
+# instance of the form i-xxxxx
+# instance list of the form i-xxxx;i-xxxxx;i-xxxxxx
+#
+sub getInstanceList($$) {
+ my ($resIn, $service) = @_;
+
+ my @list;
+
+ # if first letter of id is "r" then we want to terminate all instances of reservation.
+ # If the first letter is "i" then we only want to terminate a specific instance or list of instances
+ if ($resIn =~ m/i-/) {
+ @list = split(/;/, $resIn);
+ return @list;
+ }
+
+ # otherwise make a list of each instance in the reservation
+ eval {
+ my $request = new Amazon::EC2::Model::DescribeInstancesRequest({ "ReservationId" => "$reservation" });
+ my $response = $service->describeInstances($request);
+
+ if ($response->isSetDescribeInstancesResult()) {
+ my $result = $response->getDescribeInstancesResult();
+ my $resList = $result->getReservation();
+ foreach (@$resList) {
+ my $res = $_;
+ my $resId = $res->getReservationId();
+
+ # if instance not in reservation
+ if ("$resId" ne "$resIn") { next; }
+ $instanceList = $res->getRunningInstance();
+ foreach (@$instanceList) {
+ my $instance = $_;
+ my $id = $instance->getInstanceId();
+ push(@list, $id);
+ }
+ }
+ }
+ };
+ if ($@) { throwEC2Error($@); }
+ return @list;
+}
+
+#
+# Instance list can be in one of three forms:
+# reservation of the form r-xxxxxx
+# instance of the form i-xxxxx
+# instance list of the form i-xxxx;i-xxxxx;i-xxxxxx
+#
+sub MOCK_getInstanceList($$) {
+ my ($resIn, $service) = @_;
+
+ my @list;
+
+ # if first letter of id is "r" then we want to terminate all instances of reservation.
+ # If the first letter is "i" then we only want to terminate a specific instance or list of instances
+ if ($resIn =~ m/i-/) {
+ @list = split(/;/, $resIn);
+ return @list;
+ }
+
+ print "Mock Data mode does not support reservations...\n";
+ exit 1;
+}
+
+sub DeregisterInstance {
+ my ($opts, $service) = @_;
+
+ mesg(1, "--Deregister Amazon EC2 Windows Instance -------\n");
+
+ my $ami = getRequiredParam("ami", $opts);
+
+ my $request = new Amazon::EC2::Model::DeregisterImageRequest({ "ImageId" => "$ami" });
+
+ eval { my $response = $service->deregisterImage($request); };
+ if ($@) { throwEC2Error($@); }
+ mesg(1, "AMI $ami deregistered.\n");
+ exit 0;
+}
+
+sub MOCK_DeregisterInstance {
+ my ($opts, $service) = @_;
+
+ mesg(1, "--Deregister Amazon EC2 Windows Instance -------\n");
+
+ my $ami = getRequiredParam("ami", $opts);
+ $opts->{pdb}->delRow("$::gMockRegistry/Images/$ami");
+
+ mesg(1, "AMI $ami deregistered.\n");
+ exit 0;
+}
+
+sub CreateImage {
+ my ($opts, $service) = @_;
+
+ mesg(1, "--Create EBS Image from existing EBS image -------\n");
+
+ my $instance = getRequiredParam("instance", $opts);
+ my $name = getRequiredParam("name", $opts);
+ my $desc = getRequiredParam("desc", $opts);
+ my $noreboot = getRequiredParam("noreboot", $opts);
+ my $propResult = getRequiredParam("propResult", $opts);
+ my $newami = "";
+
+ my $request = new Amazon::EC2::Model::CreateImageRequest(
+ {
+ "InstanceId" => "$instance",
+ "Name" => "$name",
+ "Description" => "$desc",
+ "NoReboot" => "$noreboot"
+ }
+ );
+
+ eval {
+ my $response = $service->createImage($request);
+ if ($response->isSetCreateImageResult()) {
+ my $result = $response->getCreateImageResult();
+ $newami = $result->getImageId();
+ }
+ };
+ if ($@) { throwEC2Error($@); }
+ mesg(1, "CreateImage returned new AMI=$newami\n");
+
+ # loop until new instance has been created
+ require Amazon::EC2::Model::DescribeImagesRequest;
+ require Amazon::EC2::Model::DescribeImagesResponse;
+ require Amazon::EC2::Model::DescribeImagesResult;
+
+ my $state = "";
+ while ("$state" eq "pending" || "$state" eq "") {
+ if ("$state" ne "") {
+ sleep(30);
+ }
+ eval {
+ my $request = new Amazon::EC2::Model::DescribeImagesRequest({ "ImageId" => "$newami" });
+ my $response = $service->describeImages($request);
+
+ if ($response->isSetResponseMetadata()) {
+ my $responseMetadata = $response->getResponseMetadata();
+ }
+ if ($response->isSetDescribeImagesResult()) {
+ my $describeImagesResult = $response->getDescribeImagesResult();
+ my $imageList = $describeImagesResult->getImage();
+ foreach (@$imageList) {
+ my $image = $_;
+ $state = $image->getImageState();
+ }
+ }
+ };
+ if ($@) { throwEC2Error($@); }
+ mesg(1, "AMI $newami state is $state\n");
+ }
+ mesg(1, "Image $newami created.\n");
+ $opts->{pdb}->setProp("$propResult/NewAMI", $newami);
+ $opts->{pdb}->setProp("$propResult/NewName", $name);
+ exit 0;
+}
+
+sub MOCK_CreateImage {
+ my ($opts, $service) = @_;
+
+ mesg(1, "--Create EBS Image from existing EBS image -------\n");
+
+ my $instance = getRequiredParam("instance", $opts);
+ my $name = getRequiredParam("name", $opts);
+ my $desc = getRequiredParam("desc", $opts);
+ my $noreboot = getRequiredParam("noreboot", $opts);
+ my $propResult = getRequiredParam("propResult", $opts);
+ my $newami = "";
+
+ my $r = getRandKey(999999);
+ $newami = "ami-$r";
+ $opts->{pdb}->setProp("$::gMockRegistry/Images/$newami", "created");
+ mesg(1, "Image $newami created.\n");
+ $opts->{pdb}->setProp("$propResult/NewAMI", $newami);
+ $opts->{pdb}->setProp("$propResult/NewName", $name);
+ exit 0;
+}
+
+sub API_RunInstance {
+ my ($opts, $service) = @_;
+
+ mesg(1, "--Run Amazon EC2 Instances -------\n");
+
+ my $ami = getRequiredParam("image", $opts);
+ my $key = getRequiredParam("keyname", $opts);
+ my $instanceType = getRequiredParam("instanceType", $opts);
+ my $group = getRequiredParam("group", $opts);
+ my $zone = getRequiredParam("zone", $opts);
+ my $count = getRequiredParam("count", $opts);
+ my $poolName = getOptionalParam("res_poolName", $opts);
+ my $propResult = getPropResultLocationForPool($opts, $poolName);
+
+ my $workspace = getOptionalParam("res_workspace", $opts);
+ my $port = getOptionalParam("res_port", $opts);
+
+ my $subnet_id = getOptionalParam("subnet_id", $opts);
+ my $use_private_ip = '';
+
+ # now use_private_ip depends on subnet_id
+ if ($subnet_id) {
+ $use_private_ip = getOptionalParam('use_private_ip', $opts);
+ }
+
+ my $ec = $opts->{ec_instance};
+ my $userData = getOptionalParam("userData", $opts);
+ if ("$userData" eq "") {
+ $userData = MIME::Base64::encode_base64("none");
+ }
+ else {
+ $userData = MIME::Base64::encode_base64("$userData");
+ }
+
+ mesg(1, "Running $count instance(s) of $ami in zone $zone as type $instanceType with group $group\n");
+
+ ## run new instance
+ my $reservation = "";
+
+ eval {
+ my $placement = new Amazon::EC2::Model::Placement();
+ $placement->setAvailabilityZone("$zone");
+
+ my $request = new Amazon::EC2::Model::RunInstancesRequest(
+ {
+ "ImageId" => "$ami",
+ "Placement" => $placement,
+ "MinCount" => "$count",
+ "MaxCount" => "$count",
+ "KeyName" => "$key",
+ "SecurityGroup" => "$group",
+ "InstanceType" => "$instanceType",
+ "UserData" => "$userData",
+ "SubnetId" => $subnet_id,
+ }
+ );
+ $request->setPlacement($placement);
+
+ my $response = $service->runInstances($request);
+
+ # get reservation
+ if ($response->isSetRunInstancesResult()) {
+ $result = $response->getRunInstancesResult();
+ my $res = $result->getReservation();
+ $reservation = $res->getReservationId();
+ mesg(1, "Run instance returned reservation id $reservation\n");
+ }
+ };
+ if ($@) { throwEC2Error($@); }
+
+ # loop until all instances in reservation are running
+ # either it completes or the step times out...
+ while ("$reservation" ne "") {
+ my $running = 0; # number ready
+ my $total = $count; # number in reservation
+ eval {
+ my $request = new Amazon::EC2::Model::DescribeInstancesRequest({ "ReservationId" => "$reservation" });
+ my $response = $service->describeInstances($request);
+
+ # examine all instances in reservation and
+ # exit if ALL instances are running
+ # (this ignores the original count, only
+ # looks at instances that Amazon thinks are
+ # part of the reservation)
+ if ($response->isSetDescribeInstancesResult()) {
+ my $result = $response->getDescribeInstancesResult();
+ my $resList = $result->getReservation();
+ foreach (@$resList) {
+ my $res = $_;
+ my $resId = $res->getReservationId();
+
+ # if instance not in reservation
+ if ("$resId" ne "$reservation") { next; }
+ $total = 0;
+ $instanceList = $res->getRunningInstance();
+ foreach (@$instanceList) {
+ my $instance = $_;
+ my $id = $instance->getInstanceId();
+ my $stateObj = $instance->getInstanceState();
+ my $state = $stateObj->getName();
+ mesg(1, "Evaluating instance $id in state $state\n");
+ $total += 1;
+
+ # if it is running or something went wrong, either way consider this
+ # task complete
+ if ("$state" eq "running" || "$state" eq "shutting-down" || "$state" eq "terminated") {
+ $running += 1;
+ }
+ }
+ }
+ }
+ };
+ if ($@) { throwEC2Error($@); }
+ mesg(1, "$running of $total instances ready\n");
+ if ("$running" eq "$total") { last; }
+ sleep 10;
+ }
+
+ if ("$reservation" eq "") {
+ mesg(1, "Error running instances. No reservation created.\n");
+ exit 1;
+ }
+
+ my $instlist = "";
+
+ # Now describe them one more time to capture the attributes
+ eval {
+ my $request = new Amazon::EC2::Model::DescribeInstancesRequest({ "ReservationId" => "$reservation" });
+ my $response = $service->describeInstances($request);
+
+ if ($response->isSetDescribeInstancesResult()) {
+ my $result = $response->getDescribeInstancesResult();
+ my $resList = $result->getReservation();
+ foreach (@$resList) {
+ my $res = $_;
+ my $resId = $res->getReservationId();
+
+ # if instance not in reservation
+ if ("$resId" ne "$reservation") { next; }
+ $instanceList = $res->getRunningInstance();
+ foreach (@$instanceList) {
+ my $instance = $_;
+ my $id = $instance->getInstanceId();
+ my $image = $instance->getImageId();
+ my $rtype = $instance->getRootDeviceType();
+
+ # if we get back something other than a string, default
+ if (ref($rtype) ne "") { $rtype = "instance-store"; }
+
+ my $publicIP = $instance->getPublicDnsName();
+ my $privateIP = $instance->getPrivateIpAddress();
+
+ my $ip_for_resource_creation = '';
+ if (ref $publicIP eq 'HASH' && !%$publicIP) {
+ $publicIP = '';
+ }
+ if (ref $privateIP eq 'HASH' && !%$privateIP) {
+ $privateIP = '';
+ }
+
+ $ip_for_resource_creation = $publicIP;
+ if ($use_private_ip) {
+ $ip_for_resource_creation = $privateIP;
+ }
+
+ my $placement = $instance->getPlacement();
+ my $actualZone = $placement->getAvailabilityZone();
+ mesg(1, "Instance $id: IP=$publicIP AMI=$image ZONE=$actualZone\n");
+
+ my $resource = "";
+ if (!$ip_for_resource_creation) {
+ $poolName = '';
+ mesg(1, "WARNING: Can't create resource because of no public IP was assigned to the created instance\n");
+ }
+ if ("$poolName" ne "") {
+ mesg(1, "Poolname is not empty, adding resources.");
+ $resource = makeNewResource($opts, $ip_for_resource_creation, $poolName, $workspace, $port);
+ my $p_path = "/resources/$resource/ec_cloud_instance_details";
+ $ec->createProperty($p_path, {propertyType => 'sheet'});
+ $ec->createProperty("$p_path/etc/", {propertyType => 'sheet'});
+ $opts->{pdb}->setProp("$p_path/createdBy", "EC-EC2");
+ $opts->{pdb}->setProp("$p_path/instance_id", $id);
+ $opts->{pdb}->setProp("$p_path/config", $opts->{config});
+
+ # let's set other properties for ETC folder
+ $p_path .= '/etc/';
+ if (!$use_private_ip) {
+ $opts->{pdb}->setProp("$p_path/public_ip", $publicIP);
+ }
+ $opts->{pdb}->setProp("$p_path/private_ip", $privateIP);
+ $opts->{pdb}->setProp("$p_path/ami", $image);
+ }
+
+ if ("$propResult" ne "") {
+ $opts->{pdb}->setProp("$propResult/Instance-$id/AMI", "$image");
+ $opts->{pdb}->setProp("$propResult/Instance-$id/RootType", "$rtype");
+ $opts->{pdb}->setProp("$propResult/Instance-$id/Address", "$publicIP");
+ $opts->{pdb}->setProp("$propResult/Instance-$id/Private", "$privateIP");
+ $opts->{pdb}->setProp("$propResult/Instance-$id/Zone", "$actualZone");
+ $opts->{pdb}->setProp("$propResult/Instance-$id/Resource", "$resource");
+ }
+ if ("$instlist" ne "") { $instlist .= ";"; }
+ $instlist .= "$id";
+ mesg(1, "Adding $id to instance list\n");
+ }
+ }
+ }
+ };
+ if ($@) { throwEC2Error($@); }
+
+ if ("$propResult" ne "") {
+ mesg(1, "Saving instance list $instlist\n");
+ $opts->{pdb}->setProp("$propResult/InstanceList", $instlist);
+ $opts->{pdb}->setProp("$propResult/Reservation", $reservation);
+ $opts->{pdb}->setProp("$propResult/Count", $count);
+ }
+
+ exit 0;
+}
+
+sub MOCK_API_RunInstance {
+ my ($opts, $service) = @_;
+
+ mesg(1, "--Run Amazon EC2 Instances -------\n");
+
+ my $ami = getRequiredParam("image", $opts);
+ my $key = getRequiredParam("keyname", $opts);
+ my $instanceType = getRequiredParam("instanceType", $opts);
+ my $group = getRequiredParam("group", $opts);
+ my $zone = getRequiredParam("zone", $opts);
+ my $count = getRequiredParam("count", $opts);
+ my $poolName = getOptionalParam("res_poolName", $opts);
+ my $propResult = getPropResultLocationForPool($opts, $poolName);
+
+ my $workspace = getOptionalParam("res_workspace", $opts);
+ my $port = getOptionalParam("res_port", $opts);
+
+ my $userData = getOptionalParam("userData", $opts);
+ if ("$userData" eq "") {
+ $userData = MIME::Base64::encode_base64("none");
+ }
+ else {
+ $userData = MIME::Base64::encode_base64("$userData");
+ }
+
+ mesg(1, "Running $count instance(s) of $ami in zone $zone as type $instanceType with group $group\n");
+
+ ## run new instance
+
+ my $reservation = "";
+
+ for (my $num = 0; $num < $count; $num++) {
+ my $r = getRandKey(9999999);
+ my $id = "i-$r";
+ $opts->{pdb}->setProp("$::gMockRegistry/Instances/$id/state", "running");
+ $opts->{pdb}->setProp("$::gMockRegistry/Instances/$id/key", "$key");
+ $opts->{pdb}->setProp("$::gMockRegistry/Instances/$id/group", "$group");
+ $opts->{pdb}->setProp("$::gMockRegistry/Instances/$id/zone", "$zone");
+ $opts->{pdb}->setProp("$::gMockRegistry/Instances/$id/userData", "$userData");
+ $opts->{pdb}->setProp("$::gMockRegistry/Instances/$id/ami", "$ami");
+ $opts->{pdb}->setProp("$::gMockRegistry/Instances/$id/root", "ebs");
+
+ my $publicIP = $opts->{pdb}->getProp("/myProject/publicIP");
+ if ($publicIP eq "") {
+ $publicIP = "192.168." . getRandKey(255) . "." . getRandKey(255);
+ }
+ my $privateIP = "192.168." . getRandKey(255) . "." . getRandKey(255);
+ $opts->{pdb}->setProp("$::gMockRegistry/Instances/$id/prvdns", "$privateIP");
+ $opts->{pdb}->setProp("$::gMockRegistry/Instances/$id/pubdns", "$publicIP");
+
+ my $resource = "";
+ if ("$poolName" ne "") {
+ $resource = makeNewResource($opts, $publicIP, $poolName, $workspace, $port);
+ }
+
+ if ("$propResult" ne "") {
+ $opts->{pdb}->setProp("$propResult/Instance-$id/AMI", "$ami");
+ $opts->{pdb}->setProp("$propResult/Instance-$id/RootType", "ebs");
+ $opts->{pdb}->setProp("$propResult/Instance-$id/Address", "$publicIP");
+ $opts->{pdb}->setProp("$propResult/Instance-$id/Private", "$privateIP");
+ $opts->{pdb}->setProp("$propResult/Instance-$id/Zone", "$zone");
+ $opts->{pdb}->setProp("$propResult/Instance-$id/Resource", "$resource");
+ }
+ if ("$instlist" ne "") { $instlist .= ";"; }
+ $instlist .= "$id";
+ mesg(1, "Adding $id to instance list\n");
+ }
+
+ if ("$propResult" ne "") {
+ mesg(1, "Saving instance list $instlist\n");
+ $opts->{pdb}->setProp("$propResult/InstanceList", $instlist);
+ $opts->{pdb}->setProp("$propResult/Reservation", $reservation);
+ $opts->{pdb}->setProp("$propResult/Count", $count);
+ }
+
+ exit 0;
+}
+
+sub makeNewResource() {
+ my ($opts, $host, $pool, $workspace, $port) = @_;
+
+ # host must be present
+ if ("$host" eq "") {
+ mesg(1, "No host provided to makeNewResource.\n");
+ return "";
+ }
+
+ # workspace and port can be blank
+ # default the port to 7800, the default agent port, if port was not specified
+ if (!$port) {
+ $port = 7800;
+ }
+
+ mesg(1, "Creating resource for machine $host in pool $pool\n");
+
+ my $resName = "$pool-$now_$seq";
+
+ #-------------------------------------
+ # Create the resource
+ #-------------------------------------
+ for (my $seq = 1; $seq < 9999; $seq++) {
+ my $now = time();
+ $resName = "$pool" . "-" . $now . "_" . $seq;
+ my $cmdrresult = $opts->{pdb}->getCmdr()->createResource(
+ $resName,
+ {
+ description => "EC2 provisioned resource (dynamic)",
+ workspaceName => "$workspace",
+ port => "$port",
+ hostName => "$host",
+
+ #pools => "$pool"
+ }
+ );
+ # resource created.
+
+ # Check for error return
+ my $errMsg = $opts->{pdb}->getCmdr()->checkAllErrors($cmdrresult);
+ if ($errMsg ne "") {
+ if ($errMsg =~ /DuplicateResourceName/) {
+ mesg(4, "resource $resName exists\n");
+ next;
+ }
+ else {
+ mesg(1, "Error: $errMsg\n");
+ return "";
+ }
+ }
+ mesg(1, "Resource Name:$resName\n");
+ $opts->{pdb}->getCmdr()->addResourcesToPool($pool, {
+ resourceName => [$resName]
+ });
+
+ return $resName;
+ }
+
+ return "";
+
+}
+
+sub deleteResource() {
+ my ($opts, $resource) = @_;
+
+ # host must be present
+ if ("$resource" eq "") {
+ mesg(1, "No resource provded to deleteResource.\n");
+ return;
+ }
+
+ mesg(1, "Deleting resource $resource\n");
+
+ #-------------------------------------
+ # Delete the resource
+ #-------------------------------------
+ my $cmdrresult = $opts->{pdb}->getCmdr()->deleteResource($resource);
+
+ # Check for error return
+ my $errMsg = $opts->{pdb}->getCmdr()->checkAllErrors($cmdrresult);
+ if ($errMsg ne "") {
+ mesg(1, "Error: $errMsg\n");
+ }
+ return;
+}
+
+sub API_CreateTags {
+ my ($opts, $service) = @_;
+
+ my $resourceId = getRequiredParam("resourceId", $opts);
+ my $tagsMap = getRequiredParam('tagsMap', $opts);
+ my @resources = split(' ', $resourceId);
+
+ my $request = new Amazon::EC2::Model::CreateTagsRequest();
+
+ $request->setIdList(\@resources);
+
+ my $map = parseTagsMap($tagsMap);
+ my @tags = ();
+
+ for (keys %$map) {
+ my $tag = new Amazon::EC2::Model::Tag();
+ mesg(1, "Adding $_ tag(s) to Amazon EC2 resource(s): $resourceId with value: $map->{$_}\n");
+ $tag->setKey($_);
+ $tag->setValue($map->{$_});
+
+ push(@tags, $tag);
+ }
+ $request->setTagList(\@tags);
+
+ eval { my $response = $service->createTags($request); };
+ if ($@) { throwEC2Error($@); }
+
+ mesg(1, "Tag(s) successfully created\n");
+
+}
+
+sub AssignNameTags {
+ my ($opts, $service) = @_;
+
+ my $poolName = getOptionalParam("res_poolName", $opts);
+ #Location where the provisioned instances' properties are stored
+ my $propLocation = getPropResultLocationForPool($opts, $poolName);
+
+ my $ec = $opts->{ec_instance};
+ my $instanceProp = "$propLocation/InstanceList";
+ my $instanceList = $ec->getProperty($instanceProp)->findvalue("//value")->value();
+ my @instances = split(';', $instanceList);
+
+ for my $resourceId (@instances) {
+
+ my $resourceName = $ec->getProperty("$propLocation/Instance-$resourceId/Resource")->findvalue("//value")->value();
+
+ #Default the resourceName to the AWS Instance id,
+ #if no commander resource associated with the instance
+ if (!$resourceName) {
+ $resourceName = $resourceId;
+ }
+ createTag($resourceId, "Name", $resourceName, $service);
+ }
+}
+
+sub createTag {
+ my ($resourceId, $tagName, $tagValue, $service) = @_;
+
+ mesg(1, "Adding Tag '$tagName'='$tagValue' to Amazon EC2 resource '$resourceId'\n");
+
+ my $request = new Amazon::EC2::Model::CreateTagsRequest();
+
+ my @resources = ();
+ push(@resources, $resourceId);
+ $request->setIdList(\@resources);
+
+ my @tags = ();
+ my $tag = new Amazon::EC2::Model::Tag();
+ $tag->setKey($tagName);
+ $tag->setValue($tagValue);
+ push(@tags, $tag);
+ $request->setTagList(\@tags);
+
+ eval {
+ $service->createTags($request);
+ 1;
+ } or do {
+ mesg(0, "Failed to add Tag '$tagName'='$tagValue' to Amazon EC2 resource '$resourceId'\n");
+ exit 1;
+ };
+
+ mesg(1, "Tag(s) successfully created\n");
+
+}
+
+sub getInstancesForTermination {
+ my ($ec, $prop) = @_;
+
+ my $retval = [];
+
+
+ my $instance_data = getResourceDetails($ec, $prop);
+
+ if (%$instance_data) {
+ push @$retval, $instance_data;
+ return $retval;
+ }
+ my $data = undef;
+ eval {
+ my $res = $ec->getResourcePool($prop);
+ if ($res) {
+ my $xml = XMLin($res->{_xml});
+ $data = $xml->{response}->{resourcePool}->{resourceNames}->{resourceName};
+ }
+ };
+ if (!$data) {
+ return $retval;
+ }
+
+ if (ref $data eq 'ARRAY') {
+ for my $instance (@$data) {
+ push @$retval, getResourceDetails($ec, $instance);
+ }
+ }
+ else {
+ push @$retval, getResourceDetails($ec, $data);
+ }
+ @$retval = grep {$_} @$retval;
+ return $retval;
+}
+
+
+sub getResourceDetails {
+ my ($ec, $prop) = @_;
+ my $instance_data = undef;
+ eval {
+ my $res = $ec->getResource($prop);
+ my $p_path = "/resources/$prop/ec_cloud_instance_details";
+ $instance_data = {
+ instance_id => $ec->getProperty("$p_path/instance_id")->findvalue('//value')->string_value(),
+ resource_name => $prop,
+ };
+ eval {
+ $instance_data->{config} = $ec->getProperty("$p_path/config")->findvalue('//value')->string_value();
+ };
+ };
+ return $instance_data;
+}
+
+sub populateActualParameters {
+ my ($ec, $opts) = @_;
+
+ populateActualParametersForJobStepId($ec, $opts, '/myParent/parent/jobStepId');
+ populateActualParametersForJobStepId($ec, $opts, '/myParent/jobStepId');
+}
+
+sub populateActualParametersForJobStepId {
+ my ($ec, $opts, $jobStepIdPropName) = @_;
+
+ my $xpath = $ec->getProperty($jobStepIdPropName);
+ my $jobStepId = $xpath->findvalue('//value')->value;
+ $xpath = $ec->getActualParameters({jobStepId=>$jobStepId});
+ my $nodeset = $xpath->find('//actualParameter');
+
+ foreach my $node ($nodeset->get_nodelist) {
+ my $parm = $node->findvalue('actualParameterName');
+ my $val = $node->findvalue('value');
+ $opts->{$parm} = "$val";
+ }
+}
+
+
+# parses tagsmap(key1 => value1, key2 => value2) into a perl hashref.
+sub parseTagsMap {
+ my ($map) = @_;
+ $map =~ s/\n//gis;
+ my $result = {};
+ my @t = split /,/, $map;
+
+ for my $row (@t) {
+ # negative lookbehind
+ my @arr = split(/(?/, $row);
+ if (scalar @arr > 2) {
+ die "Error occured";
+ }
+ trim($arr[0]);
+ trim($arr[1]);
+ $result->{$arr[0]} = $arr[1];
+ }
+ return $result;
+}
+
+# removes leading and trailing whitespaces
+sub trim {
+ $_[0] or return;
+ $_[0] =~ s/^\s+//s;
+ $_[0] =~ s/\s+$//s;
+}
+
diff --git a/src/main/resources/project/conf/attemptConnection.pl b/src/main/resources/project/conf/attemptConnection.pl
new file mode 100644
index 0000000..816db7b
--- /dev/null
+++ b/src/main/resources/project/conf/attemptConnection.pl
@@ -0,0 +1,82 @@
+#########################
+## createcfg.pl
+#########################
+
+use ElectricCommander;
+use ElectricCommander::PropDB;
+use ElectricCommander::PropMod qw(/myProject/lib);
+use Carp qw( carp croak );
+
+use constant {
+ SUCCESS => 0,
+ ERROR => 1,
+ };
+
+## get an EC object
+my $ec = new ElectricCommander();
+$ec->abortOnError(0);
+
+my $credName = "$[/myJob/config]";
+
+my $xpath = $ec->getFullCredential("credential");
+my $errors = $ec->checkAllErrors($xpath);
+my $AWS_ACCESS_KEY_ID = $xpath->findvalue("//userName");
+my $AWS_SECRET_ACCESS_KEY = $xpath->findvalue("//password");
+
+my $projName = "$[/myProject/projectName]";
+print "Attempting connection with user server\n";
+
+require Amazon::EC2::Client;
+my $config = {
+ ServiceURL => "$[service_url]",
+ UserAgent => "Amazon EC2 Perl Library",
+ SignatureVersion => 2,
+ SignatureMethod => "HmacSHA256",
+ ProxyHost => undef,
+ ProxyPort => -1,
+ MaxErrorRetry => 3
+ };
+my $service = Amazon::EC2::Client->new($AWS_ACCESS_KEY_ID, $AWS_SECRET_ACCESS_KEY, $config);
+
+require Amazon::EC2::Model::DescribeAvailabilityZonesRequest;
+
+my $request = new Amazon::EC2::Model::DescribeAvailabilityZonesRequest();
+
+eval {
+ my $response = $service->describeAvailabilityZones($request);
+
+ print("Service Response\n");
+ print("=============================================================================\n");
+
+ print(" DescribeAvailabilityZonesResponse\n");
+ if ($response->isSetResponseMetadata()) {
+ my $responseMetadata = $response->getResponseMetadata();
+ if ($responseMetadata->isSetRequestId()) {
+ print(" RequestId:");
+ print(" " . $responseMetadata->getRequestId() . "\n");
+ }
+ }
+};
+my $ex = $@;
+if ($ex) {
+ my $errMsg = "Test connection failed.\n";
+ $ec->setProperty("/myJob/configError", $errMsg);
+ print $errMsg;
+
+ $ec->deleteProperty("/projects/$projName/ec2_cfgs/$credName");
+ $ec->deleteCredential($projName, $credName);
+ require Amazon::EC2::Exception;
+ if (ref $ex eq "Amazon::EC2::Exception") {
+ print("Caught Exception: " . $ex->getMessage() . "\n");
+ print("Response Status Code: " . $ex->getStatusCode() . "\n");
+ print("Error Code: " . $ex->getErrorCode() . "\n");
+
+ }
+ else {
+ croak $@;
+ }
+
+ exit ERROR;
+}
+
+exit SUCCESS;
diff --git a/src/main/resources/project/conf/createAndAttachCredential.pl b/src/main/resources/project/conf/createAndAttachCredential.pl
new file mode 100644
index 0000000..b101f00
--- /dev/null
+++ b/src/main/resources/project/conf/createAndAttachCredential.pl
@@ -0,0 +1,65 @@
+##########################
+# createAndAttachCredential.pl
+##########################
+use ElectricCommander;
+
+use constant {
+ SUCCESS => 0,
+ ERROR => 1,
+};
+
+## get an EC object
+my $ec = new ElectricCommander();
+$ec->abortOnError(0);
+
+my $credName = "$[/myJob/config]";
+
+my $xpath = $ec->getFullCredential("credential");
+my $errors = $ec->checkAllErrors($xpath);
+my $userName = $xpath->findvalue("//userName");
+my $password = $xpath->findvalue("//password");
+
+my $projName = "$[/myProject/projectName]";
+print "Creating credential $credName in project $projName with user $userName\n";
+
+# Create credential
+$ec->deleteCredential($projName, $credName);
+$xpath = $ec->createCredential($projName, $credName, $userName, $password);
+$errors .= $ec->checkAllErrors($xpath);
+
+# Give config the credential's real name
+my $configPath = "/projects/$projName/ec2_cfgs/$credName";
+$xpath = $ec->setProperty($configPath . "/credential", $credName);
+$errors .= $ec->checkAllErrors($xpath);
+
+# Give job launcher full permissions on the credential
+my $user = "$[/myJob/launchedByUser]";
+$xpath = $ec->createAclEntry("user", $user,
+ {projectName => $projName,
+ credentialName => $credName,
+ readPrivilege => allow,
+ modifyPrivilege => allow,
+ executePrivilege => allow,
+ changePermissionsPrivilege => allow});
+$errors .= $ec->checkAllErrors($xpath);
+
+# Attach credential to steps that will need it
+$xpath = $ec->attachCredential($projName, $credName,
+ {procedureName => "API_Run",
+ stepName => "run"});
+$errors .= $ec->checkAllErrors($xpath);
+
+$xpath = $ec->attachCredential($projName, $credName,
+ {procedureName => "EC2 Auto Resume",
+ stepName => "Attach Volumes"});
+$errors .= $ec->checkAllErrors($xpath);
+
+if ("$errors" ne "") {
+ # Cleanup the partially created configuration we just created
+ $ec->deleteProperty($configPath);
+ $ec->deleteCredential($projName, $credName);
+ my $errMsg = "Error creating configuration credential: " . $errors;
+ $ec->setProperty("/myJob/configError", $errMsg);
+ print $errMsg;
+ exit 1;
+}
diff --git a/src/main/resources/project/conf/createcfg.pl b/src/main/resources/project/conf/createcfg.pl
new file mode 100644
index 0000000..3639931
--- /dev/null
+++ b/src/main/resources/project/conf/createcfg.pl
@@ -0,0 +1,66 @@
+#########################
+## createcfg.pl
+#########################
+
+use ElectricCommander;
+use ElectricCommander::PropDB;
+
+use constant {
+ SUCCESS => 0,
+ ERROR => 1,
+ };
+
+my $opts;
+
+my $PLUGIN_NAME = "EC-EC2";
+
+if (!defined $PLUGIN_NAME) {
+ print "PLUGIN_NAME must be defined\n";
+ exit ERROR;
+}
+
+## get an EC object
+my $ec = new ElectricCommander();
+$ec->abortOnError(0);
+
+## load option list from procedure parameters
+my $x = $ec->getJobDetails($ENV{COMMANDER_JOBID});
+my $nodeset = $x->find('//actualParameter');
+foreach my $node ($nodeset->get_nodelist) {
+ my $parm = $node->findvalue('actualParameterName');
+ my $val = $node->findvalue('value');
+ $opts->{$parm} = "$val";
+}
+
+if (!defined $opts->{config} || "$opts->{config}" eq "") {
+ print "config parameter must exist and be non-blank\n";
+ exit ERROR;
+}
+
+# check to see if a config with this name already exists before we do anything else
+my $xpath = $ec->getProperty("/myProject/ec2_cfgs/$opts->{config}");
+my $property = $xpath->findvalue("//response/property/propertyName");
+
+if (defined $property && "$property" ne "") {
+ my $errMsg = "A connection named '$opts->{config}' already exists.";
+ $ec->setProperty("/myJob/configError", $errMsg);
+ print $errMsg;
+ exit ERROR;
+}
+
+my $cfg = new ElectricCommander::PropDB($ec, "/myProject/ec2_cfgs");
+my $errors = $ec->checkAllErrors($xpath);
+
+# add all the options as properties
+foreach my $key (keys %{$opts}) {
+ if ("$key" eq "config") {
+ next;
+ }
+ $cfg->setCol("$opts->{config}", "$key", "$opts->{$key}");
+
+
+}
+
+
+
+exit SUCCESS;
diff --git a/src/main/resources/project/conf/deleteConfiguration.pl b/src/main/resources/project/conf/deleteConfiguration.pl
new file mode 100644
index 0000000..908ee8f
--- /dev/null
+++ b/src/main/resources/project/conf/deleteConfiguration.pl
@@ -0,0 +1,9 @@
+use ElectricCommander;
+
+my $ec = new ElectricCommander();
+
+my $projName = "@PLUGIN_NAME@";
+
+$ec->deleteProperty("/projects/$projName/ec2_cfgs/$[config]");
+$ec->deleteCredential($projName, "$[config]");
+exit 0;
diff --git a/src/main/resources/project/createNames.pl b/src/main/resources/project/createNames.pl
new file mode 100644
index 0000000..f72b56a
--- /dev/null
+++ b/src/main/resources/project/createNames.pl
@@ -0,0 +1,43 @@
+use ElectricCommander;
+
+sub main()
+{
+ my $res = "$[propResult]/InstanceList";
+
+ my $ec = new ElectricCommander();
+ my $instProp = $ec->getProperty($res)->findvalue("//value")->value();
+
+ my @instances = split(';', $instProp);
+
+ for my $num (0..$#instances) {
+
+ my $inum = $ec->incrementProperty("/myProject/instanceCounter")->findvalue("//value")->value();
+ my $name = "EC-EC2Instance-" . $inum;
+
+ my $xpath = $ec->runProcedure( '$[/myProject/projectName]',
+ {
+ procedureName => "API_CreateTags",
+ pollInterval => '1',
+ timeout => 600,
+ actualParameter => [ { actualParameterName => 'config', value => $[config] },
+ { actualParameterName => 'resourceId', value => $instances[$num] },
+ { actualParameterName => 'tagsMap', value => "Name => $name" },
+ ]
+ }
+ );
+
+ my $out = $xpath->findvalue("//outcome");
+
+ if($out eq "success") {
+
+ print "Assign name $name to instance $instances[$num]\n";
+ }
+ else {
+
+ print "Warning: can't assign name to instance $instance[$num]\n";
+
+ }
+ }
+}
+
+main();
diff --git a/src/main/resources/project/ec_setup.pl b/src/main/resources/project/ec_setup.pl
new file mode 100644
index 0000000..10a15e0
--- /dev/null
+++ b/src/main/resources/project/ec_setup.pl
@@ -0,0 +1,331 @@
+my $pluginName = q{@PLUGIN_NAME@};
+my $pluginKey = q{@PLUGIN_KEY@};
+
+my %allocateip = (
+ label => "EC2 - Allocate IP",
+ procedure => "API_AllocateIP",
+ description => "Allocate an Elastic IP",
+ category => "Resource Management"
+);
+
+
+my %associateip = (
+ label => "EC2 - Associate IP",
+ procedure => "API_AssociateIP",
+ description => "Associate an Elastic IP to an instance",
+ category => "Resource Management"
+);
+
+my %attachvolumes = (
+ label => "EC2 - Attach Volumes",
+ procedure => "API_AttachVolumes",
+ description => "Attach a list of volumes to a list of instances",
+ category => "Resource Management"
+);
+
+my %createimage = (
+ label => "EC2 - Create Image",
+ procedure => "API_CreateImage",
+ description => "Make a copy of an EBS instance",
+ category => "Resource Management"
+);
+
+my %createkey = (
+ label => "EC2 - Create Key",
+ procedure => "API_CreateKey",
+ description => "Create a new key pair",
+ category => "Resource Management"
+);
+
+my %deletekey = (
+ label => "EC2 - Delete Key",
+ procedure => "API_DeleteKey",
+ description => "Delete security Key pair",
+ category => "Resource Management"
+);
+
+my %deletevolume = (
+ label => "EC2 - Delete Volume",
+ procedure => "API_DeleteVolume",
+ description => "Delete an EBS volume",
+ category => "Resource Management"
+);
+
+my %releaseip = (
+ label => "EC2 - Release IP",
+ procedure => "API_ReleaseIP",
+ description => "Release an Elastic IP address",
+ category => "Resource Management"
+);
+
+my %runinstances = (
+ label => "EC2 - Run Instances",
+ procedure => "API_RunInstances",
+ description => "Start one or more instances from a machine image",
+ category => "Resource Management"
+);
+
+my %startinstance = (
+ label => "EC2 - Start Instance",
+ procedure => "API_StartInstance",
+ description => "Start an EBS backed instance that has been stopped",
+ category => "Resource Management"
+);
+
+my %stopinstance = (
+ label => "EC2 - Stop Instance",
+ procedure => "API_StopInstance",
+ description => "Stop an EBS backed instance. Data will not be lost",
+ category => "Resource Management"
+);
+
+my %terminate = (
+ label => "EC2 - Terminate",
+ procedure => "API_Terminate",
+ description => "Terminate an instance. Any data created or changes made to the disk will be lost",
+ category => "Resource Management"
+);
+my %teardownresource = (
+ label => "EC2 - Tear Down Resource",
+ procedure => "API_TearDownResource",
+ description => "Tear down resource with instance termination",
+ category => "Resource Management"
+);
+
+my %autocleanup = (
+ label => "EC2 - Auto Cleanup",
+ procedure => "EC2 Auto Cleanup",
+ description => "Cleanup an auto deployed EC2 instance. The keypair, storage, elastic IP, and security settings will all be deleted",
+ category => "Resource Management"
+);
+
+my %autodeploy = (
+ label => "EC2 - Auto Deploy",
+ procedure => "EC2 Auto Deploy",
+ description => "A procedure to deploy an EC2 instance. The keypair, storage, elastic IP, and security settings will all be automatically created and associated",
+ category => "Resource Management"
+);
+
+my %autopause = (
+ label => "EC2 - Auto Pause",
+ procedure => "EC2 Auto Pause",
+ description => "Pause a deployed instance-store backed instance. This disconnects volumes and saves them, it then terminates the instance. Auto Resume will start a new instance and re-attach the volumes",
+ category => "Resource Management"
+);
+
+my %autoresume = (
+ label => "EC2 - Auto Resume",
+ procedure => "EC2 Auto Resume",
+ description => "Resume a paused instance-store backed instance. A new instance is started and the saved volumes are re-attached",
+ category => "Resource Management"
+);
+
+my %snapattachedvolume = (
+ label => "EC2 - Snap Attached Volume",
+ procedure => "Snap Attached Volume",
+ description => "Create a new snapshot from volume attached to instance. Note, only snaps first volume found",
+ category => "Resource Management"
+);
+my %createTags = (
+ label => "EC2 - Create Tags",
+ procedure => "API_CreateTags",
+ description => "Adds or overwrites one or more tags for the specified Amazon EC2 resource or resources.",
+ category => "Resource Management"
+);
+my %test = (
+ label => "EC2 - Test",
+ procedure => "Test",
+ description => "Deploy instances with volumes attached and clean up afterwards.",
+ category => "Resource Management"
+);
+
+
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC-EC2 - CloudManagerShrink");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC-EC2 - CloudManagerGrow");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC-EC2 - API_AllocateIP");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC-EC2 - API_DescribeInstances");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC-EC2 - API_AssociateIP");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC-EC2 - API_AttachVolumes");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC-EC2 - Attacholumes");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC-EC2 - API_CreateImage");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC-EC2 - API_CreateKey");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC-EC2 - API_DeleteKey");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC-EC2 - API_DeleteVolume");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC-EC2 - API_ReleaseIP");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC-EC2 - API_RunInstances");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC-EC2 - API_StartInstance");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC-EC2 - API_StopInstance");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC-EC2 - API_Terminate");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC-EC2 - API_TearDownResource");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC-EC2 - EC2_Auto_Cleanup");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC-EC2 - EC2_Auto_Deploy");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC-EC2 - EC2_Auto_Pause");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC-EC2 - EC2_Auto_Resume");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC-EC2 - Snap_Attached_Volume");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC-EC2 - Tear Down Resource");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC-EC2 - Test");
+
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - CloudManagerShrink");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - CloudManagerGrow");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - API_AllocateIP");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - API_DescribeInstances");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - API_AssociateIP");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - API_AttachVolumes");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - Attacholumes");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - API_CreateImage");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - API_CreateKey");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - API_DeleteKey");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - API_DeleteVolume");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - API_ReleaseIP");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - API_RunInstances");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - API_StartInstance");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - API_StopInstance");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - API_Terminate");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - API_TearDownResource");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - EC2_Auto_Cleanup");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - EC2_Auto_Deploy");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - EC2_Auto_Pause");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - EC2_Auto_Resume");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - Snap_Attached_Volume");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - Tear Down Resource");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - Test");
+
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - Allocate IP");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - Associate IP");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - Attach Volumes");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - Create Image");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - Create Key");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - Delete Key");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - Delete Volume");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - Release IP");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - Run Instances");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - Start Instance");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - Stop Instance");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - Terminate");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - Auto Cleanup");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - Auto Deploy");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - Auto Pause");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - Auto Resume");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - Snap Attached Volume");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - Test");
+$batch->deleteProperty("/server/ec_customEditors/pickerStep/EC2 - Tear Down Resource");
+
+@::createStepPickerSteps = (\%allocateip, \%associateip, \%attachvolumes, \%createimage, \%createkey, \%deletekey, \%deletevolume, \%releaseip, \%runinstances, \%startinstance, \%stopinstance, \%terminate, \%autocleanup, \%autodeploy, \%autopause, \%autoresume, \%snapattachedvolume, \%test, \%teardownresource, \%createTags);
+
+if ($promoteAction ne '') {
+ my @objTypes = ('projects', 'resources', 'workspaces');
+ my $query = $commander->newBatch();
+ my @reqs = map { $query->getAclEntry('user', "project: $pluginName", { systemObjectName => $_ }) } @objTypes;
+ push @reqs, $query->getProperty('/server/ec_hooks/promote');
+ $query->submit();
+
+ foreach my $type (@objTypes) {
+ if ($query->findvalue(shift @reqs, 'code') ne 'NoSuchAclEntry') {
+ $batch->deleteAclEntry('user', "project: $pluginName", { systemObjectName => $type });
+ }
+ }
+
+ if ($promoteAction eq 'promote') {
+ foreach my $type (@objTypes) {
+ $batch->createAclEntry(
+ 'user',
+ "project: $pluginName",
+ {
+ systemObjectName => $type,
+ readPrivilege => 'allow',
+ modifyPrivilege => 'allow',
+ executePrivilege => 'allow',
+ changePermissionsPrivilege => 'allow'
+ }
+ );
+ }
+ }
+}
+if ($upgradeAction eq 'upgrade') {
+ my $query = $commander->newBatch();
+ my $cfgs = $query->getProperty("/plugins/$otherPluginName/project/ec2_cfgs");
+ my $creds = $query->getCredentials("\$[/plugins/$otherPluginName]");
+
+ local $self->{abortOnError} = 0;
+ $query->submit();
+
+ # Copy configurations from $otherPluginName
+ if ($query->findvalue($cfgs, 'code') ne 'NoSuchProperty') {
+ $batch->clone(
+ {
+ path => "/plugins/$otherPluginName/project/ec2_cfgs",
+ cloneName => "/plugins/$pluginName/project/ec2_cfgs"
+ }
+ );
+ }
+
+ # Copy configuration credentials and attach them to the appropriate steps
+ my $nodes = $query->find($creds);
+ if ($nodes) {
+ my @nodes = $nodes->findnodes('credential/credentialName');
+ for (@nodes) {
+ my $cred = $_->string_value;
+
+ # Clone the credential
+ $batch->clone(
+ {
+ path => "/plugins/$otherPluginName/project/credentials/$cred",
+ cloneName => "/plugins/$pluginName/project/credentials/$cred"
+ }
+ );
+
+ # Make sure the credential has an ACL entry for the new project principal
+ my $xpath = $commander->getAclEntry(
+ "user",
+ "project: $pluginName",
+ {
+ projectName => $otherPluginName,
+ credentialName => $cred
+ }
+ );
+ if ($xpath->findvalue('//code') eq 'NoSuchAclEntry') {
+ $batch->deleteAclEntry(
+ "user",
+ "project: $otherPluginName",
+ {
+ projectName => $pluginName,
+ credentialName => $cred
+ }
+ );
+ $batch->createAclEntry(
+ "user",
+ "project: $pluginName",
+ {
+ projectName => $pluginName,
+ credentialName => $cred,
+ readPrivilege => "allow",
+ modifyPrivilege => "allow",
+ executePrivilege => "allow",
+ changePermissionsPrivilege => "allow"
+ }
+ );
+ }
+
+ # Attach the credential to the appropriate steps
+ $batch->attachCredential(
+ "\$[/plugins/$pluginName/project]",
+ $cred,
+ {
+ procedureName => 'API_Run',
+ stepName => 'run'
+ }
+ );
+
+ $batch->attachCredential(
+ "\$[/plugins/$pluginName/project]",
+ $cred,
+ {
+ procedureName => 'EC2 Auto Resume',
+ stepName => 'Attach Volumes'
+ }
+ );
+ }
+ }
+}
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Client.pm b/src/main/resources/project/lib/Amazon/EC2/Client.pm
new file mode 100644
index 0000000..e011145
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Client.pm
@@ -0,0 +1,5056 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+
+package Amazon::EC2::Client;
+use strict;
+use warnings;
+use Digest::SHA qw (hmac_sha1_base64 hmac_sha256_base64);
+use XML::Simple;
+use LWP::UserAgent;
+use URI;
+use URI::Escape;
+use Time::HiRes qw(usleep);
+use Carp qw(croak);
+use File::Basename;
+use ElectricCommander;
+use ElectricCommander::PropMod qw(/myProject/lib);
+use XML::XSLT;
+use XML::LibXML;
+use Cwd ();
+use Amazon::EC2::Exception;
+
+my $SERVICE_VERSION = "2010-06-15";
+
+#
+ # The Amazon Elastic Compute Cloud (Amazon EC2) web
+ # service provides you with
+ # the ability to execute your applications in
+ # Amazon's computing environment.
+ # To use Amazon EC2 you simply:
+ # 1. Create an Amazon Machine Image (AMI) containing all your software,
+ # including your operating system and associated configuration settings,
+ # applications, libraries, etc. Think of this as zipping up the contents
+ # of your hard drive. We provide all the necessary tools to create and
+ # package your AMI.
+ # 2. Upload this AMI to the Amazon S3 (Amazon Simple
+ # Storage Service) service. This gives us reliable,
+ # secure access to your AMI.
+ # 3. Register your AMI with Amazon EC2. This allows us to verify
+ # that your AMI has been uploaded correctly and to allocate a unique
+ # identifier for it.
+ # 4. Use this AMI ID and the Amazon EC2 web service
+ # APIs to run, monitor, and
+ # terminate as many instances of this AMI as
+ # required.
+ # You can also skip the first three steps and choose to launch
+ # an AMI that is provided by Amazon or shared by another user.
+ # While instances are running, you are billed for the computing
+ # and network resources that they consume.
+ # You can also skip the first three steps
+ # and choose to launch an AMI that is
+ # provided by Amazon or shared by
+ # another user.
+ # While instances are running, you are billed for the
+ # computing and network
+ # resources that they consume.
+# Amazon::EC2::Client is the implementation of service API
+#
+#
+
+ #
+ # Construct new Http Client
+ #
+ # Valid configuration options are:
+ #
+ # ServiceURL
+ # UserAgent
+ # SignatureVersion
+ # MaxErrorRetry
+ # ProxyHost
+ # ProxyPort
+ # MaxErrorRetry
+ #
+ sub new {
+ my ($class, $awsAccessKeyId, $awsSecretAccessKey, $config) = @_;
+ my $defaultConfig = {
+ ServiceURL => "http://localhost/",#ServiceURL => "https://ec2.amazonaws.com",
+ UserAgent => "Amazon EC2 Perl Library",
+ SignatureVersion => 2,
+ SignatureMethod => "HmacSHA256",
+ ProxyHost => undef,
+ ProxyPort => -1,
+ MaxErrorRetry => 3
+ };
+ my $self = {};
+ $self->{_awsAccessKeyId} = $awsAccessKeyId;
+ $self->{_awsSecretAccessKey} = $awsSecretAccessKey;
+ $self->{_config} = $defaultConfig;
+ $self->{_config} = {%$defaultConfig, %$config} if defined ($config);
+ $self->{_xml_parser} = XML::LibXML->new();
+ #$self->{_xslt_parser} = XML::LibXSLT->new();
+ return bless ($self, $class);
+ }
+
+ # Public API ------------------------------------------------------------#
+
+
+
+ #
+ # Activate License
+ # Activates a specific number of licenses for a 90-day period.
+ # Activations can be done against a specific license ID.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-ActivateLicense.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::ActivateLicenseRequest request
+ # or Amazon::EC2::Model::ActivateLicenseRequest object itself
+ # See Amazon::EC2::Model::ActivateLicenseRequest for valid arguments
+ # Returns Amazon::EC2::Model::ActivateLicenseResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub activateLicense {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::ActivateLicenseRequest") {
+ require Amazon::EC2::Model::ActivateLicenseRequest;
+ $request = Amazon::EC2::Model::ActivateLicenseRequest->new($request);
+ }
+ require Amazon::EC2::Model::ActivateLicenseResponse;
+ return Amazon::EC2::Model::ActivateLicenseResponse->fromXML($self->_invoke($self->_convertActivateLicense($request)));
+ }
+
+
+
+ #
+ # Allocate Address
+ # The AllocateAddress operation acquires an elastic
+ # IP address for use with your account.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-AllocateAddress.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::AllocateAddressRequest request
+ # or Amazon::EC2::Model::AllocateAddressRequest object itself
+ # See Amazon::EC2::Model::AllocateAddressRequest for valid arguments
+ # Returns Amazon::EC2::Model::AllocateAddressResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub allocateAddress {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::AllocateAddressRequest") {
+ require Amazon::EC2::Model::AllocateAddressRequest;
+ $request = Amazon::EC2::Model::AllocateAddressRequest->new($request);
+ }
+ require Amazon::EC2::Model::AllocateAddressResponse;
+ return Amazon::EC2::Model::AllocateAddressResponse->fromXML($self->_invoke($self->_convertAllocateAddress($request)));
+ }
+
+
+
+ #
+ # Associate Address
+ # The AssociateAddress operation associates an
+ # elastic IP address with an instance.
+ # If the IP address is currently
+ # assigned to another instance, the IP
+ # address is assigned to the new
+ # instance. This is an idempotent operation. If you enter
+ # it more than once, Amazon EC2 does not return an error.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-AssociateAddress.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::AssociateAddressRequest request
+ # or Amazon::EC2::Model::AssociateAddressRequest object itself
+ # See Amazon::EC2::Model::AssociateAddressRequest for valid arguments
+ # Returns Amazon::EC2::Model::AssociateAddressResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub associateAddress {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::AssociateAddressRequest") {
+ require Amazon::EC2::Model::AssociateAddressRequest;
+ $request = Amazon::EC2::Model::AssociateAddressRequest->new($request);
+ }
+ require Amazon::EC2::Model::AssociateAddressResponse;
+ return Amazon::EC2::Model::AssociateAddressResponse->fromXML($self->_invoke($self->_convertAssociateAddress($request)));
+ }
+
+
+
+ #
+ # Attach Volume
+ # Attach a previously created volume to a running
+ # instance.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-AttachVolume.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::AttachVolumeRequest request
+ # or Amazon::EC2::Model::AttachVolumeRequest object itself
+ # See Amazon::EC2::Model::AttachVolumeRequest for valid arguments
+ # Returns Amazon::EC2::Model::AttachVolumeResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub attachVolume {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::AttachVolumeRequest") {
+ require Amazon::EC2::Model::AttachVolumeRequest;
+ $request = Amazon::EC2::Model::AttachVolumeRequest->new($request);
+ }
+ require Amazon::EC2::Model::AttachVolumeResponse;
+ return Amazon::EC2::Model::AttachVolumeResponse->fromXML($self->_invoke($self->_convertAttachVolume($request)));
+ }
+
+
+
+ #
+ # Authorize Security Group Ingress
+ # The AuthorizeSecurityGroupIngress operation adds
+ # permissions to a security group.
+ # Permissions are specified by the IP
+ # protocol (TCP, UDP or ICMP), the source of
+ # the request (by IP range
+ # or an Amazon EC2 user-group pair), the
+ # source and destination port ranges (for TCP and UDP),
+ # and the ICMP codes and types (for ICMP).
+ # When authorizing ICMP, -1 can be used as a wildcard in the
+ # type and code fields.
+ # Permission changes are propagated to instances within the
+ # security group as quickly as possible. However, depending on the
+ # number of instances, a small
+ # delay might occur.
+ # When authorizing a user/group pair permission, GroupName,
+ # SourceSecurityGroupName and
+ # SourceSecurityGroupOwnerId must be
+ # specified. When authorizing a CIDR
+ # IP permission, GroupName, IpProtocol, FromPort, ToPort and
+ # CidrIp must be specified. Mixing these two types of parameters is
+ # not allowed.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-AuthorizeSecurityGroupIngress.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::AuthorizeSecurityGroupIngressRequest request
+ # or Amazon::EC2::Model::AuthorizeSecurityGroupIngressRequest object itself
+ # See Amazon::EC2::Model::AuthorizeSecurityGroupIngressRequest for valid arguments
+ # Returns Amazon::EC2::Model::AuthorizeSecurityGroupIngressResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub authorizeSecurityGroupIngress {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::AuthorizeSecurityGroupIngressRequest") {
+ require Amazon::EC2::Model::AuthorizeSecurityGroupIngressRequest;
+ $request = Amazon::EC2::Model::AuthorizeSecurityGroupIngressRequest->new($request);
+ }
+ require Amazon::EC2::Model::AuthorizeSecurityGroupIngressResponse;
+ return Amazon::EC2::Model::AuthorizeSecurityGroupIngressResponse->fromXML($self->_invoke($self->_convertAuthorizeSecurityGroupIngress($request)));
+ }
+
+
+
+ #
+ # Bundle Instance
+ # The BundleInstance operation request that an
+ # instance is bundled the next time it boots.
+ # The bundling process creates a new image from a running instance and
+ # stores the AMI data in S3. Once bundled, the image must be registered in the
+ # normal way using the RegisterImage API.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-BundleInstance.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::BundleInstanceRequest request
+ # or Amazon::EC2::Model::BundleInstanceRequest object itself
+ # See Amazon::EC2::Model::BundleInstanceRequest for valid arguments
+ # Returns Amazon::EC2::Model::BundleInstanceResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub bundleInstance {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::BundleInstanceRequest") {
+ require Amazon::EC2::Model::BundleInstanceRequest;
+ $request = Amazon::EC2::Model::BundleInstanceRequest->new($request);
+ }
+ require Amazon::EC2::Model::BundleInstanceResponse;
+ return Amazon::EC2::Model::BundleInstanceResponse->fromXML($self->_invoke($self->_convertBundleInstance($request)));
+ }
+
+
+
+ #
+ # Cancel Bundle Task
+ # CancelBundleTask operation cancels a pending or
+ # in-progress bundling task. This is an asynchronous
+ # call and it make
+ # take a while for the task to be cancelled.
+ # If a task is cancelled
+ # while it is storing items,
+ # there may be parts of the incomplete AMI
+ # stored in S3.
+ # It is up to the caller to clean up these parts from S3.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-CancelBundleTask.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::CancelBundleTaskRequest request
+ # or Amazon::EC2::Model::CancelBundleTaskRequest object itself
+ # See Amazon::EC2::Model::CancelBundleTaskRequest for valid arguments
+ # Returns Amazon::EC2::Model::CancelBundleTaskResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub cancelBundleTask {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::CancelBundleTaskRequest") {
+ require Amazon::EC2::Model::CancelBundleTaskRequest;
+ $request = Amazon::EC2::Model::CancelBundleTaskRequest->new($request);
+ }
+ require Amazon::EC2::Model::CancelBundleTaskResponse;
+ return Amazon::EC2::Model::CancelBundleTaskResponse->fromXML($self->_invoke($self->_convertCancelBundleTask($request)));
+ }
+
+
+
+ #
+ # Confirm Product Instance
+ # The ConfirmProductInstance operation returns true
+ # if the specified product code
+ # is attached to the specified instance.
+ # The operation returns false if the
+ # product code is not attached to the
+ # instance.
+ # The ConfirmProductInstance operation can only be executed
+ # by the owner of the
+ # AMI. This feature is useful when an AMI owner is
+ # providing support and wants to
+ # verify whether a user's instance is eligible.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-ConfirmProductInstance.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::ConfirmProductInstanceRequest request
+ # or Amazon::EC2::Model::ConfirmProductInstanceRequest object itself
+ # See Amazon::EC2::Model::ConfirmProductInstanceRequest for valid arguments
+ # Returns Amazon::EC2::Model::ConfirmProductInstanceResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub confirmProductInstance {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::ConfirmProductInstanceRequest") {
+ require Amazon::EC2::Model::ConfirmProductInstanceRequest;
+ $request = Amazon::EC2::Model::ConfirmProductInstanceRequest->new($request);
+ }
+ require Amazon::EC2::Model::ConfirmProductInstanceResponse;
+ return Amazon::EC2::Model::ConfirmProductInstanceResponse->fromXML($self->_invoke($self->_convertConfirmProductInstance($request)));
+ }
+
+
+
+ #
+ # Create Image
+ # Creates an AMI that uses an Amazon EBS root
+ # device from a "running" or "stopped" instance.
+ # AMIs that use an Amazon EBS root device boot
+ # faster than AMIs that use instance stores. They
+ # can be up to 1 TiB in size, use storage that
+ # persists on instance failure, and can be stopped and started.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-CreateImage.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::CreateImageRequest request
+ # or Amazon::EC2::Model::CreateImageRequest object itself
+ # See Amazon::EC2::Model::CreateImageRequest for valid arguments
+ # Returns Amazon::EC2::Model::CreateImageResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub createImage {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::CreateImageRequest") {
+ require Amazon::EC2::Model::CreateImageRequest;
+ $request = Amazon::EC2::Model::CreateImageRequest->new($request);
+ }
+ require Amazon::EC2::Model::CreateImageResponse;
+ return Amazon::EC2::Model::CreateImageResponse->fromXML($self->_invoke($self->_convertCreateImage($request)));
+ }
+
+
+
+ #
+ # Create Key Pair
+ # The CreateKeyPair operation creates a new 2048
+ # bit RSA key pair and returns a
+ # unique ID that can be used to reference
+ # this key pair when launching new
+ # instances. For more information, see
+ # RunInstances.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-CreateKeyPair.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::CreateKeyPairRequest request
+ # or Amazon::EC2::Model::CreateKeyPairRequest object itself
+ # See Amazon::EC2::Model::CreateKeyPairRequest for valid arguments
+ # Returns Amazon::EC2::Model::CreateKeyPairResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub createKeyPair {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::CreateKeyPairRequest") {
+ require Amazon::EC2::Model::CreateKeyPairRequest;
+ $request = Amazon::EC2::Model::CreateKeyPairRequest->new($request);
+ }
+ require Amazon::EC2::Model::CreateKeyPairResponse;
+ return Amazon::EC2::Model::CreateKeyPairResponse->fromXML($self->_invoke($self->_convertCreateKeyPair($request)));
+ }
+
+
+
+ #
+ # Create Placement Group
+ # The CreateKeyPair operation creates a new 2048
+ # bit RSA key pair and returns a
+ # unique ID that can be used to reference
+ # this key pair when launching new
+ # instances. For more information, see
+ # RunInstances.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-CreatePlacementGroup.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::CreatePlacementGroupRequest request
+ # or Amazon::EC2::Model::CreatePlacementGroupRequest object itself
+ # See Amazon::EC2::Model::CreatePlacementGroupRequest for valid arguments
+ # Returns Amazon::EC2::Model::CreatePlacementGroupResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub createPlacementGroup {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::CreatePlacementGroupRequest") {
+ require Amazon::EC2::Model::CreatePlacementGroupRequest;
+ $request = Amazon::EC2::Model::CreatePlacementGroupRequest->new($request);
+ }
+ require Amazon::EC2::Model::CreatePlacementGroupResponse;
+ return Amazon::EC2::Model::CreatePlacementGroupResponse->fromXML($self->_invoke($self->_convertCreatePlacementGroup($request)));
+ }
+
+
+
+ #
+ # Create Security Group
+ # The CreateSecurityGroup operation creates a new
+ # security group.
+ # Every instance is launched in a security group. If no security group is
+ # specified during launch, the instances are launched in the default
+ # security group. Instances within the same security
+ # group have unrestricted network access to each other. Instances will
+ # reject network access attempts from other instances in a different
+ # security group. As the owner of instances you can grant or revoke
+ # specific permissions using the AuthorizeSecurityGroupIngress
+ # and RevokeSecurityGroupIngress operations.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-CreateSecurityGroup.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::CreateSecurityGroupRequest request
+ # or Amazon::EC2::Model::CreateSecurityGroupRequest object itself
+ # See Amazon::EC2::Model::CreateSecurityGroupRequest for valid arguments
+ # Returns Amazon::EC2::Model::CreateSecurityGroupResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub createSecurityGroup {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::CreateSecurityGroupRequest") {
+ require Amazon::EC2::Model::CreateSecurityGroupRequest;
+ $request = Amazon::EC2::Model::CreateSecurityGroupRequest->new($request);
+ }
+ require Amazon::EC2::Model::CreateSecurityGroupResponse;
+ return Amazon::EC2::Model::CreateSecurityGroupResponse->fromXML($self->_invoke($self->_convertCreateSecurityGroup($request)));
+ }
+
+
+
+ #
+ # Create Snapshot
+ # Create a snapshot of the volume identified by
+ # volume ID. A volume does not have to be detached
+ # at the time the snapshot is taken.
+ # Important Note:
+ # Snapshot creation requires that the
+ # system is in a consistent state.
+ # For instance, this means that if
+ # taking a snapshot of a database, the
+ # tables must be read-only locked
+ # to ensure that the snapshot will not contain a
+ # corrupted version of the database. Therefore,
+ # be careful when using this API to ensure that
+ # the system remains in the consistent state until the create
+ # snapshot status has returned.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-CreateSnapshot.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::CreateSnapshotRequest request
+ # or Amazon::EC2::Model::CreateSnapshotRequest object itself
+ # See Amazon::EC2::Model::CreateSnapshotRequest for valid arguments
+ # Returns Amazon::EC2::Model::CreateSnapshotResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub createSnapshot {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::CreateSnapshotRequest") {
+ require Amazon::EC2::Model::CreateSnapshotRequest;
+ $request = Amazon::EC2::Model::CreateSnapshotRequest->new($request);
+ }
+ require Amazon::EC2::Model::CreateSnapshotResponse;
+ return Amazon::EC2::Model::CreateSnapshotResponse->fromXML($self->_invoke($self->_convertCreateSnapshot($request)));
+ }
+
+
+
+ #
+ # Create Volume
+ # Initializes an empty volume of a given size
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-CreateVolume.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::CreateVolumeRequest request
+ # or Amazon::EC2::Model::CreateVolumeRequest object itself
+ # See Amazon::EC2::Model::CreateVolumeRequest for valid arguments
+ # Returns Amazon::EC2::Model::CreateVolumeResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub createVolume {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::CreateVolumeRequest") {
+ require Amazon::EC2::Model::CreateVolumeRequest;
+ $request = Amazon::EC2::Model::CreateVolumeRequest->new($request);
+ }
+ require Amazon::EC2::Model::CreateVolumeResponse;
+ return Amazon::EC2::Model::CreateVolumeResponse->fromXML($self->_invoke($self->_convertCreateVolume($request)));
+ }
+
+
+
+ #
+ # Deactivate License
+ # Deactivates a specific number of licenses.
+ # Deactivations can be done against a specific license ID
+ # after they have persisted for at least a 90-day period.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DeactivateLicense.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DeactivateLicenseRequest request
+ # or Amazon::EC2::Model::DeactivateLicenseRequest object itself
+ # See Amazon::EC2::Model::DeactivateLicenseRequest for valid arguments
+ # Returns Amazon::EC2::Model::DeactivateLicenseResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub deactivateLicense {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DeactivateLicenseRequest") {
+ require Amazon::EC2::Model::DeactivateLicenseRequest;
+ $request = Amazon::EC2::Model::DeactivateLicenseRequest->new($request);
+ }
+ require Amazon::EC2::Model::DeactivateLicenseResponse;
+ return Amazon::EC2::Model::DeactivateLicenseResponse->fromXML($self->_invoke($self->_convertDeactivateLicense($request)));
+ }
+
+
+
+ #
+ # Delete Key Pair
+ # The DeleteKeyPair operation deletes a key pair.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DeleteKeyPair.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DeleteKeyPairRequest request
+ # or Amazon::EC2::Model::DeleteKeyPairRequest object itself
+ # See Amazon::EC2::Model::DeleteKeyPairRequest for valid arguments
+ # Returns Amazon::EC2::Model::DeleteKeyPairResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub deleteKeyPair {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DeleteKeyPairRequest") {
+ require Amazon::EC2::Model::DeleteKeyPairRequest;
+ $request = Amazon::EC2::Model::DeleteKeyPairRequest->new($request);
+ }
+ require Amazon::EC2::Model::DeleteKeyPairResponse;
+ return Amazon::EC2::Model::DeleteKeyPairResponse->fromXML($self->_invoke($self->_convertDeleteKeyPair($request)));
+ }
+
+
+
+ #
+ # Delete Placement Group
+ # The DeletePlacementGroup operation deletes a placement group.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DeletePlacementGroup.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DeletePlacementGroupRequest request
+ # or Amazon::EC2::Model::DeletePlacementGroupRequest object itself
+ # See Amazon::EC2::Model::DeletePlacementGroupRequest for valid arguments
+ # Returns Amazon::EC2::Model::DeletePlacementGroupResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub deletePlacementGroup {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DeletePlacementGroupRequest") {
+ require Amazon::EC2::Model::DeletePlacementGroupRequest;
+ $request = Amazon::EC2::Model::DeletePlacementGroupRequest->new($request);
+ }
+ require Amazon::EC2::Model::DeletePlacementGroupResponse;
+ return Amazon::EC2::Model::DeletePlacementGroupResponse->fromXML($self->_invoke($self->_convertDeletePlacementGroup($request)));
+ }
+
+
+
+ #
+ # Delete Security Group
+ # The DeleteSecurityGroup operation deletes a
+ # security group.
+ # Note:
+ # If you attempt to delete a security group that
+ # contains instances, a fault is returned.
+ # If you attempt to delete a
+ # security group that is referenced by
+ # another security group, a fault
+ # is returned. For example, if security group B has a
+ # rule that allows access from security group A, security group A
+ # cannot be deleted until the allow rule is removed.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DeleteSecurityGroup.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DeleteSecurityGroupRequest request
+ # or Amazon::EC2::Model::DeleteSecurityGroupRequest object itself
+ # See Amazon::EC2::Model::DeleteSecurityGroupRequest for valid arguments
+ # Returns Amazon::EC2::Model::DeleteSecurityGroupResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub deleteSecurityGroup {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DeleteSecurityGroupRequest") {
+ require Amazon::EC2::Model::DeleteSecurityGroupRequest;
+ $request = Amazon::EC2::Model::DeleteSecurityGroupRequest->new($request);
+ }
+ require Amazon::EC2::Model::DeleteSecurityGroupResponse;
+ return Amazon::EC2::Model::DeleteSecurityGroupResponse->fromXML($self->_invoke($self->_convertDeleteSecurityGroup($request)));
+ }
+
+
+
+ #
+ # Delete Snapshot
+ # Deletes the snapshot identitied by snapshotId.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DeleteSnapshot.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DeleteSnapshotRequest request
+ # or Amazon::EC2::Model::DeleteSnapshotRequest object itself
+ # See Amazon::EC2::Model::DeleteSnapshotRequest for valid arguments
+ # Returns Amazon::EC2::Model::DeleteSnapshotResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub deleteSnapshot {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DeleteSnapshotRequest") {
+ require Amazon::EC2::Model::DeleteSnapshotRequest;
+ $request = Amazon::EC2::Model::DeleteSnapshotRequest->new($request);
+ }
+ require Amazon::EC2::Model::DeleteSnapshotResponse;
+ return Amazon::EC2::Model::DeleteSnapshotResponse->fromXML($self->_invoke($self->_convertDeleteSnapshot($request)));
+ }
+
+
+
+ #
+ # Delete Volume
+ # Deletes a previously created volume. Once
+ # successfully deleted, a new
+ # volume can be created with the same name.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DeleteVolume.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DeleteVolumeRequest request
+ # or Amazon::EC2::Model::DeleteVolumeRequest object itself
+ # See Amazon::EC2::Model::DeleteVolumeRequest for valid arguments
+ # Returns Amazon::EC2::Model::DeleteVolumeResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub deleteVolume {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DeleteVolumeRequest") {
+ require Amazon::EC2::Model::DeleteVolumeRequest;
+ $request = Amazon::EC2::Model::DeleteVolumeRequest->new($request);
+ }
+ require Amazon::EC2::Model::DeleteVolumeResponse;
+ return Amazon::EC2::Model::DeleteVolumeResponse->fromXML($self->_invoke($self->_convertDeleteVolume($request)));
+ }
+
+
+
+ #
+ # Deregister Image
+ # The DeregisterImage operation deregisters an AMI.
+ # Once deregistered, instances
+ # of the AMI can no longer be launched.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DeregisterImage.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DeregisterImageRequest request
+ # or Amazon::EC2::Model::DeregisterImageRequest object itself
+ # See Amazon::EC2::Model::DeregisterImageRequest for valid arguments
+ # Returns Amazon::EC2::Model::DeregisterImageResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub deregisterImage {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DeregisterImageRequest") {
+ require Amazon::EC2::Model::DeregisterImageRequest;
+ $request = Amazon::EC2::Model::DeregisterImageRequest->new($request);
+ }
+ require Amazon::EC2::Model::DeregisterImageResponse;
+ return Amazon::EC2::Model::DeregisterImageResponse->fromXML($self->_invoke($self->_convertDeregisterImage($request)));
+ }
+
+
+
+ #
+ # Describe Addresses
+ # The DescribeAddresses operation lists elastic IP
+ # addresses assigned to your account.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DescribeAddresses.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DescribeAddressesRequest request
+ # or Amazon::EC2::Model::DescribeAddressesRequest object itself
+ # See Amazon::EC2::Model::DescribeAddressesRequest for valid arguments
+ # Returns Amazon::EC2::Model::DescribeAddressesResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub describeAddresses {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DescribeAddressesRequest") {
+ require Amazon::EC2::Model::DescribeAddressesRequest;
+ $request = Amazon::EC2::Model::DescribeAddressesRequest->new($request);
+ }
+ require Amazon::EC2::Model::DescribeAddressesResponse;
+ return Amazon::EC2::Model::DescribeAddressesResponse->fromXML($self->_invoke($self->_convertDescribeAddresses($request)));
+ }
+
+
+
+ #
+ # Describe Availability Zones
+ # The DescribeAvailabilityZones operation describes
+ # availability zones that are
+ # currently available to the account and
+ # their states.
+ # Availability zones are not the same across accounts.
+ # The availability zone
+ # us-east-1a for account A is not necessarily the
+ # same as us-east-1a for account
+ # B. Zone assignments are mapped
+ # independently for each account.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DescribeAvailabilityZones.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DescribeAvailabilityZonesRequest request
+ # or Amazon::EC2::Model::DescribeAvailabilityZonesRequest object itself
+ # See Amazon::EC2::Model::DescribeAvailabilityZonesRequest for valid arguments
+ # Returns Amazon::EC2::Model::DescribeAvailabilityZonesResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub describeAvailabilityZones {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DescribeAvailabilityZonesRequest") {
+ require Amazon::EC2::Model::DescribeAvailabilityZonesRequest;
+ $request = Amazon::EC2::Model::DescribeAvailabilityZonesRequest->new($request);
+ }
+ require Amazon::EC2::Model::DescribeAvailabilityZonesResponse;
+ return Amazon::EC2::Model::DescribeAvailabilityZonesResponse->fromXML($self->_invoke($self->_convertDescribeAvailabilityZones($request)));
+ }
+
+
+
+ #
+ # Describe Bundle Tasks
+ # The DescribeBundleTasks operation describes in-progress
+ # and recent bundle tasks. Complete and failed tasks are
+ # removed from the list a short time after completion.
+ # If no bundle ids are given, all bundle tasks are returned.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DescribeBundleTasks.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DescribeBundleTasksRequest request
+ # or Amazon::EC2::Model::DescribeBundleTasksRequest object itself
+ # See Amazon::EC2::Model::DescribeBundleTasksRequest for valid arguments
+ # Returns Amazon::EC2::Model::DescribeBundleTasksResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub describeBundleTasks {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DescribeBundleTasksRequest") {
+ require Amazon::EC2::Model::DescribeBundleTasksRequest;
+ $request = Amazon::EC2::Model::DescribeBundleTasksRequest->new($request);
+ }
+ require Amazon::EC2::Model::DescribeBundleTasksResponse;
+ return Amazon::EC2::Model::DescribeBundleTasksResponse->fromXML($self->_invoke($self->_convertDescribeBundleTasks($request)));
+ }
+
+
+
+ #
+ # Describe Licenses
+ # Provides details of a user's registered licenses. Zero or more IDs
+ # may be specified on the call. When one or more license IDs are
+ # specified, only data for the specified IDs are returned.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DescribeLicenses.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DescribeLicensesRequest request
+ # or Amazon::EC2::Model::DescribeLicensesRequest object itself
+ # See Amazon::EC2::Model::DescribeLicensesRequest for valid arguments
+ # Returns Amazon::EC2::Model::DescribeLicensesResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub describeLicenses {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DescribeLicensesRequest") {
+ require Amazon::EC2::Model::DescribeLicensesRequest;
+ $request = Amazon::EC2::Model::DescribeLicensesRequest->new($request);
+ }
+ require Amazon::EC2::Model::DescribeLicensesResponse;
+ return Amazon::EC2::Model::DescribeLicensesResponse->fromXML($self->_invoke($self->_convertDescribeLicenses($request)));
+ }
+
+
+
+ #
+ # Describe Placement Groups
+ # Returns information about one or more PlacementGroup instances in a
+ # user's account.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DescribePlacementGroups.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DescribePlacementGroupsRequest request
+ # or Amazon::EC2::Model::DescribePlacementGroupsRequest object itself
+ # See Amazon::EC2::Model::DescribePlacementGroupsRequest for valid arguments
+ # Returns Amazon::EC2::Model::DescribePlacementGroupsResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub describePlacementGroups {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DescribePlacementGroupsRequest") {
+ require Amazon::EC2::Model::DescribePlacementGroupsRequest;
+ $request = Amazon::EC2::Model::DescribePlacementGroupsRequest->new($request);
+ }
+ require Amazon::EC2::Model::DescribePlacementGroupsResponse;
+ return Amazon::EC2::Model::DescribePlacementGroupsResponse->fromXML($self->_invoke($self->_convertDescribePlacementGroups($request)));
+ }
+
+
+
+ #
+ # Describe Snapshot Attribute
+ # Returns information about an attribute of a snapshot.
+ # Only one attribute can be specified per call.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DescribeSnapshotAttribute.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DescribeSnapshotAttributeRequest request
+ # or Amazon::EC2::Model::DescribeSnapshotAttributeRequest object itself
+ # See Amazon::EC2::Model::DescribeSnapshotAttributeRequest for valid arguments
+ # Returns Amazon::EC2::Model::DescribeSnapshotAttributeResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub describeSnapshotAttribute {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DescribeSnapshotAttributeRequest") {
+ require Amazon::EC2::Model::DescribeSnapshotAttributeRequest;
+ $request = Amazon::EC2::Model::DescribeSnapshotAttributeRequest->new($request);
+ }
+ require Amazon::EC2::Model::DescribeSnapshotAttributeResponse;
+ return Amazon::EC2::Model::DescribeSnapshotAttributeResponse->fromXML($self->_invoke($self->_convertDescribeSnapshotAttribute($request)));
+ }
+
+
+
+ #
+ # Describe Image Attribute
+ # The DescribeImageAttribute operation returns
+ # information about an attribute of
+ # an AMI. Only one attribute can be
+ # specified per call.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DescribeImageAttribute.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DescribeImageAttributeRequest request
+ # or Amazon::EC2::Model::DescribeImageAttributeRequest object itself
+ # See Amazon::EC2::Model::DescribeImageAttributeRequest for valid arguments
+ # Returns Amazon::EC2::Model::DescribeImageAttributeResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub describeImageAttribute {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DescribeImageAttributeRequest") {
+ require Amazon::EC2::Model::DescribeImageAttributeRequest;
+ $request = Amazon::EC2::Model::DescribeImageAttributeRequest->new($request);
+ }
+ require Amazon::EC2::Model::DescribeImageAttributeResponse;
+ return Amazon::EC2::Model::DescribeImageAttributeResponse->fromXML($self->_invoke($self->_convertDescribeImageAttribute($request)));
+ }
+
+
+
+ #
+ # Describe Images
+ # The DescribeImages operation returns information
+ # about AMIs, AKIs, and ARIs
+ # available to the user. Information returned
+ # includes image type, product codes,
+ # architecture, and kernel and RAM
+ # disk IDs. Images available to the user include
+ # public images
+ # available for any user to launch, private images owned
+ # by the user making the request, and private images
+ # owned by other users for which the
+ # user has explicit launch permissions.
+ # Launch permissions fall into three categories:
+ # Public:
+ # The owner of the AMI granted launch permissions for the AMI to the all
+ # group. All users have launch permissions for these AMIs.
+ # Explicit:
+ # The owner of the AMI granted launch permissions to a specific user.
+ # Implicit:
+ # A user has implicit launch permissions for all AMIs he or she owns.
+ # The list of AMIs returned can be modified by specifying AMI IDs, AMI
+ # owners, or users with launch permissions. If no options are specified,
+ # Amazon EC2 returns all AMIs for which the user has launch permissions.
+ # If you specify one or more AMI IDs, only AMIs that have the specified
+ # IDs are returned. If you specify an invalid AMI ID, a fault is returned.
+ # If you specify an AMI ID for which you do not have access, it will not
+ # be included in the returned results.
+ # If you specify one or more AMI
+ # owners, only AMIs from the specified
+ # owners and for which you have
+ # access are returned. The results can include the
+ # account IDs of the specified owners, amazon for
+ # AMIs owned by Amazon or self for AMIs that you own.
+ # If you specify a list of executable users, only users
+ # that have launch
+ # permissions for the AMIs are returned. You can
+ # specify account IDs
+ # (if you own
+ # the AMI(s)), self for AMIs for which
+ # you own or have explicit
+ # permissions, or
+ # all for public AMIs.
+ # Note:
+ # Deregistered images are included in the returned results for an
+ # unspecified
+ # interval after deregistration.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DescribeImages.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DescribeImagesRequest request
+ # or Amazon::EC2::Model::DescribeImagesRequest object itself
+ # See Amazon::EC2::Model::DescribeImagesRequest for valid arguments
+ # Returns Amazon::EC2::Model::DescribeImagesResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub describeImages {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DescribeImagesRequest") {
+ require Amazon::EC2::Model::DescribeImagesRequest;
+ $request = Amazon::EC2::Model::DescribeImagesRequest->new($request);
+ }
+ require Amazon::EC2::Model::DescribeImagesResponse;
+ return Amazon::EC2::Model::DescribeImagesResponse->fromXML($self->_invoke($self->_convertDescribeImages($request)));
+ }
+
+
+
+ #
+ # Describe Instances
+ # The DescribeInstances operation returns
+ # information about instances that you own.
+ # If you specify one or more instance IDs, Amazon EC2 returns
+ # information for those instances. If you do not specify
+ # instance IDs, Amazon EC2 returns information for
+ # all relevant instances. If you specify an invalid
+ # instance ID, a fault is returned. If you specify an instance
+ # that you do not own, it will
+ # not be included in the returned results.
+ # Recently terminated instances might appear in the
+ # returned results. This interval is usually less than one hour.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DescribeInstances.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DescribeInstancesRequest request
+ # or Amazon::EC2::Model::DescribeInstancesRequest object itself
+ # See Amazon::EC2::Model::DescribeInstancesRequest for valid arguments
+ # Returns Amazon::EC2::Model::DescribeInstancesResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub describeInstances {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DescribeInstancesRequest") {
+ require Amazon::EC2::Model::DescribeInstancesRequest;
+ $request = Amazon::EC2::Model::DescribeInstancesRequest->new($request);
+ }
+ require Amazon::EC2::Model::DescribeInstancesResponse;
+ return Amazon::EC2::Model::DescribeInstancesResponse->fromXML($self->_invoke($self->_convertDescribeInstances($request)));
+ }
+
+
+
+ #
+ # Describe Regions
+ # The DescribeRegions operation describes regions
+ # zones that are
+ # currently available to the account.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DescribeRegions.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DescribeRegionsRequest request
+ # or Amazon::EC2::Model::DescribeRegionsRequest object itself
+ # See Amazon::EC2::Model::DescribeRegionsRequest for valid arguments
+ # Returns Amazon::EC2::Model::DescribeRegionsResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub describeRegions {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DescribeRegionsRequest") {
+ require Amazon::EC2::Model::DescribeRegionsRequest;
+ $request = Amazon::EC2::Model::DescribeRegionsRequest->new($request);
+ }
+ require Amazon::EC2::Model::DescribeRegionsResponse;
+ return Amazon::EC2::Model::DescribeRegionsResponse->fromXML($self->_invoke($self->_convertDescribeRegions($request)));
+ }
+
+
+
+ #
+ # Describe Reserved Instances
+ # The DescribeReservedInstances operation describes
+ # Reserved Instances
+ # that were purchased for use with your account.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DescribeReservedInstances.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DescribeReservedInstancesRequest request
+ # or Amazon::EC2::Model::DescribeReservedInstancesRequest object itself
+ # See Amazon::EC2::Model::DescribeReservedInstancesRequest for valid arguments
+ # Returns Amazon::EC2::Model::DescribeReservedInstancesResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub describeReservedInstances {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DescribeReservedInstancesRequest") {
+ require Amazon::EC2::Model::DescribeReservedInstancesRequest;
+ $request = Amazon::EC2::Model::DescribeReservedInstancesRequest->new($request);
+ }
+ require Amazon::EC2::Model::DescribeReservedInstancesResponse;
+ return Amazon::EC2::Model::DescribeReservedInstancesResponse->fromXML($self->_invoke($self->_convertDescribeReservedInstances($request)));
+ }
+
+
+
+ #
+ # Describe Reserved Instances Offerings
+ # The DescribeReservedInstancesOfferings operation
+ # describes Reserved
+ # Instance offerings that are available for
+ # purchase. With Amazon EC2
+ # Reserved Instances, you purchase the right
+ # to launch Amazon EC2 instances
+ # for a period of time (without getting
+ # insufficient capacity errors) and
+ # pay a lower usage rate for the
+ # actual time used.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DescribeReservedInstancesOfferings.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DescribeReservedInstancesOfferingsRequest request
+ # or Amazon::EC2::Model::DescribeReservedInstancesOfferingsRequest object itself
+ # See Amazon::EC2::Model::DescribeReservedInstancesOfferingsRequest for valid arguments
+ # Returns Amazon::EC2::Model::DescribeReservedInstancesOfferingsResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub describeReservedInstancesOfferings {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DescribeReservedInstancesOfferingsRequest") {
+ require Amazon::EC2::Model::DescribeReservedInstancesOfferingsRequest;
+ $request = Amazon::EC2::Model::DescribeReservedInstancesOfferingsRequest->new($request);
+ }
+ require Amazon::EC2::Model::DescribeReservedInstancesOfferingsResponse;
+ return Amazon::EC2::Model::DescribeReservedInstancesOfferingsResponse->fromXML($self->_invoke($self->_convertDescribeReservedInstancesOfferings($request)));
+ }
+
+
+
+ #
+ # Describe Key Pairs
+ # The DescribeKeyPairs operation returns information about key pairs
+ # available to you. If you specify key pairs, information about
+ # those key pairs is returned. Otherwise,
+ # information for all registered key pairs is returned.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DescribeKeyPairs.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DescribeKeyPairsRequest request
+ # or Amazon::EC2::Model::DescribeKeyPairsRequest object itself
+ # See Amazon::EC2::Model::DescribeKeyPairsRequest for valid arguments
+ # Returns Amazon::EC2::Model::DescribeKeyPairsResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub describeKeyPairs {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DescribeKeyPairsRequest") {
+ require Amazon::EC2::Model::DescribeKeyPairsRequest;
+ $request = Amazon::EC2::Model::DescribeKeyPairsRequest->new($request);
+ }
+ require Amazon::EC2::Model::DescribeKeyPairsResponse;
+ return Amazon::EC2::Model::DescribeKeyPairsResponse->fromXML($self->_invoke($self->_convertDescribeKeyPairs($request)));
+ }
+
+
+
+ #
+ # Describe Security Groups
+ # The DescribeSecurityGroups operation returns
+ # information about security groups
+ # that you own.
+ # If you specify security group names, information about those security
+ # group is returned. Otherwise, information for all security group is
+ # returned. If you specify a group that does not exist, a fault is returned.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DescribeSecurityGroups.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DescribeSecurityGroupsRequest request
+ # or Amazon::EC2::Model::DescribeSecurityGroupsRequest object itself
+ # See Amazon::EC2::Model::DescribeSecurityGroupsRequest for valid arguments
+ # Returns Amazon::EC2::Model::DescribeSecurityGroupsResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub describeSecurityGroups {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DescribeSecurityGroupsRequest") {
+ require Amazon::EC2::Model::DescribeSecurityGroupsRequest;
+ $request = Amazon::EC2::Model::DescribeSecurityGroupsRequest->new($request);
+ }
+ require Amazon::EC2::Model::DescribeSecurityGroupsResponse;
+ return Amazon::EC2::Model::DescribeSecurityGroupsResponse->fromXML($self->_invoke($self->_convertDescribeSecurityGroups($request)));
+ }
+
+
+
+ #
+ # Describe Snapshots
+ # Describes the indicated snapshots, or in lieu of
+ # that, all snapshots owned by the caller.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DescribeSnapshots.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DescribeSnapshotsRequest request
+ # or Amazon::EC2::Model::DescribeSnapshotsRequest object itself
+ # See Amazon::EC2::Model::DescribeSnapshotsRequest for valid arguments
+ # Returns Amazon::EC2::Model::DescribeSnapshotsResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub describeSnapshots {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DescribeSnapshotsRequest") {
+ require Amazon::EC2::Model::DescribeSnapshotsRequest;
+ $request = Amazon::EC2::Model::DescribeSnapshotsRequest->new($request);
+ }
+ require Amazon::EC2::Model::DescribeSnapshotsResponse;
+ return Amazon::EC2::Model::DescribeSnapshotsResponse->fromXML($self->_invoke($self->_convertDescribeSnapshots($request)));
+ }
+
+
+
+ #
+ # Describe Volumes
+ # Describes the status of the indicated or, in lieu
+ # of any specified, all
+ # volumes belonging to the caller.
+ # Volumes that
+ # have been deleted are not described.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DescribeVolumes.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DescribeVolumesRequest request
+ # or Amazon::EC2::Model::DescribeVolumesRequest object itself
+ # See Amazon::EC2::Model::DescribeVolumesRequest for valid arguments
+ # Returns Amazon::EC2::Model::DescribeVolumesResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub describeVolumes {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DescribeVolumesRequest") {
+ require Amazon::EC2::Model::DescribeVolumesRequest;
+ $request = Amazon::EC2::Model::DescribeVolumesRequest->new($request);
+ }
+ require Amazon::EC2::Model::DescribeVolumesResponse;
+ return Amazon::EC2::Model::DescribeVolumesResponse->fromXML($self->_invoke($self->_convertDescribeVolumes($request)));
+ }
+
+
+
+ #
+ # Detach Volume
+ # Detach a previously attached volume from a
+ # running instance.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DetachVolume.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DetachVolumeRequest request
+ # or Amazon::EC2::Model::DetachVolumeRequest object itself
+ # See Amazon::EC2::Model::DetachVolumeRequest for valid arguments
+ # Returns Amazon::EC2::Model::DetachVolumeResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub detachVolume {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DetachVolumeRequest") {
+ require Amazon::EC2::Model::DetachVolumeRequest;
+ $request = Amazon::EC2::Model::DetachVolumeRequest->new($request);
+ }
+ require Amazon::EC2::Model::DetachVolumeResponse;
+ return Amazon::EC2::Model::DetachVolumeResponse->fromXML($self->_invoke($self->_convertDetachVolume($request)));
+ }
+
+
+
+ #
+ # Disassociate Address
+ # The DisassociateAddress operation disassociates
+ # the specified elastic IP
+ # address from the instance to which it is
+ # assigned. This is an idempotent
+ # operation. If you enter it more than
+ # once, Amazon EC2 does not
+ # return an error.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DisassociateAddress.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DisassociateAddressRequest request
+ # or Amazon::EC2::Model::DisassociateAddressRequest object itself
+ # See Amazon::EC2::Model::DisassociateAddressRequest for valid arguments
+ # Returns Amazon::EC2::Model::DisassociateAddressResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub disassociateAddress {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DisassociateAddressRequest") {
+ require Amazon::EC2::Model::DisassociateAddressRequest;
+ $request = Amazon::EC2::Model::DisassociateAddressRequest->new($request);
+ }
+ require Amazon::EC2::Model::DisassociateAddressResponse;
+ return Amazon::EC2::Model::DisassociateAddressResponse->fromXML($self->_invoke($self->_convertDisassociateAddress($request)));
+ }
+
+
+
+ #
+ # Get Password Data
+ # Retrieves the encrypted administrator password
+ # for the instances running
+ # Windows.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-GetPasswordData.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::GetPasswordDataRequest request
+ # or Amazon::EC2::Model::GetPasswordDataRequest object itself
+ # See Amazon::EC2::Model::GetPasswordDataRequest for valid arguments
+ # Returns Amazon::EC2::Model::GetPasswordDataResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub getPasswordData {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::GetPasswordDataRequest") {
+ require Amazon::EC2::Model::GetPasswordDataRequest;
+ $request = Amazon::EC2::Model::GetPasswordDataRequest->new($request);
+ }
+ require Amazon::EC2::Model::GetPasswordDataResponse;
+ return Amazon::EC2::Model::GetPasswordDataResponse->fromXML($self->_invoke($self->_convertGetPasswordData($request)));
+ }
+
+
+
+ #
+ # Get Console Output
+ # The GetConsoleOutput operation retrieves console
+ # output for the specified instance.
+ # Instance console output is buffered
+ # and posted shortly after instance boot,
+ # reboot, and termination. Amazon EC2 preserves the
+ # most recent 64 KB output which will be
+ # available for at least one hour after the most recent post.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-GetConsoleOutput.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::GetConsoleOutputRequest request
+ # or Amazon::EC2::Model::GetConsoleOutputRequest object itself
+ # See Amazon::EC2::Model::GetConsoleOutputRequest for valid arguments
+ # Returns Amazon::EC2::Model::GetConsoleOutputResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub getConsoleOutput {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::GetConsoleOutputRequest") {
+ require Amazon::EC2::Model::GetConsoleOutputRequest;
+ $request = Amazon::EC2::Model::GetConsoleOutputRequest->new($request);
+ }
+ require Amazon::EC2::Model::GetConsoleOutputResponse;
+ return Amazon::EC2::Model::GetConsoleOutputResponse->fromXML($self->_invoke($self->_convertGetConsoleOutput($request)));
+ }
+
+
+
+ #
+ # Modify Snapshot Attribute
+ # Adds or remove permission settings for the
+ # specified snapshot.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-ModifySnapshotAttribute.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::ModifySnapshotAttributeRequest request
+ # or Amazon::EC2::Model::ModifySnapshotAttributeRequest object itself
+ # See Amazon::EC2::Model::ModifySnapshotAttributeRequest for valid arguments
+ # Returns Amazon::EC2::Model::ModifySnapshotAttributeResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub modifySnapshotAttribute {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::ModifySnapshotAttributeRequest") {
+ require Amazon::EC2::Model::ModifySnapshotAttributeRequest;
+ $request = Amazon::EC2::Model::ModifySnapshotAttributeRequest->new($request);
+ }
+ require Amazon::EC2::Model::ModifySnapshotAttributeResponse;
+ return Amazon::EC2::Model::ModifySnapshotAttributeResponse->fromXML($self->_invoke($self->_convertModifySnapshotAttribute($request)));
+ }
+
+
+
+ #
+ # Modify Image Attribute
+ # The ModifyImageAttribute operation modifies an
+ # attribute of an AMI.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-ModifyImageAttribute.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::ModifyImageAttributeRequest request
+ # or Amazon::EC2::Model::ModifyImageAttributeRequest object itself
+ # See Amazon::EC2::Model::ModifyImageAttributeRequest for valid arguments
+ # Returns Amazon::EC2::Model::ModifyImageAttributeResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub modifyImageAttribute {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::ModifyImageAttributeRequest") {
+ require Amazon::EC2::Model::ModifyImageAttributeRequest;
+ $request = Amazon::EC2::Model::ModifyImageAttributeRequest->new($request);
+ }
+ require Amazon::EC2::Model::ModifyImageAttributeResponse;
+ return Amazon::EC2::Model::ModifyImageAttributeResponse->fromXML($self->_invoke($self->_convertModifyImageAttribute($request)));
+ }
+
+
+
+ #
+ # Purchase Reserved Instances Offering
+ # The PurchaseReservedInstancesOffering operation
+ # purchases a Reserved Instance for use with your account.
+ # With Amazon EC2 Reserved Instances, you purchase the
+ # right to launch Amazon EC2 instances for a period of time
+ # (without getting insufficient capacity errors) and pay a
+ # lower usage rate for the actual time used.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-PurchaseReservedInstancesOffering.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::PurchaseReservedInstancesOfferingRequest request
+ # or Amazon::EC2::Model::PurchaseReservedInstancesOfferingRequest object itself
+ # See Amazon::EC2::Model::PurchaseReservedInstancesOfferingRequest for valid arguments
+ # Returns Amazon::EC2::Model::PurchaseReservedInstancesOfferingResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub purchaseReservedInstancesOffering {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::PurchaseReservedInstancesOfferingRequest") {
+ require Amazon::EC2::Model::PurchaseReservedInstancesOfferingRequest;
+ $request = Amazon::EC2::Model::PurchaseReservedInstancesOfferingRequest->new($request);
+ }
+ require Amazon::EC2::Model::PurchaseReservedInstancesOfferingResponse;
+ return Amazon::EC2::Model::PurchaseReservedInstancesOfferingResponse->fromXML($self->_invoke($self->_convertPurchaseReservedInstancesOffering($request)));
+ }
+
+
+
+ #
+ # Reboot Instances
+ # The RebootInstances operation requests a reboot
+ # of one or more instances. This
+ # operation is asynchronous; it only
+ # queues a request to reboot the specified
+ # instance(s). The operation
+ # will succeed if the instances are valid
+ # and belong to the user.
+ # Requests to reboot terminated instances are ignored.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-RebootInstances.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::RebootInstancesRequest request
+ # or Amazon::EC2::Model::RebootInstancesRequest object itself
+ # See Amazon::EC2::Model::RebootInstancesRequest for valid arguments
+ # Returns Amazon::EC2::Model::RebootInstancesResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub rebootInstances {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::RebootInstancesRequest") {
+ require Amazon::EC2::Model::RebootInstancesRequest;
+ $request = Amazon::EC2::Model::RebootInstancesRequest->new($request);
+ }
+ require Amazon::EC2::Model::RebootInstancesResponse;
+ return Amazon::EC2::Model::RebootInstancesResponse->fromXML($self->_invoke($self->_convertRebootInstances($request)));
+ }
+
+
+
+ #
+ # Register Image
+ # The RegisterImage operation registers an AMI with
+ # Amazon EC2. Images must be
+ # registered before they can be launched. For
+ # more information, see RunInstances.
+ # Each AMI is associated with an
+ # unique ID which is provided by the Amazon EC2
+ # service through the RegisterImage operation.
+ # During registration, Amazon EC2
+ # retrieves the specified image manifest from
+ # Amazon S3 and verifies that the image
+ # is owned by the user registering the image.
+ # The image manifest is retrieved once and stored within the Amazon EC2.
+ # Any modifications to an image in Amazon S3 invalidates this
+ # registration. If you make changes to an image, deregister the
+ # previous image and register the new
+ # image. For more information, see DeregisterImage.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-RegisterImage.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::RegisterImageRequest request
+ # or Amazon::EC2::Model::RegisterImageRequest object itself
+ # See Amazon::EC2::Model::RegisterImageRequest for valid arguments
+ # Returns Amazon::EC2::Model::RegisterImageResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub registerImage {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::RegisterImageRequest") {
+ require Amazon::EC2::Model::RegisterImageRequest;
+ $request = Amazon::EC2::Model::RegisterImageRequest->new($request);
+ }
+ require Amazon::EC2::Model::RegisterImageResponse;
+ return Amazon::EC2::Model::RegisterImageResponse->fromXML($self->_invoke($self->_convertRegisterImage($request)));
+ }
+
+
+
+ #
+ # Release Address
+ # The ReleaseAddress operation releases an elastic
+ # IP address associated with your account.
+ # Note:
+ # Releasing an IP address
+ # automatically disassociates it from any instance with
+ # which it is associated. For more information, see
+ # DisassociateAddress.
+ # Important:
+ # After releasing an elastic IP address, it is released to the IP
+ # address pool and might no longer be available to your account. Make
+ # sure to update your DNS records and any servers or devices that
+ # communicate with the address.
+ # If you run this operation on an elastic
+ # IP address that is already released,
+ # the address might be assigned to
+ # another account which will cause
+ # Amazon EC2 to return an error.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-ReleaseAddress.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::ReleaseAddressRequest request
+ # or Amazon::EC2::Model::ReleaseAddressRequest object itself
+ # See Amazon::EC2::Model::ReleaseAddressRequest for valid arguments
+ # Returns Amazon::EC2::Model::ReleaseAddressResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub releaseAddress {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::ReleaseAddressRequest") {
+ require Amazon::EC2::Model::ReleaseAddressRequest;
+ $request = Amazon::EC2::Model::ReleaseAddressRequest->new($request);
+ }
+ require Amazon::EC2::Model::ReleaseAddressResponse;
+ return Amazon::EC2::Model::ReleaseAddressResponse->fromXML($self->_invoke($self->_convertReleaseAddress($request)));
+ }
+
+
+
+ #
+ # Reset Snapshot Attribute
+ # Resets permission settings for the specified
+ # snapshot.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-ResetSnapshotAttribute.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::ResetSnapshotAttributeRequest request
+ # or Amazon::EC2::Model::ResetSnapshotAttributeRequest object itself
+ # See Amazon::EC2::Model::ResetSnapshotAttributeRequest for valid arguments
+ # Returns Amazon::EC2::Model::ResetSnapshotAttributeResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub resetSnapshotAttribute {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::ResetSnapshotAttributeRequest") {
+ require Amazon::EC2::Model::ResetSnapshotAttributeRequest;
+ $request = Amazon::EC2::Model::ResetSnapshotAttributeRequest->new($request);
+ }
+ require Amazon::EC2::Model::ResetSnapshotAttributeResponse;
+ return Amazon::EC2::Model::ResetSnapshotAttributeResponse->fromXML($self->_invoke($self->_convertResetSnapshotAttribute($request)));
+ }
+
+
+
+ #
+ # Reset Image Attribute
+ # The ResetImageAttribute operation resets an
+ # attribute of an AMI to its default value.
+ # Note:
+ # The productCodes
+ # attribute cannot be reset.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-ResetImageAttribute.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::ResetImageAttributeRequest request
+ # or Amazon::EC2::Model::ResetImageAttributeRequest object itself
+ # See Amazon::EC2::Model::ResetImageAttributeRequest for valid arguments
+ # Returns Amazon::EC2::Model::ResetImageAttributeResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub resetImageAttribute {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::ResetImageAttributeRequest") {
+ require Amazon::EC2::Model::ResetImageAttributeRequest;
+ $request = Amazon::EC2::Model::ResetImageAttributeRequest->new($request);
+ }
+ require Amazon::EC2::Model::ResetImageAttributeResponse;
+ return Amazon::EC2::Model::ResetImageAttributeResponse->fromXML($self->_invoke($self->_convertResetImageAttribute($request)));
+ }
+
+
+
+ #
+ # Revoke Security Group Ingress
+ # The RevokeSecurityGroupIngress operation revokes
+ # permissions from a security
+ # group. The permissions used to revoke must
+ # be specified using the same values
+ # used to grant the permissions.
+ # Permissions are specified by IP protocol (TCP, UDP, or ICMP), the
+ # source of the request (by IP range or an Amazon EC2 user-group pair),
+ # the source and destination port ranges (for TCP and UDP), and the ICMP
+ # codes and types (for ICMP).
+ # Permission changes are quickly propagated
+ # to instances within the security
+ # group. However, depending on the
+ # number of instances in the group, a
+ # small delay is might occur, .
+ # When revoking a user/group pair permission, GroupName,
+ # SourceSecurityGroupName
+ # and SourceSecurityGroupOwnerId must be
+ # specified. When authorizing a
+ # CIDR IP permission, GroupName,
+ # IpProtocol, FromPort, ToPort and CidrIp must be
+ # specified. Mixing these two types of parameters is not allowed.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-RevokeSecurityGroupIngress.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::RevokeSecurityGroupIngressRequest request
+ # or Amazon::EC2::Model::RevokeSecurityGroupIngressRequest object itself
+ # See Amazon::EC2::Model::RevokeSecurityGroupIngressRequest for valid arguments
+ # Returns Amazon::EC2::Model::RevokeSecurityGroupIngressResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub revokeSecurityGroupIngress {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::RevokeSecurityGroupIngressRequest") {
+ require Amazon::EC2::Model::RevokeSecurityGroupIngressRequest;
+ $request = Amazon::EC2::Model::RevokeSecurityGroupIngressRequest->new($request);
+ }
+ require Amazon::EC2::Model::RevokeSecurityGroupIngressResponse;
+ return Amazon::EC2::Model::RevokeSecurityGroupIngressResponse->fromXML($self->_invoke($self->_convertRevokeSecurityGroupIngress($request)));
+ }
+
+
+
+ #
+ # Run Instances
+ # The RunInstances operation launches a specified
+ # number of instances.
+ # If Amazon EC2 cannot launch the minimum number
+ # AMIs you request, no instances
+ # launch. If there is insufficient
+ # capacity to launch the maximum number of AMIs
+ # you request, Amazon EC2
+ # launches as many as possible to satisfy the
+ # requested maximum values.
+ # Every instance is launched in a security group. If you do not
+ # specify a security group at launch, the instances start in your
+ # default security group. For more information on creating security
+ # groups, see CreateSecurityGroup.
+ # An optional instance type can be
+ # specified. For information about
+ # instance types, see Instance Types.
+ # You can provide an optional key pair ID for each image in the launch
+ # request (for more information, see CreateKeyPair). All instances that
+ # are created from images that use this key pair will have access to the
+ # associated public key at boot. You can use this key to provide secure
+ # access to an instance of an image on a per-instance basis. Amazon EC2
+ # public images use this feature to provide secure access without passwords.
+ # Important:
+ # Launching public images without a key pair ID will leave them inaccessible.
+ # The public key material is made available to the instance at boot
+ # time by placing it in the openssh_id.pub file on a logical device that is exposed
+ # to the instance as /dev/sda2 (the ephemeral store). The format of this
+ # file is suitable for use as an entry within ~/.ssh/authorized_keys (the
+ # OpenSSH format). This can be done at boot (e.g., as part of rc.local)
+ # allowing for secure access without passwords.
+ # Optional user data can be provided in the launch request. All instances that
+ # collectively comprise the launch request have access to this data
+ # For more information, see Instance Metadata.
+ # Note:
+ # If any of the AMIs have a product code attached for which the user has
+ # not subscribed, the RunInstances call will fail.
+ # Important:
+ # We strongly recommend using
+ # the 2.6.18 Xen stock kernel with the
+ # c1.medium and c1.xlarge
+ # instances. Although the default Amazon EC2 kernels will work, the
+ # new kernels provide greater stability and performance for these
+ # instance types. For more information about kernels, see Kernels, RAM
+ # Disks, and Block Device Mappings.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-RunInstances.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::RunInstancesRequest request
+ # or Amazon::EC2::Model::RunInstancesRequest object itself
+ # See Amazon::EC2::Model::RunInstancesRequest for valid arguments
+ # Returns Amazon::EC2::Model::RunInstancesResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub runInstances {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::RunInstancesRequest") {
+ require Amazon::EC2::Model::RunInstancesRequest;
+ $request = Amazon::EC2::Model::RunInstancesRequest->new($request);
+ }
+ require Amazon::EC2::Model::RunInstancesResponse;
+ return Amazon::EC2::Model::RunInstancesResponse->fromXML($self->_invoke($self->_convertRunInstances($request)));
+ }
+
+
+
+ #
+ # Stop Instances
+ # Stops an instance that uses an Amazon EBS volume
+ # as its root device. Instances that use Amazon EBS volumes as their
+ # root devices can be quickly stopped and started.
+ # When an instance is stopped, the compute resources are released and you
+ # are not billed for hourly
+ # instance usage. However, your root partition Amazon EBS
+ # volume remains, continues to persist your
+ # data, and you are charged for Amazon EBS volume usage. You can restart
+ # your instance at any time.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-StopInstances.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::StopInstancesRequest request
+ # or Amazon::EC2::Model::StopInstancesRequest object itself
+ # See Amazon::EC2::Model::StopInstancesRequest for valid arguments
+ # Returns Amazon::EC2::Model::StopInstancesResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub stopInstances {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::StopInstancesRequest") {
+ require Amazon::EC2::Model::StopInstancesRequest;
+ $request = Amazon::EC2::Model::StopInstancesRequest->new($request);
+ }
+ require Amazon::EC2::Model::StopInstancesResponse;
+ return Amazon::EC2::Model::StopInstancesResponse->fromXML($self->_invoke($self->_convertStopInstances($request)));
+ }
+
+
+
+ #
+ # Start Instances
+ # Starts an instance that uses an Amazon EBS volume as its root device.
+ # Instances that use Amazon EBS volumes as their root devices can be
+ # quickly stopped and started. When an instance is
+ # stopped, the compute resources are released and you
+ # are not billed for hourly instance usage. However, your root
+ # partition Amazon EBS volume remains, continues to persist your
+ # data, and you are charged for Amazon EBS volume usage. You can restart
+ # your instance at any time.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-StartInstances.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::StartInstancesRequest request
+ # or Amazon::EC2::Model::StartInstancesRequest object itself
+ # See Amazon::EC2::Model::StartInstancesRequest for valid arguments
+ # Returns Amazon::EC2::Model::StartInstancesResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub startInstances {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::StartInstancesRequest") {
+ require Amazon::EC2::Model::StartInstancesRequest;
+ $request = Amazon::EC2::Model::StartInstancesRequest->new($request);
+ }
+ require Amazon::EC2::Model::StartInstancesResponse;
+ return Amazon::EC2::Model::StartInstancesResponse->fromXML($self->_invoke($self->_convertStartInstances($request)));
+ }
+
+
+
+ #
+ # Modify Instance Attribute
+ # Modifies an attribute of an instance.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-ModifyInstanceAttribute.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::ModifyInstanceAttributeRequest request
+ # or Amazon::EC2::Model::ModifyInstanceAttributeRequest object itself
+ # See Amazon::EC2::Model::ModifyInstanceAttributeRequest for valid arguments
+ # Returns Amazon::EC2::Model::ModifyInstanceAttributeResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub modifyInstanceAttribute {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::ModifyInstanceAttributeRequest") {
+ require Amazon::EC2::Model::ModifyInstanceAttributeRequest;
+ $request = Amazon::EC2::Model::ModifyInstanceAttributeRequest->new($request);
+ }
+ require Amazon::EC2::Model::ModifyInstanceAttributeResponse;
+ return Amazon::EC2::Model::ModifyInstanceAttributeResponse->fromXML($self->_invoke($self->_convertModifyInstanceAttribute($request)));
+ }
+
+
+
+ #
+ # Reset Instance Attribute
+ # Resets an attribute of an instance to its default
+ # value.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-ResetInstanceAttribute.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::ResetInstanceAttributeRequest request
+ # or Amazon::EC2::Model::ResetInstanceAttributeRequest object itself
+ # See Amazon::EC2::Model::ResetInstanceAttributeRequest for valid arguments
+ # Returns Amazon::EC2::Model::ResetInstanceAttributeResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub resetInstanceAttribute {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::ResetInstanceAttributeRequest") {
+ require Amazon::EC2::Model::ResetInstanceAttributeRequest;
+ $request = Amazon::EC2::Model::ResetInstanceAttributeRequest->new($request);
+ }
+ require Amazon::EC2::Model::ResetInstanceAttributeResponse;
+ return Amazon::EC2::Model::ResetInstanceAttributeResponse->fromXML($self->_invoke($self->_convertResetInstanceAttribute($request)));
+ }
+
+
+
+ #
+ # Describe Instance Attribute
+ # Returns information about an attribute of an
+ # instance. Only one attribute
+ # can be specified per call.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DescribeInstanceAttribute.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DescribeInstanceAttributeRequest request
+ # or Amazon::EC2::Model::DescribeInstanceAttributeRequest object itself
+ # See Amazon::EC2::Model::DescribeInstanceAttributeRequest for valid arguments
+ # Returns Amazon::EC2::Model::DescribeInstanceAttributeResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub describeInstanceAttribute {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DescribeInstanceAttributeRequest") {
+ require Amazon::EC2::Model::DescribeInstanceAttributeRequest;
+ $request = Amazon::EC2::Model::DescribeInstanceAttributeRequest->new($request);
+ }
+ require Amazon::EC2::Model::DescribeInstanceAttributeResponse;
+ return Amazon::EC2::Model::DescribeInstanceAttributeResponse->fromXML($self->_invoke($self->_convertDescribeInstanceAttribute($request)));
+ }
+
+
+
+ #
+ # Terminate Instances
+ # The TerminateInstances operation shuts down one
+ # or more instances. This
+ # operation is idempotent; if you terminate an
+ # instance more than
+ # once, each call
+ # will succeed.
+ # Terminated instances
+ # will remain visible after termination (approximately one hour).
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-TerminateInstances.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::TerminateInstancesRequest request
+ # or Amazon::EC2::Model::TerminateInstancesRequest object itself
+ # See Amazon::EC2::Model::TerminateInstancesRequest for valid arguments
+ # Returns Amazon::EC2::Model::TerminateInstancesResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub terminateInstances {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::TerminateInstancesRequest") {
+ require Amazon::EC2::Model::TerminateInstancesRequest;
+ $request = Amazon::EC2::Model::TerminateInstancesRequest->new($request);
+ }
+ require Amazon::EC2::Model::TerminateInstancesResponse;
+ return Amazon::EC2::Model::TerminateInstancesResponse->fromXML($self->_invoke($self->_convertTerminateInstances($request)));
+ }
+
+
+
+ #
+ # Monitor Instances
+ # Enables monitoring for a running instance.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-MonitorInstances.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::MonitorInstancesRequest request
+ # or Amazon::EC2::Model::MonitorInstancesRequest object itself
+ # See Amazon::EC2::Model::MonitorInstancesRequest for valid arguments
+ # Returns Amazon::EC2::Model::MonitorInstancesResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub monitorInstances {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::MonitorInstancesRequest") {
+ require Amazon::EC2::Model::MonitorInstancesRequest;
+ $request = Amazon::EC2::Model::MonitorInstancesRequest->new($request);
+ }
+ require Amazon::EC2::Model::MonitorInstancesResponse;
+ return Amazon::EC2::Model::MonitorInstancesResponse->fromXML($self->_invoke($self->_convertMonitorInstances($request)));
+ }
+
+
+
+ #
+ # Unmonitor Instances
+ # Disables monitoring for a running instance.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-UnmonitorInstances.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::UnmonitorInstancesRequest request
+ # or Amazon::EC2::Model::UnmonitorInstancesRequest object itself
+ # See Amazon::EC2::Model::UnmonitorInstancesRequest for valid arguments
+ # Returns Amazon::EC2::Model::UnmonitorInstancesResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub unmonitorInstances {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::UnmonitorInstancesRequest") {
+ require Amazon::EC2::Model::UnmonitorInstancesRequest;
+ $request = Amazon::EC2::Model::UnmonitorInstancesRequest->new($request);
+ }
+ require Amazon::EC2::Model::UnmonitorInstancesResponse;
+ return Amazon::EC2::Model::UnmonitorInstancesResponse->fromXML($self->_invoke($self->_convertUnmonitorInstances($request)));
+ }
+
+
+
+ #
+ # Describe Vpn Connections
+ # Gives you information about your VPN connections.
+ # Important -
+ # We strongly recommend you use HTTPS when calling this operation because the
+ # response contains sensitive cryptographic information for configuring your customer gateway.
+ # You can filter the results to return information only about VPN connections
+ # that match criteria you specify. For example, you could ask to get information
+ # about a particular VPN connection (or all) only if the VPN's state is pending
+ # or available. You can specify multiple filters (e.g., the VPN connection is
+ # associated with a particular VPN gateway, and the gateway's state is
+ # pending or available). The result includes information for a particular
+ # VPN connection only if the VPN connection matches all your filters.
+ # If there's no match, no special message is returned; the response is
+ # simply empty.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DescribeVpnConnections.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DescribeVpnConnectionsRequest request
+ # or Amazon::EC2::Model::DescribeVpnConnectionsRequest object itself
+ # See Amazon::EC2::Model::DescribeVpnConnectionsRequest for valid arguments
+ # Returns Amazon::EC2::Model::DescribeVpnConnectionsResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub describeVpnConnections {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DescribeVpnConnectionsRequest") {
+ require Amazon::EC2::Model::DescribeVpnConnectionsRequest;
+ $request = Amazon::EC2::Model::DescribeVpnConnectionsRequest->new($request);
+ }
+ require Amazon::EC2::Model::DescribeVpnConnectionsResponse;
+ return Amazon::EC2::Model::DescribeVpnConnectionsResponse->fromXML($self->_invoke($self->_convertDescribeVpnConnections($request)));
+ }
+
+
+
+ #
+ # Describe Subnets
+ # Gives you information about your subnets. You can filter the results to
+ # return information only about subnets that match criteria you specify.
+ # For example, you could ask to get information about a particular subnet
+ # (or all) only if the subnet's state is available. You can specify multiple
+ # filters (e.g., the subnet is in a particular VPC, and the subnet's state is
+ # available). The result includes information for a particular subnet only
+ # if the subnet matches all your filters. If there's no match, no special
+ # message is returned; the response is simply empty. The following table
+ # shows the available filters.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DescribeSubnets.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DescribeSubnetsRequest request
+ # or Amazon::EC2::Model::DescribeSubnetsRequest object itself
+ # See Amazon::EC2::Model::DescribeSubnetsRequest for valid arguments
+ # Returns Amazon::EC2::Model::DescribeSubnetsResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub describeSubnets {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DescribeSubnetsRequest") {
+ require Amazon::EC2::Model::DescribeSubnetsRequest;
+ $request = Amazon::EC2::Model::DescribeSubnetsRequest->new($request);
+ }
+ require Amazon::EC2::Model::DescribeSubnetsResponse;
+ return Amazon::EC2::Model::DescribeSubnetsResponse->fromXML($self->_invoke($self->_convertDescribeSubnets($request)));
+ }
+
+
+
+ #
+ # Detach Vpn Gateway
+ # Detaches a VPN gateway from a VPC. You do this if you're planning to
+ # turn off the VPC and not use it anymore. You can confirm a VPN gateway
+ # has been completely detached from a VPC by describing the VPN gateway
+ # (any attachments to the VPN gateway are also described).
+ # You must wait for the attachment's state to switch to detached before you can
+ # delete the VPC or attach a different VPC to the VPN gateway.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DetachVpnGateway.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DetachVpnGatewayRequest request
+ # or Amazon::EC2::Model::DetachVpnGatewayRequest object itself
+ # See Amazon::EC2::Model::DetachVpnGatewayRequest for valid arguments
+ # Returns Amazon::EC2::Model::DetachVpnGatewayResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub detachVpnGateway {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DetachVpnGatewayRequest") {
+ require Amazon::EC2::Model::DetachVpnGatewayRequest;
+ $request = Amazon::EC2::Model::DetachVpnGatewayRequest->new($request);
+ }
+ require Amazon::EC2::Model::DetachVpnGatewayResponse;
+ return Amazon::EC2::Model::DetachVpnGatewayResponse->fromXML($self->_invoke($self->_convertDetachVpnGateway($request)));
+ }
+
+
+
+ #
+ # Describe Vpcs
+ # Gives you information about your VPCs. You can filter the results to return
+ # information only about VPCs that match criteria you specify. For example,
+ # you could ask to get information about a particular VPC or VPCs (or all your VPCs)
+ # only if the VPC's state is available. You can specify multiple filters (e.g.,
+ # the VPC uses one of several sets of DHCP options, and the VPC's state is available).
+ # The result includes information for a particular VPC only if the VPC
+ # matches all your filters. If there's no match, no special message is
+ # returned; the response is simply empty.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DescribeVpcs.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DescribeVpcsRequest request
+ # or Amazon::EC2::Model::DescribeVpcsRequest object itself
+ # See Amazon::EC2::Model::DescribeVpcsRequest for valid arguments
+ # Returns Amazon::EC2::Model::DescribeVpcsResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub describeVpcs {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DescribeVpcsRequest") {
+ require Amazon::EC2::Model::DescribeVpcsRequest;
+ $request = Amazon::EC2::Model::DescribeVpcsRequest->new($request);
+ }
+ require Amazon::EC2::Model::DescribeVpcsResponse;
+ return Amazon::EC2::Model::DescribeVpcsResponse->fromXML($self->_invoke($self->_convertDescribeVpcs($request)));
+ }
+
+
+
+ #
+ # Delete Customer Gateway
+ # Deletes a customer gateway. You must delete the VPN connection before
+ # deleting the customer gateway.
+ # AWS might delete any customer gateway if you leave it inactive for an extended
+ # period of time (inactive means that there's no VPN connection in use with the
+ # customer gateway).
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DeleteCustomerGateway.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DeleteCustomerGatewayRequest request
+ # or Amazon::EC2::Model::DeleteCustomerGatewayRequest object itself
+ # See Amazon::EC2::Model::DeleteCustomerGatewayRequest for valid arguments
+ # Returns Amazon::EC2::Model::DeleteCustomerGatewayResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub deleteCustomerGateway {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DeleteCustomerGatewayRequest") {
+ require Amazon::EC2::Model::DeleteCustomerGatewayRequest;
+ $request = Amazon::EC2::Model::DeleteCustomerGatewayRequest->new($request);
+ }
+ require Amazon::EC2::Model::DeleteCustomerGatewayResponse;
+ return Amazon::EC2::Model::DeleteCustomerGatewayResponse->fromXML($self->_invoke($self->_convertDeleteCustomerGateway($request)));
+ }
+
+
+
+ #
+ # Attach Vpn Gateway
+ # Attaches a VPN gateway to a VPC. This is the last step required to get your
+ # VPC fully connected to your data center before launching instances in it.
+ # For more information, go to Process for Using Amazon VPC in the Amazon Virtual
+ # Private Cloud Developer Guide.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-AttachVpnGateway.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::AttachVpnGatewayRequest request
+ # or Amazon::EC2::Model::AttachVpnGatewayRequest object itself
+ # See Amazon::EC2::Model::AttachVpnGatewayRequest for valid arguments
+ # Returns Amazon::EC2::Model::AttachVpnGatewayResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub attachVpnGateway {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::AttachVpnGatewayRequest") {
+ require Amazon::EC2::Model::AttachVpnGatewayRequest;
+ $request = Amazon::EC2::Model::AttachVpnGatewayRequest->new($request);
+ }
+ require Amazon::EC2::Model::AttachVpnGatewayResponse;
+ return Amazon::EC2::Model::AttachVpnGatewayResponse->fromXML($self->_invoke($self->_convertAttachVpnGateway($request)));
+ }
+
+
+
+ #
+ # Delete Dhcp Options
+ # Deletes a set of DHCP options that you specify. Amazon VPC returns an error if the
+ # set of options you specify is currently associated with a VPC. You can disassociate
+ # the set of options by associating either a new set of options or the default options with the VPC.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DeleteDhcpOptions.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DeleteDhcpOptionsRequest request
+ # or Amazon::EC2::Model::DeleteDhcpOptionsRequest object itself
+ # See Amazon::EC2::Model::DeleteDhcpOptionsRequest for valid arguments
+ # Returns Amazon::EC2::Model::DeleteDhcpOptionsResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub deleteDhcpOptions {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DeleteDhcpOptionsRequest") {
+ require Amazon::EC2::Model::DeleteDhcpOptionsRequest;
+ $request = Amazon::EC2::Model::DeleteDhcpOptionsRequest->new($request);
+ }
+ require Amazon::EC2::Model::DeleteDhcpOptionsResponse;
+ return Amazon::EC2::Model::DeleteDhcpOptionsResponse->fromXML($self->_invoke($self->_convertDeleteDhcpOptions($request)));
+ }
+
+
+
+ #
+ # Delete Subnet
+ # Deletes a subnet from a VPC. You must terminate all running instances in the
+ # subnet before deleting it, otherwise Amazon VPC returns an error.
+ # AWS might delete any subnet if you leave it inactive for an extended period
+ # of time (inactive means that there are no running Amazon EC2 instances in the subnet).
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DeleteSubnet.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DeleteSubnetRequest request
+ # or Amazon::EC2::Model::DeleteSubnetRequest object itself
+ # See Amazon::EC2::Model::DeleteSubnetRequest for valid arguments
+ # Returns Amazon::EC2::Model::DeleteSubnetResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub deleteSubnet {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DeleteSubnetRequest") {
+ require Amazon::EC2::Model::DeleteSubnetRequest;
+ $request = Amazon::EC2::Model::DeleteSubnetRequest->new($request);
+ }
+ require Amazon::EC2::Model::DeleteSubnetResponse;
+ return Amazon::EC2::Model::DeleteSubnetResponse->fromXML($self->_invoke($self->_convertDeleteSubnet($request)));
+ }
+
+
+
+ #
+ # Create Vpc
+ # Creates a VPC with the CIDR block you specify. The smallest VPC you can create
+ # uses a /28 netmask (16 IP addresses), and the largest uses a /18 netmask
+ # (16,384 IP addresses). To help you decide how big to make your VPC, go
+ # to the topic about creating VPCs in the Amazon Virtual Private Cloud
+ # Developer Guide.
+ # By default, each instance you launch in the VPC has the default DHCP options
+ # (the standard EC2 host name, no domain name, no DNS server, no NTP server, and
+ # no NetBIOS server or node type).
+ # AWS might delete any VPC that you create with this operation if you leave it inactive
+ # for an extended period of time (inactive means that there are no running Amazon EC2
+ # instances in the VPC).
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-CreateVpc.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::CreateVpcRequest request
+ # or Amazon::EC2::Model::CreateVpcRequest object itself
+ # See Amazon::EC2::Model::CreateVpcRequest for valid arguments
+ # Returns Amazon::EC2::Model::CreateVpcResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub createVpc {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::CreateVpcRequest") {
+ require Amazon::EC2::Model::CreateVpcRequest;
+ $request = Amazon::EC2::Model::CreateVpcRequest->new($request);
+ }
+ require Amazon::EC2::Model::CreateVpcResponse;
+ return Amazon::EC2::Model::CreateVpcResponse->fromXML($self->_invoke($self->_convertCreateVpc($request)));
+ }
+
+
+
+ #
+ # Create Customer Gateway
+ # Provides information to AWS about your customer gateway device.
+ # The customer gateway is the appliance at your end of the VPN connection
+ # (compared to the VPN gateway, which is the device at the AWS side of the VPN
+ # connection). AWS might delete any customer gateway that you create with this
+ # operation if you leave it inactive for an extended period of time (inactive means
+ # that there's no VPN connection in use with the customer gateway).
+ # You must provide the Internet-routable IP address of the customer gateway's external
+ # interface. The IP address must be static and can't be behind a device performing
+ # network address translation (NAT).
+ # You must also provide the device's Border Gateway Protocol (BGP) Autonomous
+ # System Number (ASN). You can use an existing ASN assigned to your network.
+ # If you don't have an ASN already, you can use a private ASN (in the 64512 - 65534 range).
+ # For more information about ASNs, go to the Wikipedia article -
+ # http://en.wikipedia.org/wiki/Autonomous_system_%28Internet%29.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-CreateCustomerGateway.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::CreateCustomerGatewayRequest request
+ # or Amazon::EC2::Model::CreateCustomerGatewayRequest object itself
+ # See Amazon::EC2::Model::CreateCustomerGatewayRequest for valid arguments
+ # Returns Amazon::EC2::Model::CreateCustomerGatewayResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub createCustomerGateway {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::CreateCustomerGatewayRequest") {
+ require Amazon::EC2::Model::CreateCustomerGatewayRequest;
+ $request = Amazon::EC2::Model::CreateCustomerGatewayRequest->new($request);
+ }
+ require Amazon::EC2::Model::CreateCustomerGatewayResponse;
+ return Amazon::EC2::Model::CreateCustomerGatewayResponse->fromXML($self->_invoke($self->_convertCreateCustomerGateway($request)));
+ }
+
+
+
+ #
+ # Create Vpn Gateway
+ # Creates a new VPN gateway. A VPN gateway is the VPC-side endpoint for
+ # your VPN connection. You can create a VPN gateway before creating the VPC
+ # itself. AWS might delete any VPN gateway that you create with this operation
+ # if you leave it inactive for an extended period of time (inactive means
+ # that there's no VPN connection in use with the VPN gateway).
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-CreateVpnGateway.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::CreateVpnGatewayRequest request
+ # or Amazon::EC2::Model::CreateVpnGatewayRequest object itself
+ # See Amazon::EC2::Model::CreateVpnGatewayRequest for valid arguments
+ # Returns Amazon::EC2::Model::CreateVpnGatewayResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub createVpnGateway {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::CreateVpnGatewayRequest") {
+ require Amazon::EC2::Model::CreateVpnGatewayRequest;
+ $request = Amazon::EC2::Model::CreateVpnGatewayRequest->new($request);
+ }
+ require Amazon::EC2::Model::CreateVpnGatewayResponse;
+ return Amazon::EC2::Model::CreateVpnGatewayResponse->fromXML($self->_invoke($self->_convertCreateVpnGateway($request)));
+ }
+
+
+
+ #
+ # Delete Vpc
+ # Deletes a VPC. You must terminate all running instances and delete all
+ # subnets before deleting the VPC, otherwise Amazon VPC returns an error.
+ # AWS might delete any VPC if you leave it inactive for an extended period of time
+ # (inactive means that there are no running Amazon EC2 instances in the VPC).
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DeleteVpc.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DeleteVpcRequest request
+ # or Amazon::EC2::Model::DeleteVpcRequest object itself
+ # See Amazon::EC2::Model::DeleteVpcRequest for valid arguments
+ # Returns Amazon::EC2::Model::DeleteVpcResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub deleteVpc {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DeleteVpcRequest") {
+ require Amazon::EC2::Model::DeleteVpcRequest;
+ $request = Amazon::EC2::Model::DeleteVpcRequest->new($request);
+ }
+ require Amazon::EC2::Model::DeleteVpcResponse;
+ return Amazon::EC2::Model::DeleteVpcResponse->fromXML($self->_invoke($self->_convertDeleteVpc($request)));
+ }
+
+
+
+ #
+ # Associate Dhcp Options
+ # Associates a set of DHCP options (that you've previously created) with the specified VPC.
+ # Or, associates the default DHCP options with the VPC. The default set consists of the standard
+ # EC2 host name, no domain name, no DNS server, no NTP server, and no NetBIOS server or node type.
+ # After you associate the options with the VPC, any existing instances and all new instances
+ # that you launch in that VPC use the options. For more information about the supported DHCP
+ # options and using them with Amazon VPC, go to Using DHCP Options in the Amazon Virtual
+ # Private Cloud Developer Guide.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-AssociateDhcpOptions.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::AssociateDhcpOptionsRequest request
+ # or Amazon::EC2::Model::AssociateDhcpOptionsRequest object itself
+ # See Amazon::EC2::Model::AssociateDhcpOptionsRequest for valid arguments
+ # Returns Amazon::EC2::Model::AssociateDhcpOptionsResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub associateDhcpOptions {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::AssociateDhcpOptionsRequest") {
+ require Amazon::EC2::Model::AssociateDhcpOptionsRequest;
+ $request = Amazon::EC2::Model::AssociateDhcpOptionsRequest->new($request);
+ }
+ require Amazon::EC2::Model::AssociateDhcpOptionsResponse;
+ return Amazon::EC2::Model::AssociateDhcpOptionsResponse->fromXML($self->_invoke($self->_convertAssociateDhcpOptions($request)));
+ }
+
+
+
+ #
+ # Describe Vpn Gateways
+ # Gives you information about your VPN gateways. You can filter the results to return
+ # information only about VPN gateways that match criteria you specify. For example,
+ # you could ask to get information about a particular VPN gateway (or all) only if the
+ # gateway's state is pending or available. You can specify multiple filters (e.g., the
+ # VPN gateway is in a particular Availability Zone and the gateway's state is pending or
+ # available). The result includes information for a particular VPN gateway only if the
+ # gateway matches all your filters. If there's no match, no special message is returned;
+ # the response is simply empty.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DescribeVpnGateways.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DescribeVpnGatewaysRequest request
+ # or Amazon::EC2::Model::DescribeVpnGatewaysRequest object itself
+ # See Amazon::EC2::Model::DescribeVpnGatewaysRequest for valid arguments
+ # Returns Amazon::EC2::Model::DescribeVpnGatewaysResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub describeVpnGateways {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DescribeVpnGatewaysRequest") {
+ require Amazon::EC2::Model::DescribeVpnGatewaysRequest;
+ $request = Amazon::EC2::Model::DescribeVpnGatewaysRequest->new($request);
+ }
+ require Amazon::EC2::Model::DescribeVpnGatewaysResponse;
+ return Amazon::EC2::Model::DescribeVpnGatewaysResponse->fromXML($self->_invoke($self->_convertDescribeVpnGateways($request)));
+ }
+
+
+
+ #
+ # Create Subnet
+ # Creates a subnet in an existing VPC. You can create up to 20 subnets in a VPC.
+ # If you add more than one subnet to a VPC, they're set up in a star topology with
+ # a logical router in the middle. If you feel you need more than 20 subnets, you can
+ # request more by going to http://aws.amazon.com/contact-us/vpc-request/.
+ # When you create each subnet, you provide the VPC ID and the CIDR block you
+ # want for the subnet. Once you create a subnet, you can't change its CIDR block.
+ # The subnet's CIDR block can be the same as the VPC's CIDR block (assuming you
+ # want only a single subnet in the VPC), or a subset of the VPC's CIDR block.
+ # If you create more than one subnet in a VPC, the subnets' CIDR blocks must not overlap.
+ # The smallest subnet (and VPC) you can create uses a /28 netmask (16 IP addresses),
+ # and the largest uses a /18 netmask (16,384 IP addresses).
+ # Important -
+ # AWS reserves both the first four and the last IP address in each subnet's CIDR block.
+ # They're not available for use.
+ # AWS might delete any subnet you create with this operation if you leave it inactive
+ # for an extended period of time (inactive means that there are no running Amazon EC2
+ # instances in the subnet).
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-CreateSubnet.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::CreateSubnetRequest request
+ # or Amazon::EC2::Model::CreateSubnetRequest object itself
+ # See Amazon::EC2::Model::CreateSubnetRequest for valid arguments
+ # Returns Amazon::EC2::Model::CreateSubnetResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub createSubnet {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::CreateSubnetRequest") {
+ require Amazon::EC2::Model::CreateSubnetRequest;
+ $request = Amazon::EC2::Model::CreateSubnetRequest->new($request);
+ }
+ require Amazon::EC2::Model::CreateSubnetResponse;
+ return Amazon::EC2::Model::CreateSubnetResponse->fromXML($self->_invoke($self->_convertCreateSubnet($request)));
+ }
+
+
+
+ #
+ # Delete Vpn Connection
+ # Deletes a VPN connection. Use this if you want to delete a VPC and
+ # all its associated components. Another reason to use this operation
+ # is if you believe the tunnel credentials for your VPN connection have
+ # been compromised. In that situation, you can delete the VPN connection
+ # and create a new one that has new keys, without needing to delete the
+ # VPC or VPN gateway. If you create a new VPN connection, you must
+ # reconfigure the customer gateway using the new configuration
+ # information returned with the new VPN connection ID.
+ # If you're deleting the VPC and all its associated parts, we recommend you
+ # detach the VPN gateway from the VPC and delete the VPC before deleting
+ # the VPN connection.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DeleteVpnConnection.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DeleteVpnConnectionRequest request
+ # or Amazon::EC2::Model::DeleteVpnConnectionRequest object itself
+ # See Amazon::EC2::Model::DeleteVpnConnectionRequest for valid arguments
+ # Returns Amazon::EC2::Model::DeleteVpnConnectionResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub deleteVpnConnection {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DeleteVpnConnectionRequest") {
+ require Amazon::EC2::Model::DeleteVpnConnectionRequest;
+ $request = Amazon::EC2::Model::DeleteVpnConnectionRequest->new($request);
+ }
+ require Amazon::EC2::Model::DeleteVpnConnectionResponse;
+ return Amazon::EC2::Model::DeleteVpnConnectionResponse->fromXML($self->_invoke($self->_convertDeleteVpnConnection($request)));
+ }
+
+
+
+ #
+ # Delete Vpn Gateway
+ # Deletes a VPN gateway. Use this when you want to delete a VPC and all
+ # its associated components because you no longer need them. We recommend
+ # that before you delete a VPN gateway, you detach it from the VPC and
+ # delete the VPN connection. Note that you don't need to delete the VPN
+ # gateway if you just want to delete and re-create the VPN connection
+ # between your VPC and data center.
+ # AWS might delete any VPN gateway if you leave it inactive for an extended period of time
+ # (inactive means that there's no VPN connection in use with the VPN gateway).
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DeleteVpnGateway.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DeleteVpnGatewayRequest request
+ # or Amazon::EC2::Model::DeleteVpnGatewayRequest object itself
+ # See Amazon::EC2::Model::DeleteVpnGatewayRequest for valid arguments
+ # Returns Amazon::EC2::Model::DeleteVpnGatewayResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub deleteVpnGateway {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DeleteVpnGatewayRequest") {
+ require Amazon::EC2::Model::DeleteVpnGatewayRequest;
+ $request = Amazon::EC2::Model::DeleteVpnGatewayRequest->new($request);
+ }
+ require Amazon::EC2::Model::DeleteVpnGatewayResponse;
+ return Amazon::EC2::Model::DeleteVpnGatewayResponse->fromXML($self->_invoke($self->_convertDeleteVpnGateway($request)));
+ }
+
+
+
+ #
+ # Describe Customer Gateways
+ # Gives you information about your customer gateways. You can filter the results to return
+ # information only about customer gateways that match criteria you specify. For example,
+ # you could ask to get information about a particular customer gateway (or all) only if
+ # the gateway's state is pending or available. You can specify multiple filters (e.g.,
+ # the customer gateway has a particular IP address for the Internet-routable external
+ # interface, and the gateway's state is pending or available). The result includes
+ # information for a particular customer gateway only if the gateway matches all your
+ # filters. If there's no match, no special message is returned; the response is simply empty.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DescribeCustomerGateways.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DescribeCustomerGatewaysRequest request
+ # or Amazon::EC2::Model::DescribeCustomerGatewaysRequest object itself
+ # See Amazon::EC2::Model::DescribeCustomerGatewaysRequest for valid arguments
+ # Returns Amazon::EC2::Model::DescribeCustomerGatewaysResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub describeCustomerGateways {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DescribeCustomerGatewaysRequest") {
+ require Amazon::EC2::Model::DescribeCustomerGatewaysRequest;
+ $request = Amazon::EC2::Model::DescribeCustomerGatewaysRequest->new($request);
+ }
+ require Amazon::EC2::Model::DescribeCustomerGatewaysResponse;
+ return Amazon::EC2::Model::DescribeCustomerGatewaysResponse->fromXML($self->_invoke($self->_convertDescribeCustomerGateways($request)));
+ }
+
+
+
+ #
+ # Create Vpn Connection
+ # Creates a new VPN connection between an existing VPN gateway and customer
+ # gateway. The only supported connection type is ipsec.1.
+ # The response includes information that you need to configure your customer gateway,
+ # in XML format. We recommend you use the command line version of this operation
+ # (ec2-create-vpn-connection), which lets you get the configuration information
+ # formatted in a friendlier way. For information about the command, go to
+ # ec2-create-vpn-connection in the Amazon Virtual Private Cloud Command Line Reference.
+ # Important -
+ # We strongly recommend you use HTTPS when calling this operation because
+ # the response contains sensitive cryptographic information for configuring
+ # your customer gateway.
+ # If you decide to shut down your VPN connection for any reason and then create a new
+ # one, you must re-configure your customer gateway with the new information
+ # returned from this call.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-CreateVpnConnection.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::CreateVpnConnectionRequest request
+ # or Amazon::EC2::Model::CreateVpnConnectionRequest object itself
+ # See Amazon::EC2::Model::CreateVpnConnectionRequest for valid arguments
+ # Returns Amazon::EC2::Model::CreateVpnConnectionResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub createVpnConnection {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::CreateVpnConnectionRequest") {
+ require Amazon::EC2::Model::CreateVpnConnectionRequest;
+ $request = Amazon::EC2::Model::CreateVpnConnectionRequest->new($request);
+ }
+ require Amazon::EC2::Model::CreateVpnConnectionResponse;
+ return Amazon::EC2::Model::CreateVpnConnectionResponse->fromXML($self->_invoke($self->_convertCreateVpnConnection($request)));
+ }
+
+
+
+ #
+ # Describe Dhcp Options
+ # Gives you information about one or more sets of DHCP options. You can specify
+ # one or more DHCP options set IDs, or no IDs (to describe all your sets of DHCP options).
+ # The returned information consists of:
+ # - The DHCP options set ID
+ # - The options
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DescribeDhcpOptions.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DescribeDhcpOptionsRequest request
+ # or Amazon::EC2::Model::DescribeDhcpOptionsRequest object itself
+ # See Amazon::EC2::Model::DescribeDhcpOptionsRequest for valid arguments
+ # Returns Amazon::EC2::Model::DescribeDhcpOptionsResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub describeDhcpOptions {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DescribeDhcpOptionsRequest") {
+ require Amazon::EC2::Model::DescribeDhcpOptionsRequest;
+ $request = Amazon::EC2::Model::DescribeDhcpOptionsRequest->new($request);
+ }
+ require Amazon::EC2::Model::DescribeDhcpOptionsResponse;
+ return Amazon::EC2::Model::DescribeDhcpOptionsResponse->fromXML($self->_invoke($self->_convertDescribeDhcpOptions($request)));
+ }
+
+
+
+ #
+ # Create Dhcp Options
+ # Creates a set of DHCP options that you can then associate with one or more VPCs,
+ # causing all existing and new instances that you launch in those VPCs to use the
+ # set of DHCP options. The following table lists the individual DHCP options you can
+ # specify. For more information about the options, go to RFC 2132 - http://www.ietf.org/rfc/rfc2132.txt
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-CreateDhcpOptions.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::CreateDhcpOptionsRequest request
+ # or Amazon::EC2::Model::CreateDhcpOptionsRequest object itself
+ # See Amazon::EC2::Model::CreateDhcpOptionsRequest for valid arguments
+ # Returns Amazon::EC2::Model::CreateDhcpOptionsResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub createDhcpOptions {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::CreateDhcpOptionsRequest") {
+ require Amazon::EC2::Model::CreateDhcpOptionsRequest;
+ $request = Amazon::EC2::Model::CreateDhcpOptionsRequest->new($request);
+ }
+ require Amazon::EC2::Model::CreateDhcpOptionsResponse;
+ return Amazon::EC2::Model::CreateDhcpOptionsResponse->fromXML($self->_invoke($self->_convertCreateDhcpOptions($request)));
+ }
+
+
+
+ #
+ # Request Spot Instances
+ # Creates a Spot Instance request. Spot Instances are instances that automatically launch when your
+ # request price exceeds the Spot Price that Amazon EC2 periodically calculates.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-RequestSpotInstances.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::RequestSpotInstancesRequest request
+ # or Amazon::EC2::Model::RequestSpotInstancesRequest object itself
+ # See Amazon::EC2::Model::RequestSpotInstancesRequest for valid arguments
+ # Returns Amazon::EC2::Model::RequestSpotInstancesResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub requestSpotInstances {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::RequestSpotInstancesRequest") {
+ require Amazon::EC2::Model::RequestSpotInstancesRequest;
+ $request = Amazon::EC2::Model::RequestSpotInstancesRequest->new($request);
+ }
+ require Amazon::EC2::Model::RequestSpotInstancesResponse;
+ return Amazon::EC2::Model::RequestSpotInstancesResponse->fromXML($self->_invoke($self->_convertRequestSpotInstances($request)));
+ }
+
+
+
+ #
+ # Describe Spot Instance Requests
+ # Describes Spot Instance requests. Spot Instances are instances that automatically launch when your
+ # request price exceeds the Spot Price that Amazon EC2 periodically calculates.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DescribeSpotInstanceRequests.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DescribeSpotInstanceRequestsRequest request
+ # or Amazon::EC2::Model::DescribeSpotInstanceRequestsRequest object itself
+ # See Amazon::EC2::Model::DescribeSpotInstanceRequestsRequest for valid arguments
+ # Returns Amazon::EC2::Model::DescribeSpotInstanceRequestsResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub describeSpotInstanceRequests {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DescribeSpotInstanceRequestsRequest") {
+ require Amazon::EC2::Model::DescribeSpotInstanceRequestsRequest;
+ $request = Amazon::EC2::Model::DescribeSpotInstanceRequestsRequest->new($request);
+ }
+ require Amazon::EC2::Model::DescribeSpotInstanceRequestsResponse;
+ return Amazon::EC2::Model::DescribeSpotInstanceRequestsResponse->fromXML($self->_invoke($self->_convertDescribeSpotInstanceRequests($request)));
+ }
+
+
+
+ #
+ # Cancel Spot Instance Requests
+ # Cancels Spot Instance requests. Spot Instances are instances that automatically launch when your
+ # request price exceeds the Spot Price that Amazon EC2 periodically calculates.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-CancelSpotInstanceRequests.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::CancelSpotInstanceRequestsRequest request
+ # or Amazon::EC2::Model::CancelSpotInstanceRequestsRequest object itself
+ # See Amazon::EC2::Model::CancelSpotInstanceRequestsRequest for valid arguments
+ # Returns Amazon::EC2::Model::CancelSpotInstanceRequestsResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub cancelSpotInstanceRequests {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::CancelSpotInstanceRequestsRequest") {
+ require Amazon::EC2::Model::CancelSpotInstanceRequestsRequest;
+ $request = Amazon::EC2::Model::CancelSpotInstanceRequestsRequest->new($request);
+ }
+ require Amazon::EC2::Model::CancelSpotInstanceRequestsResponse;
+ return Amazon::EC2::Model::CancelSpotInstanceRequestsResponse->fromXML($self->_invoke($self->_convertCancelSpotInstanceRequests($request)));
+ }
+
+
+
+ #
+ # Describe Spot Price History
+ # Describes historical pricing for Spot Instances. Spot Instances are instances that automatically launch
+ # when your request price exceeds the Spot Price that Amazon EC2 periodically calculates.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DescribeSpotPriceHistory.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DescribeSpotPriceHistoryRequest request
+ # or Amazon::EC2::Model::DescribeSpotPriceHistoryRequest object itself
+ # See Amazon::EC2::Model::DescribeSpotPriceHistoryRequest for valid arguments
+ # Returns Amazon::EC2::Model::DescribeSpotPriceHistoryResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub describeSpotPriceHistory {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DescribeSpotPriceHistoryRequest") {
+ require Amazon::EC2::Model::DescribeSpotPriceHistoryRequest;
+ $request = Amazon::EC2::Model::DescribeSpotPriceHistoryRequest->new($request);
+ }
+ require Amazon::EC2::Model::DescribeSpotPriceHistoryResponse;
+ return Amazon::EC2::Model::DescribeSpotPriceHistoryResponse->fromXML($self->_invoke($self->_convertDescribeSpotPriceHistory($request)));
+ }
+
+
+
+ #
+ # Create Spot Datafeed Subscription
+ # Creates the data feed for Spot Instances, enabling you to view Spot Instance usage logs. You can
+ # create one data feed per account.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-CreateSpotDatafeedSubscription.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::CreateSpotDatafeedSubscriptionRequest request
+ # or Amazon::EC2::Model::CreateSpotDatafeedSubscriptionRequest object itself
+ # See Amazon::EC2::Model::CreateSpotDatafeedSubscriptionRequest for valid arguments
+ # Returns Amazon::EC2::Model::CreateSpotDatafeedSubscriptionResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub createSpotDatafeedSubscription {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::CreateSpotDatafeedSubscriptionRequest") {
+ require Amazon::EC2::Model::CreateSpotDatafeedSubscriptionRequest;
+ $request = Amazon::EC2::Model::CreateSpotDatafeedSubscriptionRequest->new($request);
+ }
+ require Amazon::EC2::Model::CreateSpotDatafeedSubscriptionResponse;
+ return Amazon::EC2::Model::CreateSpotDatafeedSubscriptionResponse->fromXML($self->_invoke($self->_convertCreateSpotDatafeedSubscription($request)));
+ }
+
+
+
+ #
+ # Describe Spot Datafeed Subscription
+ # Describes the data feed for Spot Instances.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DescribeSpotDatafeedSubscription.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DescribeSpotDatafeedSubscriptionRequest request
+ # or Amazon::EC2::Model::DescribeSpotDatafeedSubscriptionRequest object itself
+ # See Amazon::EC2::Model::DescribeSpotDatafeedSubscriptionRequest for valid arguments
+ # Returns Amazon::EC2::Model::DescribeSpotDatafeedSubscriptionResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub describeSpotDatafeedSubscription {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DescribeSpotDatafeedSubscriptionRequest") {
+ require Amazon::EC2::Model::DescribeSpotDatafeedSubscriptionRequest;
+ $request = Amazon::EC2::Model::DescribeSpotDatafeedSubscriptionRequest->new($request);
+ }
+ require Amazon::EC2::Model::DescribeSpotDatafeedSubscriptionResponse;
+ return Amazon::EC2::Model::DescribeSpotDatafeedSubscriptionResponse->fromXML($self->_invoke($self->_convertDescribeSpotDatafeedSubscription($request)));
+ }
+
+
+
+ #
+ # Delete Spot Datafeed Subscription
+ # Deletes the data feed for Spot Instances.
+ # See http://docs.amazonwebservices.com/AWSEC2/2010-06-15/DeveloperGuide/ApiReference-Query-DeleteSpotDatafeedSubscription.html
+ # Argument either hash reference of parameters for Amazon::EC2::Model::DeleteSpotDatafeedSubscriptionRequest request
+ # or Amazon::EC2::Model::DeleteSpotDatafeedSubscriptionRequest object itself
+ # See Amazon::EC2::Model::DeleteSpotDatafeedSubscriptionRequest for valid arguments
+ # Returns Amazon::EC2::Model::DeleteSpotDatafeedSubscriptionResponse
+ #
+ # throws Amazon::EC2::Exception. Use eval to catch it
+ #
+ sub deleteSpotDatafeedSubscription {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::DeleteSpotDatafeedSubscriptionRequest") {
+ require Amazon::EC2::Model::DeleteSpotDatafeedSubscriptionRequest;
+ $request = Amazon::EC2::Model::DeleteSpotDatafeedSubscriptionRequest->new($request);
+ }
+ require Amazon::EC2::Model::DeleteSpotDatafeedSubscriptionResponse;
+ return Amazon::EC2::Model::DeleteSpotDatafeedSubscriptionResponse->fromXML($self->_invoke($self->_convertDeleteSpotDatafeedSubscription($request)));
+ }
+
+ sub createTags {
+ my ($self, $request) = @_;
+ if (not ref $request eq "Amazon::EC2::Model::CreateTagsRequest") {
+ require Amazon::EC2::Model::CreateTagsRequest;
+ $request = Amazon::EC2::Model::CreateTagsRequest->new($request);
+ }
+ require Amazon::EC2::Model::CreateTagsResponse;
+ return Amazon::EC2::Model::CreateTagsResponse->fromXML($self->_invokeVer($self->_convertCreateTags($request), "2013-10-15"));
+ }
+
+ # Private API ------------------------------------------------------------#
+
+ #
+ # Invoke request and return response
+ #
+ sub _invoke {
+ my ($self, $parameters) = @_;
+ my $actionName = $parameters->{Action};
+ my $response = undef;
+ my $statusCode = 200;
+
+ # Add required request parameters #
+ $parameters = $self->_addRequiredParameters($parameters);
+
+ my $retries = 0;
+ my $shouldRetry = 1;
+
+ eval {
+ do {
+ # Submit the request and read response body #
+ eval {
+ $response = $self->_httpPost($parameters);
+ if ($response->is_success) {
+ $shouldRetry = 0;
+ } else {
+ if ($response->code == 500 || $response->code == 503) {
+ $shouldRetry = 1;
+ $self->_pauseOnRetry(++$retries, $response->code);
+ } else {
+ my $ex = $self->_reportAnyErrors($response->content, $response->code);
+ Carp::croak ($ex) if ($ex);
+ }
+ }
+ };
+ my $e = $@;
+ if ($e) {
+ if (ref $e eq "Amazon::EC2::Exception") {
+ Carp::croak $e;
+ } else {
+ Carp::croak (Amazon::EC2::Exception->new ({Message => $e}));
+ }
+ }
+ } while ($shouldRetry);
+ };
+ my $e = $@;
+ if ($e) {
+ if (ref $e eq "Amazon::EC2::Exception") {
+ Carp::croak $e;
+ } else {
+ Carp::croak (Amazon::EC2::Exception->new ({Message => $e}));
+ }
+ }
+
+ use ElectricCommander;
+
+ my $results;
+ eval {
+ my $ec = new ElectricCommander();
+
+ my $xsl_file = "/myProject/lib/Amazon/EC2/Model/" . $actionName . "Response.xslt"; #"../Model/".$actionName . "Response.xslt";
+
+ my $xpath = $ec->getProperty($xsl_file);
+ my $xsl_string = $xpath->findvalue("//value");
+
+ my $xslt = XML::XSLT->new ($xsl_string, warnings => 1);
+ $xslt->transform ($response->content);
+ $results = $xslt->toString;
+ #print $results;
+ $xslt->dispose();
+ };
+ if ($@) {
+ Carp::croak $@;
+ }
+
+ #my $xml = $self->{_xml_parser}->parse_string($response->content);
+ #my $template = $self->{_xml_parser}->parse_file($path . "Model/" . $actionName . "Response.xslt");
+ #my $transformer = $self->{_xslt_parser}->parse_stylesheet($template);
+ #my $results = $transformer->output_string($transformer->transform($xml));
+ if ($results =~ m/^new ({Message => $results}));
+ } else {
+ return $results;
+ }
+ }
+
+ #
+ # Invoke request for specified api version
+ #
+ sub _invokeVer {
+ my ($self, $parameters, $version) = @_;
+ my $actionName = $parameters->{Action};
+ my $response = undef;
+ my $statusCode = 200;
+
+ # Add required request parameters #
+ $parameters->{AWSAccessKeyId} = $self->{_awsAccessKeyId};
+ $parameters->{Timestamp} = $self->_getFormattedTimestamp();
+ $parameters->{Version} = $version;
+ $parameters->{SignatureVersion} = $self->{_config}->{SignatureVersion} || "1";
+ $parameters->{Signature} = $self->_signParameters($parameters, $self->{_awsSecretAccessKey});
+
+ my $retries = 0;
+ my $shouldRetry = 1;
+
+ eval {
+ do {
+ # Submit the request and read response body #
+ eval {
+ $response = $self->_httpPost($parameters);
+ if ($response->is_success) {
+ $shouldRetry = 0;
+ } else {
+ if ($response->code == 500 || $response->code == 503) {
+ $shouldRetry = 1;
+ $self->_pauseOnRetry(++$retries, $response->code);
+ } else {
+ my $ex = $self->_reportAnyErrors($response->content, $response->code);
+ Carp::croak ($ex) if ($ex);
+ }
+ }
+ };
+ my $e = $@;
+ if ($e) {
+ if (ref $e eq "Amazon::EC2::Exception") {
+ Carp::croak $e;
+ } else {
+ Carp::croak (Amazon::EC2::Exception->new ({Message => $e}));
+ }
+ }
+ } while ($shouldRetry);
+ };
+ my $e = $@;
+ if ($e) {
+ if (ref $e eq "Amazon::EC2::Exception") {
+ Carp::croak $e;
+ } else {
+ Carp::croak (Amazon::EC2::Exception->new ({Message => $e}));
+ }
+ }
+
+ use ElectricCommander;
+
+ my $results;
+ eval {
+ my $ec = new ElectricCommander();
+
+ my $xsl_file = "/myProject/lib/Amazon/EC2/Model/" . $actionName . "Response.xslt"; #"../Model/".$actionName . "Response.xslt";
+
+ my $xpath = $ec->getProperty($xsl_file);
+ my $xsl_string = $xpath->findvalue("//value");
+
+ my $xslt = XML::XSLT->new ($xsl_string, warnings => 1);
+ $xslt->transform ($response->content);
+ $results = $xslt->toString;
+ #print $results;
+ $xslt->dispose();
+ };
+ if ($@) {
+ Carp::croak $@;
+ }
+
+ #my $xml = $self->{_xml_parser}->parse_string($response->content);
+ #my $template = $self->{_xml_parser}->parse_file($path . "Model/" . $actionName . "Response.xslt");
+ #my $transformer = $self->{_xslt_parser}->parse_stylesheet($template);
+ #my $results = $transformer->output_string($transformer->transform($xml));
+ if ($results =~ m/^new ({Message => $results}));
+ } else {
+ return $results;
+ }
+ }
+
+ #
+ # Exponential sleep on failed request
+ # Retries - current retry
+ # throws Amazon::EC2::Exception if maximum number of retries has been reached
+ #
+ sub _pauseOnRetry {
+ my ($self, $retries, $status) = @_;
+ if ($retries <= $self->{_config}->{MaxErrorRetry}) {
+ my $delay = (4 ** $retries) * 100000 ;
+ usleep($delay);
+ } else {
+ Carp::croak new Amazon::EC2::Exception ({Message => "Maximum number of retry attempts reached : " . ($retries - 1),
+ StatusCode => $status});
+ }
+ }
+
+ #
+ # Look for additional error strings in the response and return formatted exception
+ #
+ sub _reportAnyErrors {
+ my ($self, $responseBody, $status, $e) = @_;
+ my $ex = undef;
+ if (defined($responseBody) and $responseBody =~ m/(.*)<\/RequestId>.*(.*)<\/Code>(.*)<\/Message><\/Error>.*()?/msg) {
+
+ my $requestId = $1;
+ my $code = $2;
+ my $message = $3;
+ $ex = Amazon::EC2::Exception->new ({Message => $message,
+ StatusCode => $status,
+ ErrorCode => $code,
+ ErrorType => "Unknown",
+ RequestId => $requestId,
+ XML => $responseBody});
+
+ } elsif ($responseBody =~ m/(.*)<\/Code>(.*)<\/Message><\/Error>.*()?.*(.*)<\/RequestID>/msg) {
+
+ my $code = $1;
+ my $message = $2;
+ my $requestId = $4;
+ $ex = Amazon::EC2::Exception->new({Message => $message,
+ StatusCode => $status,
+ ErrorCode => $code,
+ ErrorType => "Unknown",
+ RequestId => $requestId,
+ XML => $responseBody});
+ } else {
+ $ex = Amazon::EC2::Exception->new({
+ Message => "Internal Error",
+ StatusCode => $status});
+ }
+ } else {
+ $ex = Amazon::EC2::Exception->new({
+ Message => "Internal Error",
+ StatusCode => $status});
+ }
+ return $ex;
+ }
+
+ #
+ # perform http post
+ #
+ sub _httpPost {
+ my ($self, $parameters) = @_;
+ my $url = $self->{_config}->{ServiceURL};
+ require LWP::UserAgent;
+ my $ua = LWP::UserAgent->new;
+ my $request= HTTP::Request->new("POST", $url);
+ $request->content_type("application/x-www-form-urlencoded; charset=utf-8");
+ my $data = "";
+ foreach my $parameterName (keys %$parameters) {
+ no warnings "uninitialized";
+ $data .= $parameterName . "=" . $self->_urlencode($parameters->{$parameterName}, 0);
+ $data .= "&";
+ }
+ chop ($data);
+ $request->content($data);
+ my $response = $ua->request($request);
+ return $response;
+ }
+
+ #
+ # Add authentication related and version parameters
+ #
+ sub _addRequiredParameters {
+ my ($self, $parameters) = @_;
+ $parameters->{AWSAccessKeyId} = $self->{_awsAccessKeyId};
+ $parameters->{Timestamp} = $self->_getFormattedTimestamp();
+ $parameters->{Version} = $SERVICE_VERSION;
+ $parameters->{SignatureVersion} = $self->{_config}->{SignatureVersion} || "1";
+ $parameters->{Signature} = $self->_signParameters($parameters, $self->{_awsSecretAccessKey});
+
+ return $parameters;
+ }
+
+ #
+ # Computes RFC 2104-compliant HMAC signature for request parameters
+ # Implements AWS Signature, as per following spec:
+ #
+ # If Signature Version is 0, it signs concatenated Action and Timestamp
+ #
+ # If Signature Version is 1, it performs the following:
+ #
+ # Sorts all parameters (including SignatureVersion and excluding Signature,
+ # the value of which is being created), ignoring case.
+ #
+ # Iterate over the sorted list and append the parameter name (in original case)
+ # and then its value. It will not URL-encode the parameter values before
+ # constructing this string. There are no separators.
+ #
+ sub _signParameters {
+ my ($self, $parameters, $key) = @_;
+ my $algorithm = "HmacSHA1";
+ my $data = "";
+ my $signatureVersion = $parameters->{SignatureVersion};
+ if ("0" eq $signatureVersion) {
+ $data = $self->_calculateStringToSignV0($parameters);
+ } elsif ("1" eq $signatureVersion) {
+ $data = $self->_calculateStringToSignV1($parameters);
+ } elsif ("2" eq $signatureVersion) {
+ $algorithm = $self->{_config}->{SignatureMethod};
+ $parameters->{SignatureMethod} = $algorithm;
+ $data = $self->_calculateStringToSignV2($parameters);
+ } else {
+ Carp::croak ("Invalid Signature Version specified");
+ }
+ return $self->_sign($data, $key, $algorithm);
+ }
+
+
+ sub _calculateStringToSignV0 {
+ my ($self, $parameters) = @_;
+ return $parameters->{Action} . $parameters->{Timestamp};
+ }
+
+
+ sub _calculateStringToSignV1 {
+ my ($self, $parameters) = @_;
+ my $data = "";
+ foreach my $parameterName (sort { lc($a) cmp lc($b) } keys %$parameters) {
+ no warnings "uninitialized";
+ $data .= $parameterName . $parameters->{$parameterName};
+ }
+ return $data;
+ }
+
+ sub _calculateStringToSignV2 {
+ my ($self, $parameters) = @_;
+ my $endpoint = URI->new ($self->{_config}->{ServiceURL});
+ my $data = "POST";
+ $data .= "\n";
+ $data .= $endpoint->host;
+ $data .= "\n";
+ my $path = $endpoint->path || "/";
+ $data .= $self->_urlencode($path, 1);
+ $data .= "\n";
+ my @parameterKeys = keys %$parameters;
+ foreach my $parameterName (sort { $a cmp $b } @parameterKeys ) {
+ no warnings "uninitialized";
+ $data .= $parameterName . "=" . $self->_urlencode($parameters->{$parameterName});
+ $data .= "&";
+ }
+ chop ($data);
+ return $data;
+ }
+
+ sub _urlencode {
+ my ($self, $value, $path) = @_;
+ use URI::Escape qw(uri_escape_utf8);
+ my $escapepattern = "^A-Za-z0-9\-_.~";
+ if ($path) {
+ $escapepattern = $escapepattern . "/";
+ }
+ return uri_escape_utf8($value, $escapepattern);
+ }
+
+ #
+ # Computes RFC 2104-compliant HMAC signature.
+ #
+ sub _sign {
+ my ($self, $data, $key, $algorithm) = @_;
+ my $output = "";
+ if ("HmacSHA1" eq $algorithm) {
+ $output = hmac_sha1_base64 ($data, $key);
+ } elsif ("HmacSHA256" eq $algorithm) {
+ $output = hmac_sha256_base64 ($data, $key);
+ } else {
+ Carp::croak ("Non-supported signing method specified");
+ }
+ return $output . "=";
+ }
+
+ #
+ # Formats date as ISO 8601 timestamp
+ #
+ sub _getFormattedTimestamp {
+ return sprintf("%04d-%02d-%02dT%02d:%02d:%02d.000Z",
+ sub { ($_[5]+1900,
+ $_[4]+1,
+ $_[3],
+ $_[2],
+ $_[1],
+ $_[0])
+ }->(gmtime(time)));
+ }
+
+
+ #
+ # Convert ActivateLicenseRequest to name value pairs
+ #
+ sub _convertActivateLicense() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "ActivateLicense";
+ if ($request->isSetLicenseId()) {
+ $parameters->{"LicenseId"} = $request->getLicenseId();
+ }
+ if ($request->isSetCapacity()) {
+ $parameters->{"Capacity"} = $request->getCapacity();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert AllocateAddressRequest to name value pairs
+ #
+ sub _convertAllocateAddress() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "AllocateAddress";
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert AttachVpnGatewayRequest to name value pairs
+ #
+ sub _convertAttachVpnGateway() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "AttachVpnGateway";
+ if ($request->isSetVpnGatewayId()) {
+ $parameters->{"VpnGatewayId"} = $request->getVpnGatewayId();
+ }
+ if ($request->isSetVpcId()) {
+ $parameters->{"VpcId"} = $request->getVpcId();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert AssociateDhcpOptionsRequest to name value pairs
+ #
+ sub _convertAssociateDhcpOptions() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "AssociateDhcpOptions";
+ if ($request->isSetDhcpOptionsId()) {
+ $parameters->{"DhcpOptionsId"} = $request->getDhcpOptionsId();
+ }
+ if ($request->isSetVpcId()) {
+ $parameters->{"VpcId"} = $request->getVpcId();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert AssociateAddressRequest to name value pairs
+ #
+ sub _convertAssociateAddress() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "AssociateAddress";
+ if ($request->isSetInstanceId()) {
+ $parameters->{"InstanceId"} = $request->getInstanceId();
+ }
+ if ($request->isSetPublicIp()) {
+ $parameters->{"PublicIp"} = $request->getPublicIp();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert AuthorizeSecurityGroupIngressRequest to name value pairs
+ #
+ sub _convertAuthorizeSecurityGroupIngress() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "AuthorizeSecurityGroupIngress";
+ if ($request->isSetUserId()) {
+ $parameters->{"UserId"} = $request->getUserId();
+ }
+ if ($request->isSetGroupName()) {
+ $parameters->{"GroupName"} = $request->getGroupName();
+ }
+ if ($request->isSetSourceSecurityGroupName()) {
+ $parameters->{"SourceSecurityGroupName"} = $request->getSourceSecurityGroupName();
+ }
+ if ($request->isSetSourceSecurityGroupOwnerId()) {
+ $parameters->{"SourceSecurityGroupOwnerId"} = $request->getSourceSecurityGroupOwnerId();
+ }
+ if ($request->isSetIpProtocol()) {
+ $parameters->{"IpProtocol"} = $request->getIpProtocol();
+ }
+ if ($request->isSetFromPort()) {
+ $parameters->{"FromPort"} = $request->getFromPort();
+ }
+ if ($request->isSetToPort()) {
+ $parameters->{"ToPort"} = $request->getToPort();
+ }
+ if ($request->isSetCidrIp()) {
+ $parameters->{"CidrIp"} = $request->getCidrIp();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert BundleInstanceRequest to name value pairs
+ #
+ sub _convertBundleInstance() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "BundleInstance";
+ if ($request->isSetInstanceId()) {
+ $parameters->{"InstanceId"} = $request->getInstanceId();
+ }
+ if ($request->isSetStorage()) {
+ my $storagebundleInstanceRequest = $request->getStorage();
+ if ($storagebundleInstanceRequest->isSetS3()) {
+ my $s3storage = $storagebundleInstanceRequest->getS3();
+ if ($s3storage->isSetBucket()) {
+ $parameters->{"Storage" . "." . "S3" . "." . "Bucket"} = $s3storage->getBucket();
+ }
+ if ($s3storage->isSetPrefix()) {
+ $parameters->{"Storage" . "." . "S3" . "." . "Prefix"} = $s3storage->getPrefix();
+ }
+ if ($s3storage->isSetAWSAccessKeyId()) {
+ $parameters->{"Storage" . "." . "S3" . "." . "AWSAccessKeyId"} = $s3storage->getAWSAccessKeyId();
+ }
+ if ($s3storage->isSetUploadPolicy()) {
+ $parameters->{"Storage" . "." . "S3" . "." . "UploadPolicy"} = $s3storage->getUploadPolicy();
+ }
+ if ($s3storage->isSetUploadPolicySignature()) {
+ $parameters->{"Storage" . "." . "S3" . "." . "UploadPolicySignature"} = $s3storage->getUploadPolicySignature();
+ }
+ }
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert CancelBundleTaskRequest to name value pairs
+ #
+ sub _convertCancelBundleTask() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "CancelBundleTask";
+ if ($request->isSetBundleId()) {
+ $parameters->{"BundleId"} = $request->getBundleId();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert ConfirmProductInstanceRequest to name value pairs
+ #
+ sub _convertConfirmProductInstance() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "ConfirmProductInstance";
+ if ($request->isSetProductCode()) {
+ $parameters->{"ProductCode"} = $request->getProductCode();
+ }
+ if ($request->isSetInstanceId()) {
+ $parameters->{"InstanceId"} = $request->getInstanceId();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert CreatePlacementGroupRequest to name value pairs
+ #
+ sub _convertCreatePlacementGroup() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "CreatePlacementGroup";
+ if ($request->isSetGroupName()) {
+ $parameters->{"GroupName"} = $request->getGroupName();
+ }
+ if ($request->isSetStrategy()) {
+ $parameters->{"Strategy"} = $request->getStrategy();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert CreateImageRequest to name value pairs
+ #
+ sub _convertCreateImage() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "CreateImage";
+ if ($request->isSetInstanceId()) {
+ $parameters->{"InstanceId"} = $request->getInstanceId();
+ }
+ if ($request->isSetName()) {
+ $parameters->{"Name"} = $request->getName();
+ }
+ if ($request->isSetDescription()) {
+ $parameters->{"Description"} = $request->getDescription();
+ }
+ if ($request->isSetNoReboot()) {
+ $parameters->{"NoReboot"} = $request->getNoReboot() ? "true" : "false";
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert CreateKeyPairRequest to name value pairs
+ #
+ sub _convertCreateKeyPair() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "CreateKeyPair";
+ if ($request->isSetKeyName()) {
+ $parameters->{"KeyName"} = $request->getKeyName();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert CreateSubnetRequest to name value pairs
+ #
+ sub _convertCreateSubnet() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "CreateSubnet";
+ if ($request->isSetVpcId()) {
+ $parameters->{"VpcId"} = $request->getVpcId();
+ }
+ if ($request->isSetCidrBlock()) {
+ $parameters->{"CidrBlock"} = $request->getCidrBlock();
+ }
+ if ($request->isSetAvailabilityZone()) {
+ $parameters->{"AvailabilityZone"} = $request->getAvailabilityZone();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert CreateVpnConnectionRequest to name value pairs
+ #
+ sub _convertCreateVpnConnection() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "CreateVpnConnection";
+ if ($request->isSetType()) {
+ $parameters->{"Type"} = $request->getType();
+ }
+ if ($request->isSetCustomerGatewayId()) {
+ $parameters->{"CustomerGatewayId"} = $request->getCustomerGatewayId();
+ }
+ if ($request->isSetVpnGatewayId()) {
+ $parameters->{"VpnGatewayId"} = $request->getVpnGatewayId();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert CreateVpnGatewayRequest to name value pairs
+ #
+ sub _convertCreateVpnGateway() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "CreateVpnGateway";
+ if ($request->isSetType()) {
+ $parameters->{"Type"} = $request->getType();
+ }
+ if ($request->isSetAvailabilityZone()) {
+ $parameters->{"AvailabilityZone"} = $request->getAvailabilityZone();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert CreateDhcpOptionsRequest to name value pairs
+ #
+ sub _convertCreateDhcpOptions() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "CreateDhcpOptions";
+ my $dhcpConfigurationcreateDhcpOptionsRequestList = $request->getDhcpConfiguration();
+ for my $dhcpConfigurationcreateDhcpOptionsRequestIndex (0 .. $#{$dhcpConfigurationcreateDhcpOptionsRequestList}) {
+ my $dhcpConfigurationcreateDhcpOptionsRequest = $dhcpConfigurationcreateDhcpOptionsRequestList->[$dhcpConfigurationcreateDhcpOptionsRequestIndex];
+ if ($dhcpConfigurationcreateDhcpOptionsRequest->isSetKey()) {
+ $parameters->{"DhcpConfiguration" . "." . ($dhcpConfigurationcreateDhcpOptionsRequestIndex + 1) . "." . "Key"} = $dhcpConfigurationcreateDhcpOptionsRequest->getKey();
+ }
+ my $valuedhcpConfigurationList = $dhcpConfigurationcreateDhcpOptionsRequest->getValue();
+ for my $valuedhcpConfigurationIndex (0 .. $#{$valuedhcpConfigurationList}) {
+ my $valuedhcpConfiguration = $valuedhcpConfigurationList->[$valuedhcpConfigurationIndex];
+ $parameters->{"DhcpConfiguration" . "." . ($dhcpConfigurationcreateDhcpOptionsRequestIndex + 1) . "." . "Value" . "." . ($valuedhcpConfigurationIndex + 1)} = $valuedhcpConfiguration;
+ }
+
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert CreateVpcRequest to name value pairs
+ #
+ sub _convertCreateVpc() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "CreateVpc";
+ if ($request->isSetCidrBlock()) {
+ $parameters->{"CidrBlock"} = $request->getCidrBlock();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert CreateCustomerGatewayRequest to name value pairs
+ #
+ sub _convertCreateCustomerGateway() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "CreateCustomerGateway";
+ if ($request->isSetType()) {
+ $parameters->{"Type"} = $request->getType();
+ }
+ if ($request->isSetIpAddress()) {
+ $parameters->{"IpAddress"} = $request->getIpAddress();
+ }
+ if ($request->isSetBgpAsn()) {
+ $parameters->{"BgpAsn"} = $request->getBgpAsn();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert CreateSecurityGroupRequest to name value pairs
+ #
+ sub _convertCreateSecurityGroup() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "CreateSecurityGroup";
+ if ($request->isSetGroupName()) {
+ $parameters->{"GroupName"} = $request->getGroupName();
+ }
+ if ($request->isSetGroupDescription()) {
+ $parameters->{"GroupDescription"} = $request->getGroupDescription();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DeactivateLicenseRequest to name value pairs
+ #
+ sub _convertDeactivateLicense() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DeactivateLicense";
+ if ($request->isSetLicenseId()) {
+ $parameters->{"LicenseId"} = $request->getLicenseId();
+ }
+ if ($request->isSetCapacity()) {
+ $parameters->{"Capacity"} = $request->getCapacity();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DeleteKeyPairRequest to name value pairs
+ #
+ sub _convertDeleteKeyPair() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DeleteKeyPair";
+ if ($request->isSetKeyName()) {
+ $parameters->{"KeyName"} = $request->getKeyName();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DeletePlacementGroupRequest to name value pairs
+ #
+ sub _convertDeletePlacementGroup() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DeletePlacementGroup";
+ if ($request->isSetGroupName()) {
+ $parameters->{"GroupName"} = $request->getGroupName();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DeleteVpcRequest to name value pairs
+ #
+ sub _convertDeleteVpc() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DeleteVpc";
+ if ($request->isSetVpcId()) {
+ $parameters->{"VpcId"} = $request->getVpcId();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DeleteVpnGatewayRequest to name value pairs
+ #
+ sub _convertDeleteVpnGateway() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DeleteVpnGateway";
+ if ($request->isSetVpnGatewayId()) {
+ $parameters->{"VpnGatewayId"} = $request->getVpnGatewayId();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DeleteVpnConnectionRequest to name value pairs
+ #
+ sub _convertDeleteVpnConnection() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DeleteVpnConnection";
+ if ($request->isSetVpnConnectionId()) {
+ $parameters->{"VpnConnectionId"} = $request->getVpnConnectionId();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DeleteDhcpOptionsRequest to name value pairs
+ #
+ sub _convertDeleteDhcpOptions() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DeleteDhcpOptions";
+ if ($request->isSetDhcpOptionsId()) {
+ $parameters->{"DhcpOptionsId"} = $request->getDhcpOptionsId();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DeleteCustomerGatewayRequest to name value pairs
+ #
+ sub _convertDeleteCustomerGateway() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DeleteCustomerGateway";
+ if ($request->isSetCustomerGatewayId()) {
+ $parameters->{"CustomerGatewayId"} = $request->getCustomerGatewayId();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DeleteSecurityGroupRequest to name value pairs
+ #
+ sub _convertDeleteSecurityGroup() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DeleteSecurityGroup";
+ if ($request->isSetGroupName()) {
+ $parameters->{"GroupName"} = $request->getGroupName();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DeleteSubnetRequest to name value pairs
+ #
+ sub _convertDeleteSubnet() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DeleteSubnet";
+ if ($request->isSetSubnetId()) {
+ $parameters->{"SubnetId"} = $request->getSubnetId();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DescribeVpcsRequest to name value pairs
+ #
+ sub _convertDescribeVpcs() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DescribeVpcs";
+ my $vpcIddescribeVpcsRequestList = $request->getVpcId();
+ for my $vpcIddescribeVpcsRequestIndex (0 .. $#{$vpcIddescribeVpcsRequestList}) {
+ my $vpcIddescribeVpcsRequest = $vpcIddescribeVpcsRequestList->[$vpcIddescribeVpcsRequestIndex];
+ $parameters->{"VpcId" . "." . ($vpcIddescribeVpcsRequestIndex + 1)} = $vpcIddescribeVpcsRequest;
+ }
+ my $filterdescribeVpcsRequestList = $request->getFilter();
+ for my $filterdescribeVpcsRequestIndex (0 .. $#{$filterdescribeVpcsRequestList}) {
+ my $filterdescribeVpcsRequest = $filterdescribeVpcsRequestList->[$filterdescribeVpcsRequestIndex];
+ if ($filterdescribeVpcsRequest->isSetName()) {
+ $parameters->{"Filter" . "." . ($filterdescribeVpcsRequestIndex + 1) . "." . "Name"} = $filterdescribeVpcsRequest->getName();
+ }
+ my $valuefilterList = $filterdescribeVpcsRequest->getValue();
+ for my $valuefilterIndex (0 .. $#{$valuefilterList}) {
+ my $valuefilter = $valuefilterList->[$valuefilterIndex];
+ $parameters->{"Filter" . "." . ($filterdescribeVpcsRequestIndex + 1) . "." . "Value" . "." . ($valuefilterIndex + 1)} = $valuefilter;
+ }
+
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DescribeVpnGatewaysRequest to name value pairs
+ #
+ sub _convertDescribeVpnGateways() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DescribeVpnGateways";
+ my $vpnGatewayIddescribeVpnGatewaysRequestList = $request->getVpnGatewayId();
+ for my $vpnGatewayIddescribeVpnGatewaysRequestIndex (0 .. $#{$vpnGatewayIddescribeVpnGatewaysRequestList}) {
+ my $vpnGatewayIddescribeVpnGatewaysRequest = $vpnGatewayIddescribeVpnGatewaysRequestList->[$vpnGatewayIddescribeVpnGatewaysRequestIndex];
+ $parameters->{"VpnGatewayId" . "." . ($vpnGatewayIddescribeVpnGatewaysRequestIndex + 1)} = $vpnGatewayIddescribeVpnGatewaysRequest;
+ }
+ my $filterdescribeVpnGatewaysRequestList = $request->getFilter();
+ for my $filterdescribeVpnGatewaysRequestIndex (0 .. $#{$filterdescribeVpnGatewaysRequestList}) {
+ my $filterdescribeVpnGatewaysRequest = $filterdescribeVpnGatewaysRequestList->[$filterdescribeVpnGatewaysRequestIndex];
+ if ($filterdescribeVpnGatewaysRequest->isSetName()) {
+ $parameters->{"Filter" . "." . ($filterdescribeVpnGatewaysRequestIndex + 1) . "." . "Name"} = $filterdescribeVpnGatewaysRequest->getName();
+ }
+ my $valuefilterList = $filterdescribeVpnGatewaysRequest->getValue();
+ for my $valuefilterIndex (0 .. $#{$valuefilterList}) {
+ my $valuefilter = $valuefilterList->[$valuefilterIndex];
+ $parameters->{"Filter" . "." . ($filterdescribeVpnGatewaysRequestIndex + 1) . "." . "Value" . "." . ($valuefilterIndex + 1)} = $valuefilter;
+ }
+
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DescribeDhcpOptionsRequest to name value pairs
+ #
+ sub _convertDescribeDhcpOptions() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DescribeDhcpOptions";
+ my $dhcpOptionsIddescribeDhcpOptionsRequestList = $request->getDhcpOptionsId();
+ for my $dhcpOptionsIddescribeDhcpOptionsRequestIndex (0 .. $#{$dhcpOptionsIddescribeDhcpOptionsRequestList}) {
+ my $dhcpOptionsIddescribeDhcpOptionsRequest = $dhcpOptionsIddescribeDhcpOptionsRequestList->[$dhcpOptionsIddescribeDhcpOptionsRequestIndex];
+ $parameters->{"DhcpOptionsId" . "." . ($dhcpOptionsIddescribeDhcpOptionsRequestIndex + 1)} = $dhcpOptionsIddescribeDhcpOptionsRequest;
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DescribeVpnConnectionsRequest to name value pairs
+ #
+ sub _convertDescribeVpnConnections() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DescribeVpnConnections";
+ my $vpnConnectionIddescribeVpnConnectionsRequestList = $request->getVpnConnectionId();
+ for my $vpnConnectionIddescribeVpnConnectionsRequestIndex (0 .. $#{$vpnConnectionIddescribeVpnConnectionsRequestList}) {
+ my $vpnConnectionIddescribeVpnConnectionsRequest = $vpnConnectionIddescribeVpnConnectionsRequestList->[$vpnConnectionIddescribeVpnConnectionsRequestIndex];
+ $parameters->{"VpnConnectionId" . "." . ($vpnConnectionIddescribeVpnConnectionsRequestIndex + 1)} = $vpnConnectionIddescribeVpnConnectionsRequest;
+ }
+ my $filterdescribeVpnConnectionsRequestList = $request->getFilter();
+ for my $filterdescribeVpnConnectionsRequestIndex (0 .. $#{$filterdescribeVpnConnectionsRequestList}) {
+ my $filterdescribeVpnConnectionsRequest = $filterdescribeVpnConnectionsRequestList->[$filterdescribeVpnConnectionsRequestIndex];
+ if ($filterdescribeVpnConnectionsRequest->isSetName()) {
+ $parameters->{"Filter" . "." . ($filterdescribeVpnConnectionsRequestIndex + 1) . "." . "Name"} = $filterdescribeVpnConnectionsRequest->getName();
+ }
+ my $valuefilterList = $filterdescribeVpnConnectionsRequest->getValue();
+ for my $valuefilterIndex (0 .. $#{$valuefilterList}) {
+ my $valuefilter = $valuefilterList->[$valuefilterIndex];
+ $parameters->{"Filter" . "." . ($filterdescribeVpnConnectionsRequestIndex + 1) . "." . "Value" . "." . ($valuefilterIndex + 1)} = $valuefilter;
+ }
+
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DescribeCustomerGatewaysRequest to name value pairs
+ #
+ sub _convertDescribeCustomerGateways() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DescribeCustomerGateways";
+ my $customerGatewayIddescribeCustomerGatewaysRequestList = $request->getCustomerGatewayId();
+ for my $customerGatewayIddescribeCustomerGatewaysRequestIndex (0 .. $#{$customerGatewayIddescribeCustomerGatewaysRequestList}) {
+ my $customerGatewayIddescribeCustomerGatewaysRequest = $customerGatewayIddescribeCustomerGatewaysRequestList->[$customerGatewayIddescribeCustomerGatewaysRequestIndex];
+ $parameters->{"CustomerGatewayId" . "." . ($customerGatewayIddescribeCustomerGatewaysRequestIndex + 1)} = $customerGatewayIddescribeCustomerGatewaysRequest;
+ }
+ my $filterdescribeCustomerGatewaysRequestList = $request->getFilter();
+ for my $filterdescribeCustomerGatewaysRequestIndex (0 .. $#{$filterdescribeCustomerGatewaysRequestList}) {
+ my $filterdescribeCustomerGatewaysRequest = $filterdescribeCustomerGatewaysRequestList->[$filterdescribeCustomerGatewaysRequestIndex];
+ if ($filterdescribeCustomerGatewaysRequest->isSetName()) {
+ $parameters->{"Filter" . "." . ($filterdescribeCustomerGatewaysRequestIndex + 1) . "." . "Name"} = $filterdescribeCustomerGatewaysRequest->getName();
+ }
+ my $valuefilterList = $filterdescribeCustomerGatewaysRequest->getValue();
+ for my $valuefilterIndex (0 .. $#{$valuefilterList}) {
+ my $valuefilter = $valuefilterList->[$valuefilterIndex];
+ $parameters->{"Filter" . "." . ($filterdescribeCustomerGatewaysRequestIndex + 1) . "." . "Value" . "." . ($valuefilterIndex + 1)} = $valuefilter;
+ }
+
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DescribeReservedInstancesOfferingsRequest to name value pairs
+ #
+ sub _convertDescribeReservedInstancesOfferings() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DescribeReservedInstancesOfferings";
+ my $reservedInstancesIddescribeReservedInstancesOfferingsRequestList = $request->getReservedInstancesId();
+ for my $reservedInstancesIddescribeReservedInstancesOfferingsRequestIndex (0 .. $#{$reservedInstancesIddescribeReservedInstancesOfferingsRequestList}) {
+ my $reservedInstancesIddescribeReservedInstancesOfferingsRequest = $reservedInstancesIddescribeReservedInstancesOfferingsRequestList->[$reservedInstancesIddescribeReservedInstancesOfferingsRequestIndex];
+ $parameters->{"ReservedInstancesId" . "." . ($reservedInstancesIddescribeReservedInstancesOfferingsRequestIndex + 1)} = $reservedInstancesIddescribeReservedInstancesOfferingsRequest;
+ }
+ if ($request->isSetInstanceType()) {
+ $parameters->{"InstanceType"} = $request->getInstanceType();
+ }
+ if ($request->isSetAvailabilityZone()) {
+ $parameters->{"AvailabilityZone"} = $request->getAvailabilityZone();
+ }
+ if ($request->isSetProductDescription()) {
+ $parameters->{"ProductDescription"} = $request->getProductDescription();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DescribeReservedInstancesRequest to name value pairs
+ #
+ sub _convertDescribeReservedInstances() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DescribeReservedInstances";
+ my $reservedInstancesIddescribeReservedInstancesRequestList = $request->getReservedInstancesId();
+ for my $reservedInstancesIddescribeReservedInstancesRequestIndex (0 .. $#{$reservedInstancesIddescribeReservedInstancesRequestList}) {
+ my $reservedInstancesIddescribeReservedInstancesRequest = $reservedInstancesIddescribeReservedInstancesRequestList->[$reservedInstancesIddescribeReservedInstancesRequestIndex];
+ $parameters->{"ReservedInstancesId" . "." . ($reservedInstancesIddescribeReservedInstancesRequestIndex + 1)} = $reservedInstancesIddescribeReservedInstancesRequest;
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DescribeSubnetsRequest to name value pairs
+ #
+ sub _convertDescribeSubnets() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DescribeSubnets";
+ my $subnetIddescribeSubnetsRequestList = $request->getSubnetId();
+ for my $subnetIddescribeSubnetsRequestIndex (0 .. $#{$subnetIddescribeSubnetsRequestList}) {
+ my $subnetIddescribeSubnetsRequest = $subnetIddescribeSubnetsRequestList->[$subnetIddescribeSubnetsRequestIndex];
+ $parameters->{"SubnetId" . "." . ($subnetIddescribeSubnetsRequestIndex + 1)} = $subnetIddescribeSubnetsRequest;
+ }
+ my $filterdescribeSubnetsRequestList = $request->getFilter();
+ for my $filterdescribeSubnetsRequestIndex (0 .. $#{$filterdescribeSubnetsRequestList}) {
+ my $filterdescribeSubnetsRequest = $filterdescribeSubnetsRequestList->[$filterdescribeSubnetsRequestIndex];
+ if ($filterdescribeSubnetsRequest->isSetName()) {
+ $parameters->{"Filter" . "." . ($filterdescribeSubnetsRequestIndex + 1) . "." . "Name"} = $filterdescribeSubnetsRequest->getName();
+ }
+ my $valuefilterList = $filterdescribeSubnetsRequest->getValue();
+ for my $valuefilterIndex (0 .. $#{$valuefilterList}) {
+ my $valuefilter = $valuefilterList->[$valuefilterIndex];
+ $parameters->{"Filter" . "." . ($filterdescribeSubnetsRequestIndex + 1) . "." . "Value" . "." . ($valuefilterIndex + 1)} = $valuefilter;
+ }
+
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert PurchaseReservedInstancesOfferingRequest to name value pairs
+ #
+ sub _convertPurchaseReservedInstancesOffering() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "PurchaseReservedInstancesOffering";
+ if ($request->isSetReservedInstancesOfferingId()) {
+ $parameters->{"ReservedInstancesOfferingId"} = $request->getReservedInstancesOfferingId();
+ }
+ if ($request->isSetInstanceCount()) {
+ $parameters->{"InstanceCount"} = $request->getInstanceCount();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DeregisterImageRequest to name value pairs
+ #
+ sub _convertDeregisterImage() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DeregisterImage";
+ if ($request->isSetImageId()) {
+ $parameters->{"ImageId"} = $request->getImageId();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DescribeAddressesRequest to name value pairs
+ #
+ sub _convertDescribeAddresses() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DescribeAddresses";
+ my $publicIpdescribeAddressesRequestList = $request->getPublicIp();
+ for my $publicIpdescribeAddressesRequestIndex (0 .. $#{$publicIpdescribeAddressesRequestList}) {
+ my $publicIpdescribeAddressesRequest = $publicIpdescribeAddressesRequestList->[$publicIpdescribeAddressesRequestIndex];
+ $parameters->{"PublicIp" . "." . ($publicIpdescribeAddressesRequestIndex + 1)} = $publicIpdescribeAddressesRequest;
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DescribeAvailabilityZonesRequest to name value pairs
+ #
+ sub _convertDescribeAvailabilityZones() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DescribeAvailabilityZones";
+ my $zoneNamedescribeAvailabilityZonesRequestList = $request->getZoneName();
+ for my $zoneNamedescribeAvailabilityZonesRequestIndex (0 .. $#{$zoneNamedescribeAvailabilityZonesRequestList}) {
+ my $zoneNamedescribeAvailabilityZonesRequest = $zoneNamedescribeAvailabilityZonesRequestList->[$zoneNamedescribeAvailabilityZonesRequestIndex];
+ $parameters->{"ZoneName" . "." . ($zoneNamedescribeAvailabilityZonesRequestIndex + 1)} = $zoneNamedescribeAvailabilityZonesRequest;
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DescribeBundleTasksRequest to name value pairs
+ #
+ sub _convertDescribeBundleTasks() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DescribeBundleTasks";
+ my $bundleIddescribeBundleTasksRequestList = $request->getBundleId();
+ for my $bundleIddescribeBundleTasksRequestIndex (0 .. $#{$bundleIddescribeBundleTasksRequestList}) {
+ my $bundleIddescribeBundleTasksRequest = $bundleIddescribeBundleTasksRequestList->[$bundleIddescribeBundleTasksRequestIndex];
+ $parameters->{"BundleId" . "." . ($bundleIddescribeBundleTasksRequestIndex + 1)} = $bundleIddescribeBundleTasksRequest;
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DescribeImageAttributeRequest to name value pairs
+ #
+ sub _convertDescribeImageAttribute() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DescribeImageAttribute";
+ if ($request->isSetImageId()) {
+ $parameters->{"ImageId"} = $request->getImageId();
+ }
+ if ($request->isSetAttribute()) {
+ $parameters->{"Attribute"} = $request->getAttribute();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DescribeInstanceAttributeRequest to name value pairs
+ #
+ sub _convertDescribeInstanceAttribute() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DescribeInstanceAttribute";
+ if ($request->isSetInstanceId()) {
+ $parameters->{"InstanceId"} = $request->getInstanceId();
+ }
+ if ($request->isSetAttribute()) {
+ $parameters->{"Attribute"} = $request->getAttribute();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DescribeSnapshotAttributeRequest to name value pairs
+ #
+ sub _convertDescribeSnapshotAttribute() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DescribeSnapshotAttribute";
+ if ($request->isSetSnapshotId()) {
+ $parameters->{"SnapshotId"} = $request->getSnapshotId();
+ }
+ if ($request->isSetAttribute()) {
+ $parameters->{"Attribute"} = $request->getAttribute();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DescribeImagesRequest to name value pairs
+ #
+ sub _convertDescribeImages() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DescribeImages";
+ my $imageIddescribeImagesRequestList = $request->getImageId();
+ for my $imageIddescribeImagesRequestIndex (0 .. $#{$imageIddescribeImagesRequestList}) {
+ my $imageIddescribeImagesRequest = $imageIddescribeImagesRequestList->[$imageIddescribeImagesRequestIndex];
+ $parameters->{"ImageId" . "." . ($imageIddescribeImagesRequestIndex + 1)} = $imageIddescribeImagesRequest;
+ }
+ my $ownerdescribeImagesRequestList = $request->getOwner();
+ for my $ownerdescribeImagesRequestIndex (0 .. $#{$ownerdescribeImagesRequestList}) {
+ my $ownerdescribeImagesRequest = $ownerdescribeImagesRequestList->[$ownerdescribeImagesRequestIndex];
+ $parameters->{"Owner" . "." . ($ownerdescribeImagesRequestIndex + 1)} = $ownerdescribeImagesRequest;
+ }
+ my $executableBydescribeImagesRequestList = $request->getExecutableBy();
+ for my $executableBydescribeImagesRequestIndex (0 .. $#{$executableBydescribeImagesRequestList}) {
+ my $executableBydescribeImagesRequest = $executableBydescribeImagesRequestList->[$executableBydescribeImagesRequestIndex];
+ $parameters->{"ExecutableBy" . "." . ($executableBydescribeImagesRequestIndex + 1)} = $executableBydescribeImagesRequest;
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DescribeInstancesRequest to name value pairs
+ #
+ sub _convertDescribeInstances() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DescribeInstances";
+ my $instanceIddescribeInstancesRequestList = $request->getInstanceId();
+ for my $instanceIddescribeInstancesRequestIndex (0 .. $#{$instanceIddescribeInstancesRequestList}) {
+ my $instanceIddescribeInstancesRequest = $instanceIddescribeInstancesRequestList->[$instanceIddescribeInstancesRequestIndex];
+ $parameters->{"InstanceId" . "." . ($instanceIddescribeInstancesRequestIndex + 1)} = $instanceIddescribeInstancesRequest;
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DescribeKeyPairsRequest to name value pairs
+ #
+ sub _convertDescribeKeyPairs() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DescribeKeyPairs";
+ my $keyNamedescribeKeyPairsRequestList = $request->getKeyName();
+ for my $keyNamedescribeKeyPairsRequestIndex (0 .. $#{$keyNamedescribeKeyPairsRequestList}) {
+ my $keyNamedescribeKeyPairsRequest = $keyNamedescribeKeyPairsRequestList->[$keyNamedescribeKeyPairsRequestIndex];
+ $parameters->{"KeyName" . "." . ($keyNamedescribeKeyPairsRequestIndex + 1)} = $keyNamedescribeKeyPairsRequest;
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DescribeLicensesRequest to name value pairs
+ #
+ sub _convertDescribeLicenses() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DescribeLicenses";
+ my $licenseIddescribeLicensesRequestList = $request->getLicenseId();
+ for my $licenseIddescribeLicensesRequestIndex (0 .. $#{$licenseIddescribeLicensesRequestList}) {
+ my $licenseIddescribeLicensesRequest = $licenseIddescribeLicensesRequestList->[$licenseIddescribeLicensesRequestIndex];
+ $parameters->{"LicenseId" . "." . ($licenseIddescribeLicensesRequestIndex + 1)} = $licenseIddescribeLicensesRequest;
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DescribePlacementGroupsRequest to name value pairs
+ #
+ sub _convertDescribePlacementGroups() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DescribePlacementGroups";
+ my $groupNamedescribePlacementGroupsRequestList = $request->getGroupName();
+ for my $groupNamedescribePlacementGroupsRequestIndex (0 .. $#{$groupNamedescribePlacementGroupsRequestList}) {
+ my $groupNamedescribePlacementGroupsRequest = $groupNamedescribePlacementGroupsRequestList->[$groupNamedescribePlacementGroupsRequestIndex];
+ $parameters->{"GroupName" . "." . ($groupNamedescribePlacementGroupsRequestIndex + 1)} = $groupNamedescribePlacementGroupsRequest;
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DescribeSecurityGroupsRequest to name value pairs
+ #
+ sub _convertDescribeSecurityGroups() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DescribeSecurityGroups";
+ my $groupNamedescribeSecurityGroupsRequestList = $request->getGroupName();
+ for my $groupNamedescribeSecurityGroupsRequestIndex (0 .. $#{$groupNamedescribeSecurityGroupsRequestList}) {
+ my $groupNamedescribeSecurityGroupsRequest = $groupNamedescribeSecurityGroupsRequestList->[$groupNamedescribeSecurityGroupsRequestIndex];
+ $parameters->{"GroupName" . "." . ($groupNamedescribeSecurityGroupsRequestIndex + 1)} = $groupNamedescribeSecurityGroupsRequest;
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DisassociateAddressRequest to name value pairs
+ #
+ sub _convertDisassociateAddress() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DisassociateAddress";
+ if ($request->isSetPublicIp()) {
+ $parameters->{"PublicIp"} = $request->getPublicIp();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert GetConsoleOutputRequest to name value pairs
+ #
+ sub _convertGetConsoleOutput() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "GetConsoleOutput";
+ if ($request->isSetInstanceId()) {
+ $parameters->{"InstanceId"} = $request->getInstanceId();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert GetPasswordDataRequest to name value pairs
+ #
+ sub _convertGetPasswordData() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "GetPasswordData";
+ if ($request->isSetInstanceId()) {
+ $parameters->{"InstanceId"} = $request->getInstanceId();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert ModifyImageAttributeRequest to name value pairs
+ #
+ sub _convertModifyImageAttribute() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "ModifyImageAttribute";
+ if ($request->isSetImageId()) {
+ $parameters->{"ImageId"} = $request->getImageId();
+ }
+ if ($request->isSetAttribute()) {
+ $parameters->{"Attribute"} = $request->getAttribute();
+ }
+ if ($request->isSetOperationType()) {
+ $parameters->{"OperationType"} = $request->getOperationType();
+ }
+ my $userIdmodifyImageAttributeRequestList = $request->getUserId();
+ for my $userIdmodifyImageAttributeRequestIndex (0 .. $#{$userIdmodifyImageAttributeRequestList}) {
+ my $userIdmodifyImageAttributeRequest = $userIdmodifyImageAttributeRequestList->[$userIdmodifyImageAttributeRequestIndex];
+ $parameters->{"UserId" . "." . ($userIdmodifyImageAttributeRequestIndex + 1)} = $userIdmodifyImageAttributeRequest;
+ }
+ my $userGroupmodifyImageAttributeRequestList = $request->getUserGroup();
+ for my $userGroupmodifyImageAttributeRequestIndex (0 .. $#{$userGroupmodifyImageAttributeRequestList}) {
+ my $userGroupmodifyImageAttributeRequest = $userGroupmodifyImageAttributeRequestList->[$userGroupmodifyImageAttributeRequestIndex];
+ $parameters->{"UserGroup" . "." . ($userGroupmodifyImageAttributeRequestIndex + 1)} = $userGroupmodifyImageAttributeRequest;
+ }
+ my $productCodemodifyImageAttributeRequestList = $request->getProductCode();
+ for my $productCodemodifyImageAttributeRequestIndex (0 .. $#{$productCodemodifyImageAttributeRequestList}) {
+ my $productCodemodifyImageAttributeRequest = $productCodemodifyImageAttributeRequestList->[$productCodemodifyImageAttributeRequestIndex];
+ $parameters->{"ProductCode" . "." . ($productCodemodifyImageAttributeRequestIndex + 1)} = $productCodemodifyImageAttributeRequest;
+ }
+ if ($request->isSetDescription()) {
+ $parameters->{"Description"} = $request->getDescription();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert ModifyInstanceAttributeRequest to name value pairs
+ #
+ sub _convertModifyInstanceAttribute() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "ModifyInstanceAttribute";
+ if ($request->isSetInstanceId()) {
+ $parameters->{"InstanceId"} = $request->getInstanceId();
+ }
+ if ($request->isSetAttribute()) {
+ $parameters->{"Attribute"} = $request->getAttribute();
+ }
+ if ($request->isSetValue()) {
+ $parameters->{"Value"} = $request->getValue();
+ }
+ my $blockDeviceMappingmodifyInstanceAttributeRequestList = $request->getBlockDeviceMapping();
+ for my $blockDeviceMappingmodifyInstanceAttributeRequestIndex (0 .. $#{$blockDeviceMappingmodifyInstanceAttributeRequestList}) {
+ my $blockDeviceMappingmodifyInstanceAttributeRequest = $blockDeviceMappingmodifyInstanceAttributeRequestList->[$blockDeviceMappingmodifyInstanceAttributeRequestIndex];
+ if ($blockDeviceMappingmodifyInstanceAttributeRequest->isSetDeviceName()) {
+ $parameters->{"BlockDeviceMapping" . "." . ($blockDeviceMappingmodifyInstanceAttributeRequestIndex + 1) . "." . "DeviceName"} = $blockDeviceMappingmodifyInstanceAttributeRequest->getDeviceName();
+ }
+ if ($blockDeviceMappingmodifyInstanceAttributeRequest->isSetVirtualName()) {
+ $parameters->{"BlockDeviceMapping" . "." . ($blockDeviceMappingmodifyInstanceAttributeRequestIndex + 1) . "." . "VirtualName"} = $blockDeviceMappingmodifyInstanceAttributeRequest->getVirtualName();
+ }
+ if ($blockDeviceMappingmodifyInstanceAttributeRequest->isSetEbs()) {
+ my $ebsblockDeviceMapping = $blockDeviceMappingmodifyInstanceAttributeRequest->getEbs();
+ if ($ebsblockDeviceMapping->isSetVolumeId()) {
+ $parameters->{"BlockDeviceMapping" . "." . ($blockDeviceMappingmodifyInstanceAttributeRequestIndex + 1) . "." . "Ebs" . "." . "VolumeId"} = $ebsblockDeviceMapping->getVolumeId();
+ }
+ if ($ebsblockDeviceMapping->isSetDeleteOnTermination()) {
+ $parameters->{"BlockDeviceMapping" . "." . ($blockDeviceMappingmodifyInstanceAttributeRequestIndex + 1) . "." . "Ebs" . "." . "DeleteOnTermination"} = $ebsblockDeviceMapping->getDeleteOnTermination() ? "true" : "false";
+ }
+ }
+ if ($blockDeviceMappingmodifyInstanceAttributeRequest->isSetNoDevice()) {
+ $parameters->{"BlockDeviceMapping" . "." . ($blockDeviceMappingmodifyInstanceAttributeRequestIndex + 1) . "." . "NoDevice"} = $blockDeviceMappingmodifyInstanceAttributeRequest->getNoDevice();
+ }
+
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert ModifySnapshotAttributeRequest to name value pairs
+ #
+ sub _convertModifySnapshotAttribute() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "ModifySnapshotAttribute";
+ if ($request->isSetSnapshotId()) {
+ $parameters->{"SnapshotId"} = $request->getSnapshotId();
+ }
+ if ($request->isSetAttribute()) {
+ $parameters->{"Attribute"} = $request->getAttribute();
+ }
+ if ($request->isSetOperationType()) {
+ $parameters->{"OperationType"} = $request->getOperationType();
+ }
+ my $userIdmodifySnapshotAttributeRequestList = $request->getUserId();
+ for my $userIdmodifySnapshotAttributeRequestIndex (0 .. $#{$userIdmodifySnapshotAttributeRequestList}) {
+ my $userIdmodifySnapshotAttributeRequest = $userIdmodifySnapshotAttributeRequestList->[$userIdmodifySnapshotAttributeRequestIndex];
+ $parameters->{"UserId" . "." . ($userIdmodifySnapshotAttributeRequestIndex + 1)} = $userIdmodifySnapshotAttributeRequest;
+ }
+ my $userGroupmodifySnapshotAttributeRequestList = $request->getUserGroup();
+ for my $userGroupmodifySnapshotAttributeRequestIndex (0 .. $#{$userGroupmodifySnapshotAttributeRequestList}) {
+ my $userGroupmodifySnapshotAttributeRequest = $userGroupmodifySnapshotAttributeRequestList->[$userGroupmodifySnapshotAttributeRequestIndex];
+ $parameters->{"UserGroup" . "." . ($userGroupmodifySnapshotAttributeRequestIndex + 1)} = $userGroupmodifySnapshotAttributeRequest;
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert MonitorInstancesRequest to name value pairs
+ #
+ sub _convertMonitorInstances() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "MonitorInstances";
+ my $instanceIdmonitorInstancesRequestList = $request->getInstanceId();
+ for my $instanceIdmonitorInstancesRequestIndex (0 .. $#{$instanceIdmonitorInstancesRequestList}) {
+ my $instanceIdmonitorInstancesRequest = $instanceIdmonitorInstancesRequestList->[$instanceIdmonitorInstancesRequestIndex];
+ $parameters->{"InstanceId" . "." . ($instanceIdmonitorInstancesRequestIndex + 1)} = $instanceIdmonitorInstancesRequest;
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert UnmonitorInstancesRequest to name value pairs
+ #
+ sub _convertUnmonitorInstances() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "UnmonitorInstances";
+ my $instanceIdunmonitorInstancesRequestList = $request->getInstanceId();
+ for my $instanceIdunmonitorInstancesRequestIndex (0 .. $#{$instanceIdunmonitorInstancesRequestList}) {
+ my $instanceIdunmonitorInstancesRequest = $instanceIdunmonitorInstancesRequestList->[$instanceIdunmonitorInstancesRequestIndex];
+ $parameters->{"InstanceId" . "." . ($instanceIdunmonitorInstancesRequestIndex + 1)} = $instanceIdunmonitorInstancesRequest;
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert RebootInstancesRequest to name value pairs
+ #
+ sub _convertRebootInstances() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "RebootInstances";
+ my $instanceIdrebootInstancesRequestList = $request->getInstanceId();
+ for my $instanceIdrebootInstancesRequestIndex (0 .. $#{$instanceIdrebootInstancesRequestList}) {
+ my $instanceIdrebootInstancesRequest = $instanceIdrebootInstancesRequestList->[$instanceIdrebootInstancesRequestIndex];
+ $parameters->{"InstanceId" . "." . ($instanceIdrebootInstancesRequestIndex + 1)} = $instanceIdrebootInstancesRequest;
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert RegisterImageRequest to name value pairs
+ #
+ sub _convertRegisterImage() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "RegisterImage";
+ if ($request->isSetImageLocation()) {
+ $parameters->{"ImageLocation"} = $request->getImageLocation();
+ }
+ if ($request->isSetName()) {
+ $parameters->{"Name"} = $request->getName();
+ }
+ if ($request->isSetDescription()) {
+ $parameters->{"Description"} = $request->getDescription();
+ }
+ if ($request->isSetArchitecture()) {
+ $parameters->{"Architecture"} = $request->getArchitecture();
+ }
+ if ($request->isSetKernelId()) {
+ $parameters->{"KernelId"} = $request->getKernelId();
+ }
+ if ($request->isSetRamdiskId()) {
+ $parameters->{"RamdiskId"} = $request->getRamdiskId();
+ }
+ if ($request->isSetRootDeviceName()) {
+ $parameters->{"RootDeviceName"} = $request->getRootDeviceName();
+ }
+ my $blockDeviceMappingregisterImageRequestList = $request->getBlockDeviceMapping();
+ for my $blockDeviceMappingregisterImageRequestIndex (0 .. $#{$blockDeviceMappingregisterImageRequestList}) {
+ my $blockDeviceMappingregisterImageRequest = $blockDeviceMappingregisterImageRequestList->[$blockDeviceMappingregisterImageRequestIndex];
+ if ($blockDeviceMappingregisterImageRequest->isSetDeviceName()) {
+ $parameters->{"BlockDeviceMapping" . "." . ($blockDeviceMappingregisterImageRequestIndex + 1) . "." . "DeviceName"} = $blockDeviceMappingregisterImageRequest->getDeviceName();
+ }
+ if ($blockDeviceMappingregisterImageRequest->isSetVirtualName()) {
+ $parameters->{"BlockDeviceMapping" . "." . ($blockDeviceMappingregisterImageRequestIndex + 1) . "." . "VirtualName"} = $blockDeviceMappingregisterImageRequest->getVirtualName();
+ }
+ if ($blockDeviceMappingregisterImageRequest->isSetEbs()) {
+ my $ebsblockDeviceMapping = $blockDeviceMappingregisterImageRequest->getEbs();
+ if ($ebsblockDeviceMapping->isSetSnapshotId()) {
+ $parameters->{"BlockDeviceMapping" . "." . ($blockDeviceMappingregisterImageRequestIndex + 1) . "." . "Ebs" . "." . "SnapshotId"} = $ebsblockDeviceMapping->getSnapshotId();
+ }
+ if ($ebsblockDeviceMapping->isSetVolumeSize()) {
+ $parameters->{"BlockDeviceMapping" . "." . ($blockDeviceMappingregisterImageRequestIndex + 1) . "." . "Ebs" . "." . "VolumeSize"} = $ebsblockDeviceMapping->getVolumeSize();
+ }
+ if ($ebsblockDeviceMapping->isSetDeleteOnTermination()) {
+ $parameters->{"BlockDeviceMapping" . "." . ($blockDeviceMappingregisterImageRequestIndex + 1) . "." . "Ebs" . "." . "DeleteOnTermination"} = $ebsblockDeviceMapping->getDeleteOnTermination() ? "true" : "false";
+ }
+ }
+ if ($blockDeviceMappingregisterImageRequest->isSetNoDevice()) {
+ $parameters->{"BlockDeviceMapping" . "." . ($blockDeviceMappingregisterImageRequestIndex + 1) . "." . "NoDevice"} = $blockDeviceMappingregisterImageRequest->getNoDevice();
+ }
+
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert ReleaseAddressRequest to name value pairs
+ #
+ sub _convertReleaseAddress() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "ReleaseAddress";
+ if ($request->isSetPublicIp()) {
+ $parameters->{"PublicIp"} = $request->getPublicIp();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert ResetImageAttributeRequest to name value pairs
+ #
+ sub _convertResetImageAttribute() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "ResetImageAttribute";
+ if ($request->isSetImageId()) {
+ $parameters->{"ImageId"} = $request->getImageId();
+ }
+ if ($request->isSetAttribute()) {
+ $parameters->{"Attribute"} = $request->getAttribute();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert ResetInstanceAttributeRequest to name value pairs
+ #
+ sub _convertResetInstanceAttribute() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "ResetInstanceAttribute";
+ if ($request->isSetInstanceId()) {
+ $parameters->{"InstanceId"} = $request->getInstanceId();
+ }
+ if ($request->isSetAttribute()) {
+ $parameters->{"Attribute"} = $request->getAttribute();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert ResetSnapshotAttributeRequest to name value pairs
+ #
+ sub _convertResetSnapshotAttribute() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "ResetSnapshotAttribute";
+ if ($request->isSetSnapshotId()) {
+ $parameters->{"SnapshotId"} = $request->getSnapshotId();
+ }
+ if ($request->isSetAttribute()) {
+ $parameters->{"Attribute"} = $request->getAttribute();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert RevokeSecurityGroupIngressRequest to name value pairs
+ #
+ sub _convertRevokeSecurityGroupIngress() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "RevokeSecurityGroupIngress";
+ if ($request->isSetUserId()) {
+ $parameters->{"UserId"} = $request->getUserId();
+ }
+ if ($request->isSetGroupName()) {
+ $parameters->{"GroupName"} = $request->getGroupName();
+ }
+ if ($request->isSetSourceSecurityGroupName()) {
+ $parameters->{"SourceSecurityGroupName"} = $request->getSourceSecurityGroupName();
+ }
+ if ($request->isSetSourceSecurityGroupOwnerId()) {
+ $parameters->{"SourceSecurityGroupOwnerId"} = $request->getSourceSecurityGroupOwnerId();
+ }
+ if ($request->isSetIpProtocol()) {
+ $parameters->{"IpProtocol"} = $request->getIpProtocol();
+ }
+ if ($request->isSetFromPort()) {
+ $parameters->{"FromPort"} = $request->getFromPort();
+ }
+ if ($request->isSetToPort()) {
+ $parameters->{"ToPort"} = $request->getToPort();
+ }
+ if ($request->isSetCidrIp()) {
+ $parameters->{"CidrIp"} = $request->getCidrIp();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert RunInstancesRequest to name value pairs
+ #
+ sub _convertRunInstances() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "RunInstances";
+ if ($request->isSetImageId()) {
+ $parameters->{"ImageId"} = $request->getImageId();
+ }
+ if ($request->isSetMinCount()) {
+ $parameters->{"MinCount"} = $request->getMinCount();
+ }
+ if ($request->isSetMaxCount()) {
+ $parameters->{"MaxCount"} = $request->getMaxCount();
+ }
+ if ($request->isSetKeyName()) {
+ $parameters->{"KeyName"} = $request->getKeyName();
+ }
+ my $securityGrouprunInstancesRequestList = $request->getSecurityGroup();
+ for my $securityGrouprunInstancesRequestIndex (0 .. $#{$securityGrouprunInstancesRequestList}) {
+ my $securityGrouprunInstancesRequest = $securityGrouprunInstancesRequestList->[$securityGrouprunInstancesRequestIndex];
+ $parameters->{"SecurityGroup" . "." . ($securityGrouprunInstancesRequestIndex + 1)} = $securityGrouprunInstancesRequest;
+ }
+ if ($request->isSetUserData()) {
+ $parameters->{"UserData"} = $request->getUserData();
+ }
+ if ($request->isSetInstanceType()) {
+ $parameters->{"InstanceType"} = $request->getInstanceType();
+ }
+ if ($request->isSetPlacement()) {
+ my $placementrunInstancesRequest = $request->getPlacement();
+ if ($placementrunInstancesRequest->isSetAvailabilityZone()) {
+ $parameters->{"Placement" . "." . "AvailabilityZone"} = $placementrunInstancesRequest->getAvailabilityZone();
+ }
+ if ($placementrunInstancesRequest->isSetGroupName()) {
+ $parameters->{"Placement" . "." . "GroupName"} = $placementrunInstancesRequest->getGroupName();
+ }
+ }
+ if ($request->isSetKernelId()) {
+ $parameters->{"KernelId"} = $request->getKernelId();
+ }
+ if ($request->isSetRamdiskId()) {
+ $parameters->{"RamdiskId"} = $request->getRamdiskId();
+ }
+ my $blockDeviceMappingrunInstancesRequestList = $request->getBlockDeviceMapping();
+ for my $blockDeviceMappingrunInstancesRequestIndex (0 .. $#{$blockDeviceMappingrunInstancesRequestList}) {
+ my $blockDeviceMappingrunInstancesRequest = $blockDeviceMappingrunInstancesRequestList->[$blockDeviceMappingrunInstancesRequestIndex];
+ if ($blockDeviceMappingrunInstancesRequest->isSetDeviceName()) {
+ $parameters->{"BlockDeviceMapping" . "." . ($blockDeviceMappingrunInstancesRequestIndex + 1) . "." . "DeviceName"} = $blockDeviceMappingrunInstancesRequest->getDeviceName();
+ }
+ if ($blockDeviceMappingrunInstancesRequest->isSetVirtualName()) {
+ $parameters->{"BlockDeviceMapping" . "." . ($blockDeviceMappingrunInstancesRequestIndex + 1) . "." . "VirtualName"} = $blockDeviceMappingrunInstancesRequest->getVirtualName();
+ }
+ if ($blockDeviceMappingrunInstancesRequest->isSetEbs()) {
+ my $ebsblockDeviceMapping = $blockDeviceMappingrunInstancesRequest->getEbs();
+ if ($ebsblockDeviceMapping->isSetSnapshotId()) {
+ $parameters->{"BlockDeviceMapping" . "." . ($blockDeviceMappingrunInstancesRequestIndex + 1) . "." . "Ebs" . "." . "SnapshotId"} = $ebsblockDeviceMapping->getSnapshotId();
+ }
+ if ($ebsblockDeviceMapping->isSetVolumeSize()) {
+ $parameters->{"BlockDeviceMapping" . "." . ($blockDeviceMappingrunInstancesRequestIndex + 1) . "." . "Ebs" . "." . "VolumeSize"} = $ebsblockDeviceMapping->getVolumeSize();
+ }
+ if ($ebsblockDeviceMapping->isSetDeleteOnTermination()) {
+ $parameters->{"BlockDeviceMapping" . "." . ($blockDeviceMappingrunInstancesRequestIndex + 1) . "." . "Ebs" . "." . "DeleteOnTermination"} = $ebsblockDeviceMapping->getDeleteOnTermination() ? "true" : "false";
+ }
+ }
+ if ($blockDeviceMappingrunInstancesRequest->isSetNoDevice()) {
+ $parameters->{"BlockDeviceMapping" . "." . ($blockDeviceMappingrunInstancesRequestIndex + 1) . "." . "NoDevice"} = $blockDeviceMappingrunInstancesRequest->getNoDevice();
+ }
+
+ }
+ if ($request->isSetMonitoring()) {
+ my $monitoringrunInstancesRequest = $request->getMonitoring();
+ if ($monitoringrunInstancesRequest->isSetEnabled()) {
+ $parameters->{"Monitoring" . "." . "Enabled"} = $monitoringrunInstancesRequest->getEnabled() ? "true" : "false";
+ }
+ }
+ if ($request->isSetSubnetId()) {
+ $parameters->{"SubnetId"} = $request->getSubnetId();
+ }
+ if ($request->isSetAdditionalInfo()) {
+ $parameters->{"AdditionalInfo"} = $request->getAdditionalInfo();
+ }
+ if ($request->isSetDisableApiTermination()) {
+ $parameters->{"DisableApiTermination"} = $request->getDisableApiTermination() ? "true" : "false";
+ }
+ if ($request->isSetInstanceInitiatedShutdownBehavior()) {
+ $parameters->{"InstanceInitiatedShutdownBehavior"} = $request->getInstanceInitiatedShutdownBehavior();
+ }
+ if ($request->isSetLicense()) {
+ my $licenserunInstancesRequest = $request->getLicense();
+ if ($licenserunInstancesRequest->isSetPool()) {
+ $parameters->{"License" . "." . "Pool"} = $licenserunInstancesRequest->getPool();
+ }
+ }
+ if ($request->isSetPrivateIpAddress()) {
+ $parameters->{"PrivateIpAddress"} = $request->getPrivateIpAddress();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert StopInstancesRequest to name value pairs
+ #
+ sub _convertStopInstances() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "StopInstances";
+ my $instanceIdstopInstancesRequestList = $request->getInstanceId();
+ for my $instanceIdstopInstancesRequestIndex (0 .. $#{$instanceIdstopInstancesRequestList}) {
+ my $instanceIdstopInstancesRequest = $instanceIdstopInstancesRequestList->[$instanceIdstopInstancesRequestIndex];
+ $parameters->{"InstanceId" . "." . ($instanceIdstopInstancesRequestIndex + 1)} = $instanceIdstopInstancesRequest;
+ }
+ if ($request->isSetForce()) {
+ $parameters->{"Force"} = $request->getForce() ? "true" : "false";
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert StartInstancesRequest to name value pairs
+ #
+ sub _convertStartInstances() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "StartInstances";
+ my $instanceIdstartInstancesRequestList = $request->getInstanceId();
+ for my $instanceIdstartInstancesRequestIndex (0 .. $#{$instanceIdstartInstancesRequestList}) {
+ my $instanceIdstartInstancesRequest = $instanceIdstartInstancesRequestList->[$instanceIdstartInstancesRequestIndex];
+ $parameters->{"InstanceId" . "." . ($instanceIdstartInstancesRequestIndex + 1)} = $instanceIdstartInstancesRequest;
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert TerminateInstancesRequest to name value pairs
+ #
+ sub _convertTerminateInstances() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "TerminateInstances";
+ my $instanceIdterminateInstancesRequestList = $request->getInstanceId();
+ for my $instanceIdterminateInstancesRequestIndex (0 .. $#{$instanceIdterminateInstancesRequestList}) {
+ my $instanceIdterminateInstancesRequest = $instanceIdterminateInstancesRequestList->[$instanceIdterminateInstancesRequestIndex];
+ $parameters->{"InstanceId" . "." . ($instanceIdterminateInstancesRequestIndex + 1)} = $instanceIdterminateInstancesRequest;
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DeleteVolumeRequest to name value pairs
+ #
+ sub _convertDeleteVolume() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DeleteVolume";
+ if ($request->isSetVolumeId()) {
+ $parameters->{"VolumeId"} = $request->getVolumeId();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert CreateVolumeRequest to name value pairs
+ #
+ sub _convertCreateVolume() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "CreateVolume";
+ if ($request->isSetSize()) {
+ $parameters->{"Size"} = $request->getSize();
+ }
+ if ($request->isSetSnapshotId()) {
+ $parameters->{"SnapshotId"} = $request->getSnapshotId();
+ }
+ if ($request->isSetAvailabilityZone()) {
+ $parameters->{"AvailabilityZone"} = $request->getAvailabilityZone();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DescribeVolumesRequest to name value pairs
+ #
+ sub _convertDescribeVolumes() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DescribeVolumes";
+ my $volumeIddescribeVolumesRequestList = $request->getVolumeId();
+ for my $volumeIddescribeVolumesRequestIndex (0 .. $#{$volumeIddescribeVolumesRequestList}) {
+ my $volumeIddescribeVolumesRequest = $volumeIddescribeVolumesRequestList->[$volumeIddescribeVolumesRequestIndex];
+ $parameters->{"VolumeId" . "." . ($volumeIddescribeVolumesRequestIndex + 1)} = $volumeIddescribeVolumesRequest;
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DetachVolumeRequest to name value pairs
+ #
+ sub _convertDetachVolume() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DetachVolume";
+ if ($request->isSetVolumeId()) {
+ $parameters->{"VolumeId"} = $request->getVolumeId();
+ }
+ if ($request->isSetInstanceId()) {
+ $parameters->{"InstanceId"} = $request->getInstanceId();
+ }
+ if ($request->isSetDevice()) {
+ $parameters->{"Device"} = $request->getDevice();
+ }
+ if ($request->isSetForce()) {
+ $parameters->{"Force"} = $request->getForce() ? "true" : "false";
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DetachVpnGatewayRequest to name value pairs
+ #
+ sub _convertDetachVpnGateway() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DetachVpnGateway";
+ if ($request->isSetVpnGatewayId()) {
+ $parameters->{"VpnGatewayId"} = $request->getVpnGatewayId();
+ }
+ if ($request->isSetVpcId()) {
+ $parameters->{"VpcId"} = $request->getVpcId();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DescribeSnapshotsRequest to name value pairs
+ #
+ sub _convertDescribeSnapshots() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DescribeSnapshots";
+ my $snapshotIddescribeSnapshotsRequestList = $request->getSnapshotId();
+ for my $snapshotIddescribeSnapshotsRequestIndex (0 .. $#{$snapshotIddescribeSnapshotsRequestList}) {
+ my $snapshotIddescribeSnapshotsRequest = $snapshotIddescribeSnapshotsRequestList->[$snapshotIddescribeSnapshotsRequestIndex];
+ $parameters->{"SnapshotId" . "." . ($snapshotIddescribeSnapshotsRequestIndex + 1)} = $snapshotIddescribeSnapshotsRequest;
+ }
+ if ($request->isSetOwner()) {
+ $parameters->{"Owner"} = $request->getOwner();
+ }
+ if ($request->isSetRestorableBy()) {
+ $parameters->{"RestorableBy"} = $request->getRestorableBy();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DeleteSnapshotRequest to name value pairs
+ #
+ sub _convertDeleteSnapshot() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DeleteSnapshot";
+ if ($request->isSetSnapshotId()) {
+ $parameters->{"SnapshotId"} = $request->getSnapshotId();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert CreateSnapshotRequest to name value pairs
+ #
+ sub _convertCreateSnapshot() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "CreateSnapshot";
+ if ($request->isSetVolumeId()) {
+ $parameters->{"VolumeId"} = $request->getVolumeId();
+ }
+ if ($request->isSetDescription()) {
+ $parameters->{"Description"} = $request->getDescription();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert AttachVolumeRequest to name value pairs
+ #
+ sub _convertAttachVolume() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "AttachVolume";
+ if ($request->isSetVolumeId()) {
+ $parameters->{"VolumeId"} = $request->getVolumeId();
+ }
+ if ($request->isSetInstanceId()) {
+ $parameters->{"InstanceId"} = $request->getInstanceId();
+ }
+ if ($request->isSetDevice()) {
+ $parameters->{"Device"} = $request->getDevice();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DescribeRegionsRequest to name value pairs
+ #
+ sub _convertDescribeRegions() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DescribeRegions";
+ my $regionNamedescribeRegionsRequestList = $request->getRegionName();
+ for my $regionNamedescribeRegionsRequestIndex (0 .. $#{$regionNamedescribeRegionsRequestList}) {
+ my $regionNamedescribeRegionsRequest = $regionNamedescribeRegionsRequestList->[$regionNamedescribeRegionsRequestIndex];
+ $parameters->{"RegionName" . "." . ($regionNamedescribeRegionsRequestIndex + 1)} = $regionNamedescribeRegionsRequest;
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert RequestSpotInstancesRequest to name value pairs
+ #
+ sub _convertRequestSpotInstances() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "RequestSpotInstances";
+ if ($request->isSetSpotPrice()) {
+ $parameters->{"SpotPrice"} = $request->getSpotPrice();
+ }
+ if ($request->isSetInstanceCount()) {
+ $parameters->{"InstanceCount"} = $request->getInstanceCount();
+ }
+ if ($request->isSetType()) {
+ $parameters->{"Type"} = $request->getType();
+ }
+ if ($request->isSetValidFrom()) {
+ $parameters->{"ValidFrom"} = $request->getValidFrom();
+ }
+ if ($request->isSetValidUntil()) {
+ $parameters->{"ValidUntil"} = $request->getValidUntil();
+ }
+ if ($request->isSetLaunchGroup()) {
+ $parameters->{"LaunchGroup"} = $request->getLaunchGroup();
+ }
+ if ($request->isSetAvailabilityZoneGroup()) {
+ $parameters->{"AvailabilityZoneGroup"} = $request->getAvailabilityZoneGroup();
+ }
+ if ($request->isSetLaunchSpecification()) {
+ my $launchSpecificationrequestSpotInstancesRequest = $request->getLaunchSpecification();
+ if ($launchSpecificationrequestSpotInstancesRequest->isSetImageId()) {
+ $parameters->{"LaunchSpecification" . "." . "ImageId"} = $launchSpecificationrequestSpotInstancesRequest->getImageId();
+ }
+ if ($launchSpecificationrequestSpotInstancesRequest->isSetKeyName()) {
+ $parameters->{"LaunchSpecification" . "." . "KeyName"} = $launchSpecificationrequestSpotInstancesRequest->getKeyName();
+ }
+ my $securityGrouplaunchSpecificationList = $launchSpecificationrequestSpotInstancesRequest->getSecurityGroup();
+ for my $securityGrouplaunchSpecificationIndex (0 .. $#{$securityGrouplaunchSpecificationList}) {
+ my $securityGrouplaunchSpecification = $securityGrouplaunchSpecificationList->[$securityGrouplaunchSpecificationIndex];
+ $parameters->{"LaunchSpecification" . "." . "SecurityGroup" . "." . ($securityGrouplaunchSpecificationIndex + 1)} = $securityGrouplaunchSpecification;
+ }
+ if ($launchSpecificationrequestSpotInstancesRequest->isSetUserData()) {
+ $parameters->{"LaunchSpecification" . "." . "UserData"} = $launchSpecificationrequestSpotInstancesRequest->getUserData();
+ }
+ if ($launchSpecificationrequestSpotInstancesRequest->isSetAddressingType()) {
+ $parameters->{"LaunchSpecification" . "." . "AddressingType"} = $launchSpecificationrequestSpotInstancesRequest->getAddressingType();
+ }
+ if ($launchSpecificationrequestSpotInstancesRequest->isSetInstanceType()) {
+ $parameters->{"LaunchSpecification" . "." . "InstanceType"} = $launchSpecificationrequestSpotInstancesRequest->getInstanceType();
+ }
+ if ($launchSpecificationrequestSpotInstancesRequest->isSetPlacement()) {
+ my $placementlaunchSpecification = $launchSpecificationrequestSpotInstancesRequest->getPlacement();
+ if ($placementlaunchSpecification->isSetAvailabilityZone()) {
+ $parameters->{"LaunchSpecification" . "." . "Placement" . "." . "AvailabilityZone"} = $placementlaunchSpecification->getAvailabilityZone();
+ }
+ if ($placementlaunchSpecification->isSetGroupName()) {
+ $parameters->{"LaunchSpecification" . "." . "Placement" . "." . "GroupName"} = $placementlaunchSpecification->getGroupName();
+ }
+ }
+ if ($launchSpecificationrequestSpotInstancesRequest->isSetKernelId()) {
+ $parameters->{"LaunchSpecification" . "." . "KernelId"} = $launchSpecificationrequestSpotInstancesRequest->getKernelId();
+ }
+ if ($launchSpecificationrequestSpotInstancesRequest->isSetRamdiskId()) {
+ $parameters->{"LaunchSpecification" . "." . "RamdiskId"} = $launchSpecificationrequestSpotInstancesRequest->getRamdiskId();
+ }
+ my $blockDeviceMappinglaunchSpecificationList = $launchSpecificationrequestSpotInstancesRequest->getBlockDeviceMapping();
+ for my $blockDeviceMappinglaunchSpecificationIndex (0 .. $#{$blockDeviceMappinglaunchSpecificationList}) {
+ my $blockDeviceMappinglaunchSpecification = $blockDeviceMappinglaunchSpecificationList->[$blockDeviceMappinglaunchSpecificationIndex];
+ if ($blockDeviceMappinglaunchSpecification->isSetDeviceName()) {
+ $parameters->{"LaunchSpecification" . "." . "BlockDeviceMapping" . "." . ($blockDeviceMappinglaunchSpecificationIndex + 1) . "." . "DeviceName"} = $blockDeviceMappinglaunchSpecification->getDeviceName();
+ }
+ if ($blockDeviceMappinglaunchSpecification->isSetVirtualName()) {
+ $parameters->{"LaunchSpecification" . "." . "BlockDeviceMapping" . "." . ($blockDeviceMappinglaunchSpecificationIndex + 1) . "." . "VirtualName"} = $blockDeviceMappinglaunchSpecification->getVirtualName();
+ }
+ if ($blockDeviceMappinglaunchSpecification->isSetEbs()) {
+ my $ebsblockDeviceMapping = $blockDeviceMappinglaunchSpecification->getEbs();
+ if ($ebsblockDeviceMapping->isSetSnapshotId()) {
+ $parameters->{"LaunchSpecification" . "." . "BlockDeviceMapping" . "." . ($blockDeviceMappinglaunchSpecificationIndex + 1) . "." . "Ebs" . "." . "SnapshotId"} = $ebsblockDeviceMapping->getSnapshotId();
+ }
+ if ($ebsblockDeviceMapping->isSetVolumeSize()) {
+ $parameters->{"LaunchSpecification" . "." . "BlockDeviceMapping" . "." . ($blockDeviceMappinglaunchSpecificationIndex + 1) . "." . "Ebs" . "." . "VolumeSize"} = $ebsblockDeviceMapping->getVolumeSize();
+ }
+ if ($ebsblockDeviceMapping->isSetDeleteOnTermination()) {
+ $parameters->{"LaunchSpecification" . "." . "BlockDeviceMapping" . "." . ($blockDeviceMappinglaunchSpecificationIndex + 1) . "." . "Ebs" . "." . "DeleteOnTermination"} = $ebsblockDeviceMapping->getDeleteOnTermination() ? "true" : "false";
+ }
+ }
+ if ($blockDeviceMappinglaunchSpecification->isSetNoDevice()) {
+ $parameters->{"LaunchSpecification" . "." . "BlockDeviceMapping" . "." . ($blockDeviceMappinglaunchSpecificationIndex + 1) . "." . "NoDevice"} = $blockDeviceMappinglaunchSpecification->getNoDevice();
+ }
+
+ }
+ if ($launchSpecificationrequestSpotInstancesRequest->isSetMonitoring()) {
+ my $monitoringlaunchSpecification = $launchSpecificationrequestSpotInstancesRequest->getMonitoring();
+ if ($monitoringlaunchSpecification->isSetEnabled()) {
+ $parameters->{"LaunchSpecification" . "." . "Monitoring" . "." . "Enabled"} = $monitoringlaunchSpecification->getEnabled() ? "true" : "false";
+ }
+ }
+ if ($launchSpecificationrequestSpotInstancesRequest->isSetSubnetId()) {
+ $parameters->{"LaunchSpecification" . "." . "SubnetId"} = $launchSpecificationrequestSpotInstancesRequest->getSubnetId();
+ }
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DescribeSpotInstanceRequestsRequest to name value pairs
+ #
+ sub _convertDescribeSpotInstanceRequests() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DescribeSpotInstanceRequests";
+ my $spotInstanceRequestIddescribeSpotInstanceRequestsRequestList = $request->getSpotInstanceRequestId();
+ for my $spotInstanceRequestIddescribeSpotInstanceRequestsRequestIndex (0 .. $#{$spotInstanceRequestIddescribeSpotInstanceRequestsRequestList}) {
+ my $spotInstanceRequestIddescribeSpotInstanceRequestsRequest = $spotInstanceRequestIddescribeSpotInstanceRequestsRequestList->[$spotInstanceRequestIddescribeSpotInstanceRequestsRequestIndex];
+ $parameters->{"SpotInstanceRequestId" . "." . ($spotInstanceRequestIddescribeSpotInstanceRequestsRequestIndex + 1)} = $spotInstanceRequestIddescribeSpotInstanceRequestsRequest;
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert CancelSpotInstanceRequestsRequest to name value pairs
+ #
+ sub _convertCancelSpotInstanceRequests() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "CancelSpotInstanceRequests";
+ my $spotInstanceRequestIdcancelSpotInstanceRequestsRequestList = $request->getSpotInstanceRequestId();
+ for my $spotInstanceRequestIdcancelSpotInstanceRequestsRequestIndex (0 .. $#{$spotInstanceRequestIdcancelSpotInstanceRequestsRequestList}) {
+ my $spotInstanceRequestIdcancelSpotInstanceRequestsRequest = $spotInstanceRequestIdcancelSpotInstanceRequestsRequestList->[$spotInstanceRequestIdcancelSpotInstanceRequestsRequestIndex];
+ $parameters->{"SpotInstanceRequestId" . "." . ($spotInstanceRequestIdcancelSpotInstanceRequestsRequestIndex + 1)} = $spotInstanceRequestIdcancelSpotInstanceRequestsRequest;
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DescribeSpotPriceHistoryRequest to name value pairs
+ #
+ sub _convertDescribeSpotPriceHistory() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DescribeSpotPriceHistory";
+ if ($request->isSetStartTime()) {
+ $parameters->{"StartTime"} = $request->getStartTime();
+ }
+ if ($request->isSetEndTime()) {
+ $parameters->{"EndTime"} = $request->getEndTime();
+ }
+ my $instanceTypedescribeSpotPriceHistoryRequestList = $request->getInstanceType();
+ for my $instanceTypedescribeSpotPriceHistoryRequestIndex (0 .. $#{$instanceTypedescribeSpotPriceHistoryRequestList}) {
+ my $instanceTypedescribeSpotPriceHistoryRequest = $instanceTypedescribeSpotPriceHistoryRequestList->[$instanceTypedescribeSpotPriceHistoryRequestIndex];
+ $parameters->{"InstanceType" . "." . ($instanceTypedescribeSpotPriceHistoryRequestIndex + 1)} = $instanceTypedescribeSpotPriceHistoryRequest;
+ }
+ my $productDescriptiondescribeSpotPriceHistoryRequestList = $request->getProductDescription();
+ for my $productDescriptiondescribeSpotPriceHistoryRequestIndex (0 .. $#{$productDescriptiondescribeSpotPriceHistoryRequestList}) {
+ my $productDescriptiondescribeSpotPriceHistoryRequest = $productDescriptiondescribeSpotPriceHistoryRequestList->[$productDescriptiondescribeSpotPriceHistoryRequestIndex];
+ $parameters->{"ProductDescription" . "." . ($productDescriptiondescribeSpotPriceHistoryRequestIndex + 1)} = $productDescriptiondescribeSpotPriceHistoryRequest;
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert CreateSpotDatafeedSubscriptionRequest to name value pairs
+ #
+ sub _convertCreateSpotDatafeedSubscription() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "CreateSpotDatafeedSubscription";
+ if ($request->isSetBucket()) {
+ $parameters->{"Bucket"} = $request->getBucket();
+ }
+ if ($request->isSetPrefix()) {
+ $parameters->{"Prefix"} = $request->getPrefix();
+ }
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DescribeSpotDatafeedSubscriptionRequest to name value pairs
+ #
+ sub _convertDescribeSpotDatafeedSubscription() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DescribeSpotDatafeedSubscription";
+
+ return $parameters;
+ }
+
+
+ #
+ # Convert DeleteSpotDatafeedSubscriptionRequest to name value pairs
+ #
+ sub _convertDeleteSpotDatafeedSubscription() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "DeleteSpotDatafeedSubscription";
+
+ return $parameters;
+ }
+
+ sub _convertCreateTags() {
+ my ($self, $request) = @_;
+
+ my $parameters = {};
+ $parameters->{"Action"} = "CreateTags";
+
+ my $resources = $request->getIdList();
+ for my $resIndex (0..$#{$resources}) {
+
+ $parameters->{"ResourceId.".($resIndex+1)} = $resources->[$resIndex];
+ }
+
+ my $tags = $request->getTagList();
+ for my $tagIndex (0..$#{$tags}) {
+
+ my $tag = $tags->[$tagIndex];
+
+ $parameters->{"Tag.".($tagIndex+1).".Key"} = $tag->getKey();
+ $parameters->{"Tag.".($tagIndex+1).".Value"} = $tag->getValue();
+ }
+
+ return $parameters;
+ }
+
+1;
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Exception.pm b/src/main/resources/project/lib/Amazon/EC2/Exception.pm
new file mode 100644
index 0000000..d11bb2c
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Exception.pm
@@ -0,0 +1,120 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+
+ #
+ # EC2 Exception provides details of errors
+ # returned by EC2 service
+ #
+package Amazon::EC2::Exception;
+use strict;
+use warnings;
+ #
+ # Constructs Amazon::EC2::Exception
+ # Accepts annonymous hash to construct the exception
+ #
+ # Keys are:
+ #
+ # Message - (string) text message for an exception
+ # StatusCode - (int) HTTP status code at the time of exception
+ # ErrorCode - (string) specific error code returned by the service
+ # ErrorType - (string) Possible types: Sender, Receiver or Unknown
+ # RequestId - (string) request id returned by the service
+ # XML - (string) compete xml response at the time of exception
+ # Exception - (Exception) inner exception if any
+ #
+ #
+ #
+ sub new {
+ my ($class, $errorInfo) = @_;
+ my $self = {};
+ if (exists($errorInfo->{Exception})) {
+ my $exception = $errorInfo->{Exception};
+ if (ref $exception eq "Amazon::EC2::Exception") {
+ $self->{_message} = $exception->getMessage();
+ $self->{_statusCode} = $exception->getStatusCode();
+ $self->{_errorCode} = $exception->getErrorCode();
+ $self->{_errorType} = $exception->getErrorType();
+ $self->{_requestId} = $exception->getRequestId();
+ $self->{_xml} = $exception->getXML();
+ }
+ } else {
+ $self->{_message} = $errorInfo->{Message};
+ $self->{_statusCode} = $errorInfo->{StatusCode};
+ $self->{_errorCode} = $errorInfo->{ErrorCode};
+ $self->{_errorType} = $errorInfo->{ErrorType};
+ $self->{_requestId} = $errorInfo->{RequestId};
+ $self->{_xml} = $errorInfo->{XML};
+ }
+ return bless ($self, $class);
+ }
+
+ #
+ # Gets error type returned by the service if available.
+ #
+ sub getErrorCode {
+ return shift->{_errorCode};
+ }
+
+ #
+ # Gets error type returned by the service.
+ #
+ # Possible types: Sender, Receiver or Unknown
+ #
+ sub getErrorType {
+ return shift->{_errorType};
+ }
+
+
+ #
+ # Gets error message
+ #
+ sub getMessage {
+ return shift->{_message};
+ }
+
+ #
+ # Gets status code returned by the service if available. If status
+ # code is set to -1, it means that status code was unavailable at the
+ # time exception was thrown
+ #
+ sub getStatusCode {
+ return shift->{_statusCode};
+ }
+
+ #
+ # Gets XML returned by the service if available.
+ #
+ sub getXML {
+ return shift->{_xml};
+ }
+
+ #
+ # Gets Request ID returned by the service if available.
+ #
+ sub getRequestId {
+ return shift->{_requestId};
+ }
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model.pm b/src/main/resources/project/lib/Amazon/EC2/Model.pm
new file mode 100644
index 0000000..caa1636
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model.pm
@@ -0,0 +1,163 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+
+#
+# Amazon::EC2::Model - base class for all model classes
+#
+package Amazon::EC2::Model;
+use strict;
+
+ #
+ # XML fragment representation of this object
+ # Note, name of the root determined by caller
+ # This fragment returns inner fields representation only
+ sub _toXMLFragment {
+ my $self = shift;
+ my $xml = "";
+ while (my ($fieldName, $field) = each %{$self->{_fields}}) {
+ my $fieldValue = $field->{FieldValue};
+ if (defined($fieldValue)) {
+ my $fieldType = $field->{FieldType};
+ if (_isArrayRef($fieldType)) {
+ if (_isComplexType($fieldType->[0])) {
+ for my $item (@$fieldValue) {
+ $xml .= "<$fieldName>";
+ $xml .= $item->_toXMLFragment();
+ $xml .= "";
+ }
+ } else {
+ for my $item ($fieldValue) {
+ $xml .= "<$fieldName>";
+ $xml .= $self->_escapeXML($item);
+ $xml .= "";
+ }
+ }
+ } else {
+ if (_isComplexType($fieldType)) {
+ $xml .= "<$fieldName>";
+ $xml .= $fieldValue->_toXMLFragment();
+ $xml .= "";
+ } else {
+ $xml .= "<$fieldName>";
+ $xml .= $self->_escapeXML($fieldValue);
+ $xml .= "";
+ }
+ }
+ }
+ }
+ return $xml;
+ }
+
+ #
+ # Escape special XML characters
+ # return string with escaped XML characters
+ #
+ sub _escapeXML {
+ my ($self, $str) = @_;
+ $str =~ s/&/&/g;
+ $str =~ s//>/g;
+ $str =~ s/'/'/g;
+ $str =~ s/"/"/g;
+ return $str;
+ }
+ #
+ # Determines if field is complex type
+ #
+ sub _isComplexType {
+ my ($self, $fieldType) = @_;
+ return $fieldType =~ m/^Amazon::EC2::Model::/;
+ }
+
+ #
+ # Checks whether passed variable is an associative array
+ #
+ sub _isHashRef {
+ my ($self, $var) = @_;
+ return ref $var eq "HASH";
+ }
+
+ #
+ # Checks whether passed variable is an array reference
+ #
+ sub _isArrayRef {
+ my ($self, $var) = @_;
+ return ref $var eq "ARRAY";
+ }
+
+ #
+ # Construct from hash ref
+ #
+ sub _fromHashRef {
+ my ($self, $array) = @_;
+ while (my ($fieldName, $field) = each %{$self->{_fields}}) {
+ my $fieldType = $field->{FieldType};
+ if ($self->_isArrayRef($fieldType)) {
+ if ($self->_isComplexType($fieldType->[0])) {
+ my $elements = $array->{$fieldName};
+ if (!$self->_isArrayRef($elements)) {
+ $elements = defined($elements) ? [$elements] : [];
+ }
+ if (scalar @$elements >= 1) {
+ my $package = $fieldType->[0];
+ eval "use $package";
+ my $list = $self->{_fields}->{$fieldName}->{FieldValue};
+ for my $element (@$elements) {
+ push (@$list, $fieldType->[0]->new($element));
+ }
+ $self->{_fields}->{$fieldName}->{FieldValue} = $list;
+ }
+ } else {
+ my $elements = $array->{$fieldName};
+ if (!$self->_isArrayRef($elements)) {
+ $elements = defined($elements) ? [$elements] : [];
+ }
+ if (scalar @$elements >= 1) {
+ my $list = $self->{_fields}->{$fieldName}->{FieldValue};
+ for my $element (@$elements) {
+ push (@$list, $element);
+ }
+ $self->{_fields}->{$fieldName}->{FieldValue} = $list;
+ }
+ }
+ } else {
+ if ($self->_isComplexType($fieldType)) {
+ my $element = $array->{$fieldName};
+ if (defined ($element)) {
+ my $package = $fieldType;
+ eval "use $package";
+ $self->{_fields}->{$fieldName}->{FieldValue} = $fieldType->new($element);
+ }
+ } else {
+ my $element = $array->{$fieldName};
+ if (defined ($element)) {
+ $self->{_fields}->{$fieldName}->{FieldValue} = $element;
+ }
+ }
+ }
+ }
+ }
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/ActivateLicenseRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/ActivateLicenseRequest.pm
new file mode 100644
index 0000000..06b19f1
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/ActivateLicenseRequest.pm
@@ -0,0 +1,113 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::ActivateLicenseRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::ActivateLicenseRequest
+ #
+ # Properties:
+ #
+ #
+ # LicenseId: string
+ # Capacity: int
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ LicenseId => { FieldValue => undef, FieldType => "string"},
+ Capacity => { FieldValue => undef, FieldType => "int"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getLicenseId {
+ return shift->{_fields}->{LicenseId}->{FieldValue};
+ }
+
+
+ sub setLicenseId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{LicenseId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withLicenseId {
+ my ($self, $value) = @_;
+ $self->setLicenseId($value);
+ return $self;
+ }
+
+
+ sub isSetLicenseId {
+ return defined (shift->{_fields}->{LicenseId}->{FieldValue});
+ }
+
+
+ sub getCapacity {
+ return shift->{_fields}->{Capacity}->{FieldValue};
+ }
+
+
+ sub setCapacity {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Capacity}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withCapacity {
+ my ($self, $value) = @_;
+ $self->setCapacity($value);
+ return $self;
+ }
+
+
+ sub isSetCapacity {
+ return defined (shift->{_fields}->{Capacity}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/ActivateLicenseResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/ActivateLicenseResponse.pm
new file mode 100644
index 0000000..e835551
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/ActivateLicenseResponse.pm
@@ -0,0 +1,112 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::ActivateLicenseResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::ActivateLicenseResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::ActivateLicenseResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::ActivateLicenseResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/ActivateLicenseResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/ActivateLicenseResponse.xslt
new file mode 100644
index 0000000..ba86ae3
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/ActivateLicenseResponse.xslt
@@ -0,0 +1,15 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/Address.pm b/src/main/resources/project/lib/Amazon/EC2/Model/Address.pm
new file mode 100644
index 0000000..80a2e6e
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/Address.pm
@@ -0,0 +1,113 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::Address;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::Address
+ #
+ # Properties:
+ #
+ #
+ # InstanceId: string
+ # PublicIp: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ InstanceId => { FieldValue => undef, FieldType => "string"},
+ PublicIp => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getInstanceId {
+ return shift->{_fields}->{InstanceId}->{FieldValue};
+ }
+
+
+ sub setInstanceId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceId {
+ my ($self, $value) = @_;
+ $self->setInstanceId($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceId {
+ return defined (shift->{_fields}->{InstanceId}->{FieldValue});
+ }
+
+
+ sub getPublicIp {
+ return shift->{_fields}->{PublicIp}->{FieldValue};
+ }
+
+
+ sub setPublicIp {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{PublicIp}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withPublicIp {
+ my ($self, $value) = @_;
+ $self->setPublicIp($value);
+ return $self;
+ }
+
+
+ sub isSetPublicIp {
+ return defined (shift->{_fields}->{PublicIp}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/AllocateAddressRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/AllocateAddressRequest.pm
new file mode 100644
index 0000000..c3ab3c5
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/AllocateAddressRequest.pm
@@ -0,0 +1,59 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::AllocateAddressRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::AllocateAddressRequest
+ #
+ # Properties:
+ #
+ #
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/AllocateAddressResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/AllocateAddressResponse.pm
new file mode 100644
index 0000000..6258efc
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/AllocateAddressResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::AllocateAddressResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::AllocateAddressResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # AllocateAddressResult: Amazon::EC2::Model::AllocateAddressResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ AllocateAddressResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::AllocateAddressResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::AllocateAddressResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::AllocateAddressResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getAllocateAddressResult {
+ return shift->{_fields}->{AllocateAddressResult}->{FieldValue};
+ }
+
+
+ sub setAllocateAddressResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{AllocateAddressResult}->{FieldValue} = $value;
+ }
+
+
+ sub withAllocateAddressResult {
+ my ($self, $value) = @_;
+ $self->setAllocateAddressResult($value);
+ return $self;
+ }
+
+
+ sub isSetAllocateAddressResult {
+ return defined (shift->{_fields}->{AllocateAddressResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/AllocateAddressResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/AllocateAddressResponse.xslt
new file mode 100644
index 0000000..86043fd
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/AllocateAddressResponse.xslt
@@ -0,0 +1,20 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/AllocateAddressResponse2.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/AllocateAddressResponse2.xslt
new file mode 100644
index 0000000..86043fd
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/AllocateAddressResponse2.xslt
@@ -0,0 +1,20 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/AllocateAddressResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/AllocateAddressResult.pm
new file mode 100644
index 0000000..4e8ac3a
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/AllocateAddressResult.pm
@@ -0,0 +1,86 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::AllocateAddressResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::AllocateAddressResult
+ #
+ # Properties:
+ #
+ #
+ # PublicIp: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ PublicIp => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getPublicIp {
+ return shift->{_fields}->{PublicIp}->{FieldValue};
+ }
+
+
+ sub setPublicIp {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{PublicIp}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withPublicIp {
+ my ($self, $value) = @_;
+ $self->setPublicIp($value);
+ return $self;
+ }
+
+
+ sub isSetPublicIp {
+ return defined (shift->{_fields}->{PublicIp}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/AssociateAddressRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/AssociateAddressRequest.pm
new file mode 100644
index 0000000..663d298
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/AssociateAddressRequest.pm
@@ -0,0 +1,113 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::AssociateAddressRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::AssociateAddressRequest
+ #
+ # Properties:
+ #
+ #
+ # InstanceId: string
+ # PublicIp: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ InstanceId => { FieldValue => undef, FieldType => "string"},
+ PublicIp => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getInstanceId {
+ return shift->{_fields}->{InstanceId}->{FieldValue};
+ }
+
+
+ sub setInstanceId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceId {
+ my ($self, $value) = @_;
+ $self->setInstanceId($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceId {
+ return defined (shift->{_fields}->{InstanceId}->{FieldValue});
+ }
+
+
+ sub getPublicIp {
+ return shift->{_fields}->{PublicIp}->{FieldValue};
+ }
+
+
+ sub setPublicIp {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{PublicIp}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withPublicIp {
+ my ($self, $value) = @_;
+ $self->setPublicIp($value);
+ return $self;
+ }
+
+
+ sub isSetPublicIp {
+ return defined (shift->{_fields}->{PublicIp}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/AssociateAddressResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/AssociateAddressResponse.pm
new file mode 100644
index 0000000..e7f23bf
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/AssociateAddressResponse.pm
@@ -0,0 +1,112 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::AssociateAddressResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::AssociateAddressResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::AssociateAddressResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::AssociateAddressResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/AssociateAddressResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/AssociateAddressResponse.xslt
new file mode 100644
index 0000000..ebd06ff
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/AssociateAddressResponse.xslt
@@ -0,0 +1,17 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/AssociateDhcpOptionsRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/AssociateDhcpOptionsRequest.pm
new file mode 100644
index 0000000..6096514
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/AssociateDhcpOptionsRequest.pm
@@ -0,0 +1,113 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::AssociateDhcpOptionsRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::AssociateDhcpOptionsRequest
+ #
+ # Properties:
+ #
+ #
+ # DhcpOptionsId: string
+ # VpcId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ DhcpOptionsId => { FieldValue => undef, FieldType => "string"},
+ VpcId => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getDhcpOptionsId {
+ return shift->{_fields}->{DhcpOptionsId}->{FieldValue};
+ }
+
+
+ sub setDhcpOptionsId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{DhcpOptionsId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withDhcpOptionsId {
+ my ($self, $value) = @_;
+ $self->setDhcpOptionsId($value);
+ return $self;
+ }
+
+
+ sub isSetDhcpOptionsId {
+ return defined (shift->{_fields}->{DhcpOptionsId}->{FieldValue});
+ }
+
+
+ sub getVpcId {
+ return shift->{_fields}->{VpcId}->{FieldValue};
+ }
+
+
+ sub setVpcId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VpcId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVpcId {
+ my ($self, $value) = @_;
+ $self->setVpcId($value);
+ return $self;
+ }
+
+
+ sub isSetVpcId {
+ return defined (shift->{_fields}->{VpcId}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/AssociateDhcpOptionsResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/AssociateDhcpOptionsResponse.pm
new file mode 100644
index 0000000..4452d22
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/AssociateDhcpOptionsResponse.pm
@@ -0,0 +1,112 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::AssociateDhcpOptionsResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::AssociateDhcpOptionsResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::AssociateDhcpOptionsResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::AssociateDhcpOptionsResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/AssociateDhcpOptionsResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/AssociateDhcpOptionsResponse.xslt
new file mode 100644
index 0000000..2bb248c
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/AssociateDhcpOptionsResponse.xslt
@@ -0,0 +1,17 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/AttachVolumeRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/AttachVolumeRequest.pm
new file mode 100644
index 0000000..853fa11
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/AttachVolumeRequest.pm
@@ -0,0 +1,140 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::AttachVolumeRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::AttachVolumeRequest
+ #
+ # Properties:
+ #
+ #
+ # VolumeId: string
+ # InstanceId: string
+ # Device: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ VolumeId => { FieldValue => undef, FieldType => "string"},
+ InstanceId => { FieldValue => undef, FieldType => "string"},
+ Device => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getVolumeId {
+ return shift->{_fields}->{VolumeId}->{FieldValue};
+ }
+
+
+ sub setVolumeId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VolumeId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVolumeId {
+ my ($self, $value) = @_;
+ $self->setVolumeId($value);
+ return $self;
+ }
+
+
+ sub isSetVolumeId {
+ return defined (shift->{_fields}->{VolumeId}->{FieldValue});
+ }
+
+
+ sub getInstanceId {
+ return shift->{_fields}->{InstanceId}->{FieldValue};
+ }
+
+
+ sub setInstanceId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceId {
+ my ($self, $value) = @_;
+ $self->setInstanceId($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceId {
+ return defined (shift->{_fields}->{InstanceId}->{FieldValue});
+ }
+
+
+ sub getDevice {
+ return shift->{_fields}->{Device}->{FieldValue};
+ }
+
+
+ sub setDevice {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Device}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withDevice {
+ my ($self, $value) = @_;
+ $self->setDevice($value);
+ return $self;
+ }
+
+
+ sub isSetDevice {
+ return defined (shift->{_fields}->{Device}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/AttachVolumeResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/AttachVolumeResponse.pm
new file mode 100644
index 0000000..a91307f
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/AttachVolumeResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::AttachVolumeResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::AttachVolumeResponse
+ #
+ # Properties:
+ #
+ #
+ # AttachVolumeResult: Amazon::EC2::Model::AttachVolumeResult
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ AttachVolumeResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::AttachVolumeResult"},
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::AttachVolumeResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::AttachVolumeResponse($tree);
+
+ }
+
+ sub getAttachVolumeResult {
+ return shift->{_fields}->{AttachVolumeResult}->{FieldValue};
+ }
+
+
+ sub setAttachVolumeResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{AttachVolumeResult}->{FieldValue} = $value;
+ }
+
+
+ sub withAttachVolumeResult {
+ my ($self, $value) = @_;
+ $self->setAttachVolumeResult($value);
+ return $self;
+ }
+
+
+ sub isSetAttachVolumeResult {
+ return defined (shift->{_fields}->{AttachVolumeResult}->{FieldValue});
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/AttachVolumeResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/AttachVolumeResponse.xslt
new file mode 100644
index 0000000..d60f739
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/AttachVolumeResponse.xslt
@@ -0,0 +1,39 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ false
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/AttachVolumeResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/AttachVolumeResult.pm
new file mode 100644
index 0000000..1dcafd1
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/AttachVolumeResult.pm
@@ -0,0 +1,84 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::AttachVolumeResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::AttachVolumeResult
+ #
+ # Properties:
+ #
+ #
+ # Attachment: Amazon::EC2::Model::Attachment
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ Attachment => {FieldValue => undef, FieldType => "Amazon::EC2::Model::Attachment"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getAttachment {
+ return shift->{_fields}->{Attachment}->{FieldValue};
+ }
+
+
+ sub setAttachment {
+ my ($self, $value) = @_;
+ $self->{_fields}->{Attachment}->{FieldValue} = $value;
+ }
+
+
+ sub withAttachment {
+ my ($self, $value) = @_;
+ $self->setAttachment($value);
+ return $self;
+ }
+
+
+ sub isSetAttachment {
+ return defined (shift->{_fields}->{Attachment}->{FieldValue});
+
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/AttachVpnGatewayRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/AttachVpnGatewayRequest.pm
new file mode 100644
index 0000000..ebf2ef8
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/AttachVpnGatewayRequest.pm
@@ -0,0 +1,113 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::AttachVpnGatewayRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::AttachVpnGatewayRequest
+ #
+ # Properties:
+ #
+ #
+ # VpnGatewayId: string
+ # VpcId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ VpnGatewayId => { FieldValue => undef, FieldType => "string"},
+ VpcId => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getVpnGatewayId {
+ return shift->{_fields}->{VpnGatewayId}->{FieldValue};
+ }
+
+
+ sub setVpnGatewayId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VpnGatewayId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVpnGatewayId {
+ my ($self, $value) = @_;
+ $self->setVpnGatewayId($value);
+ return $self;
+ }
+
+
+ sub isSetVpnGatewayId {
+ return defined (shift->{_fields}->{VpnGatewayId}->{FieldValue});
+ }
+
+
+ sub getVpcId {
+ return shift->{_fields}->{VpcId}->{FieldValue};
+ }
+
+
+ sub setVpcId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VpcId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVpcId {
+ my ($self, $value) = @_;
+ $self->setVpcId($value);
+ return $self;
+ }
+
+
+ sub isSetVpcId {
+ return defined (shift->{_fields}->{VpcId}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/AttachVpnGatewayResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/AttachVpnGatewayResponse.pm
new file mode 100644
index 0000000..102acb4
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/AttachVpnGatewayResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::AttachVpnGatewayResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::AttachVpnGatewayResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # AttachVpnGatewayResult: Amazon::EC2::Model::AttachVpnGatewayResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ AttachVpnGatewayResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::AttachVpnGatewayResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::AttachVpnGatewayResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::AttachVpnGatewayResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getAttachVpnGatewayResult {
+ return shift->{_fields}->{AttachVpnGatewayResult}->{FieldValue};
+ }
+
+
+ sub setAttachVpnGatewayResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{AttachVpnGatewayResult}->{FieldValue} = $value;
+ }
+
+
+ sub withAttachVpnGatewayResult {
+ my ($self, $value) = @_;
+ $self->setAttachVpnGatewayResult($value);
+ return $self;
+ }
+
+
+ sub isSetAttachVpnGatewayResult {
+ return defined (shift->{_fields}->{AttachVpnGatewayResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/AttachVpnGatewayResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/AttachVpnGatewayResponse.xslt
new file mode 100644
index 0000000..3a89a46
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/AttachVpnGatewayResponse.xslt
@@ -0,0 +1,31 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/AttachVpnGatewayResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/AttachVpnGatewayResult.pm
new file mode 100644
index 0000000..f49d287
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/AttachVpnGatewayResult.pm
@@ -0,0 +1,84 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::AttachVpnGatewayResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::AttachVpnGatewayResult
+ #
+ # Properties:
+ #
+ #
+ # VpcAttachment: Amazon::EC2::Model::VpcAttachment
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ VpcAttachment => {FieldValue => undef, FieldType => "Amazon::EC2::Model::VpcAttachment"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getVpcAttachment {
+ return shift->{_fields}->{VpcAttachment}->{FieldValue};
+ }
+
+
+ sub setVpcAttachment {
+ my ($self, $value) = @_;
+ $self->{_fields}->{VpcAttachment}->{FieldValue} = $value;
+ }
+
+
+ sub withVpcAttachment {
+ my ($self, $value) = @_;
+ $self->setVpcAttachment($value);
+ return $self;
+ }
+
+
+ sub isSetVpcAttachment {
+ return defined (shift->{_fields}->{VpcAttachment}->{FieldValue});
+
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/Attachment.pm b/src/main/resources/project/lib/Amazon/EC2/Model/Attachment.pm
new file mode 100644
index 0000000..89ae7e3
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/Attachment.pm
@@ -0,0 +1,221 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::Attachment;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::Attachment
+ #
+ # Properties:
+ #
+ #
+ # VolumeId: string
+ # InstanceId: string
+ # Device: string
+ # Status: string
+ # AttachTime: string
+ # DeleteOnTermination: bool
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ VolumeId => { FieldValue => undef, FieldType => "string"},
+ InstanceId => { FieldValue => undef, FieldType => "string"},
+ Device => { FieldValue => undef, FieldType => "string"},
+ Status => { FieldValue => undef, FieldType => "string"},
+ AttachTime => { FieldValue => undef, FieldType => "string"},
+ DeleteOnTermination => { FieldValue => undef, FieldType => "bool"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getVolumeId {
+ return shift->{_fields}->{VolumeId}->{FieldValue};
+ }
+
+
+ sub setVolumeId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VolumeId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVolumeId {
+ my ($self, $value) = @_;
+ $self->setVolumeId($value);
+ return $self;
+ }
+
+
+ sub isSetVolumeId {
+ return defined (shift->{_fields}->{VolumeId}->{FieldValue});
+ }
+
+
+ sub getInstanceId {
+ return shift->{_fields}->{InstanceId}->{FieldValue};
+ }
+
+
+ sub setInstanceId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceId {
+ my ($self, $value) = @_;
+ $self->setInstanceId($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceId {
+ return defined (shift->{_fields}->{InstanceId}->{FieldValue});
+ }
+
+
+ sub getDevice {
+ return shift->{_fields}->{Device}->{FieldValue};
+ }
+
+
+ sub setDevice {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Device}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withDevice {
+ my ($self, $value) = @_;
+ $self->setDevice($value);
+ return $self;
+ }
+
+
+ sub isSetDevice {
+ return defined (shift->{_fields}->{Device}->{FieldValue});
+ }
+
+
+ sub getStatus {
+ return shift->{_fields}->{Status}->{FieldValue};
+ }
+
+
+ sub setStatus {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Status}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withStatus {
+ my ($self, $value) = @_;
+ $self->setStatus($value);
+ return $self;
+ }
+
+
+ sub isSetStatus {
+ return defined (shift->{_fields}->{Status}->{FieldValue});
+ }
+
+
+ sub getAttachTime {
+ return shift->{_fields}->{AttachTime}->{FieldValue};
+ }
+
+
+ sub setAttachTime {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{AttachTime}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withAttachTime {
+ my ($self, $value) = @_;
+ $self->setAttachTime($value);
+ return $self;
+ }
+
+
+ sub isSetAttachTime {
+ return defined (shift->{_fields}->{AttachTime}->{FieldValue});
+ }
+
+
+ sub getDeleteOnTermination {
+ return shift->{_fields}->{DeleteOnTermination}->{FieldValue};
+ }
+
+
+ sub setDeleteOnTermination {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{DeleteOnTermination}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withDeleteOnTermination {
+ my ($self, $value) = @_;
+ $self->setDeleteOnTermination($value);
+ return $self;
+ }
+
+
+ sub isSetDeleteOnTermination {
+ return defined (shift->{_fields}->{DeleteOnTermination}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/AuthorizeSecurityGroupIngressRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/AuthorizeSecurityGroupIngressRequest.pm
new file mode 100644
index 0000000..e513ef6
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/AuthorizeSecurityGroupIngressRequest.pm
@@ -0,0 +1,275 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::AuthorizeSecurityGroupIngressRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::AuthorizeSecurityGroupIngressRequest
+ #
+ # Properties:
+ #
+ #
+ # UserId: string
+ # GroupName: string
+ # SourceSecurityGroupName: string
+ # SourceSecurityGroupOwnerId: string
+ # IpProtocol: string
+ # FromPort: int
+ # ToPort: int
+ # CidrIp: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ UserId => { FieldValue => undef, FieldType => "string"},
+ GroupName => { FieldValue => undef, FieldType => "string"},
+ SourceSecurityGroupName => { FieldValue => undef, FieldType => "string"},
+ SourceSecurityGroupOwnerId => { FieldValue => undef, FieldType => "string"},
+ IpProtocol => { FieldValue => undef, FieldType => "string"},
+ FromPort => { FieldValue => undef, FieldType => "int"},
+ ToPort => { FieldValue => undef, FieldType => "int"},
+ CidrIp => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getUserId {
+ return shift->{_fields}->{UserId}->{FieldValue};
+ }
+
+
+ sub setUserId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{UserId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withUserId {
+ my ($self, $value) = @_;
+ $self->setUserId($value);
+ return $self;
+ }
+
+
+ sub isSetUserId {
+ return defined (shift->{_fields}->{UserId}->{FieldValue});
+ }
+
+
+ sub getGroupName {
+ return shift->{_fields}->{GroupName}->{FieldValue};
+ }
+
+
+ sub setGroupName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{GroupName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withGroupName {
+ my ($self, $value) = @_;
+ $self->setGroupName($value);
+ return $self;
+ }
+
+
+ sub isSetGroupName {
+ return defined (shift->{_fields}->{GroupName}->{FieldValue});
+ }
+
+
+ sub getSourceSecurityGroupName {
+ return shift->{_fields}->{SourceSecurityGroupName}->{FieldValue};
+ }
+
+
+ sub setSourceSecurityGroupName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{SourceSecurityGroupName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withSourceSecurityGroupName {
+ my ($self, $value) = @_;
+ $self->setSourceSecurityGroupName($value);
+ return $self;
+ }
+
+
+ sub isSetSourceSecurityGroupName {
+ return defined (shift->{_fields}->{SourceSecurityGroupName}->{FieldValue});
+ }
+
+
+ sub getSourceSecurityGroupOwnerId {
+ return shift->{_fields}->{SourceSecurityGroupOwnerId}->{FieldValue};
+ }
+
+
+ sub setSourceSecurityGroupOwnerId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{SourceSecurityGroupOwnerId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withSourceSecurityGroupOwnerId {
+ my ($self, $value) = @_;
+ $self->setSourceSecurityGroupOwnerId($value);
+ return $self;
+ }
+
+
+ sub isSetSourceSecurityGroupOwnerId {
+ return defined (shift->{_fields}->{SourceSecurityGroupOwnerId}->{FieldValue});
+ }
+
+
+ sub getIpProtocol {
+ return shift->{_fields}->{IpProtocol}->{FieldValue};
+ }
+
+
+ sub setIpProtocol {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{IpProtocol}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withIpProtocol {
+ my ($self, $value) = @_;
+ $self->setIpProtocol($value);
+ return $self;
+ }
+
+
+ sub isSetIpProtocol {
+ return defined (shift->{_fields}->{IpProtocol}->{FieldValue});
+ }
+
+
+ sub getFromPort {
+ return shift->{_fields}->{FromPort}->{FieldValue};
+ }
+
+
+ sub setFromPort {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{FromPort}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withFromPort {
+ my ($self, $value) = @_;
+ $self->setFromPort($value);
+ return $self;
+ }
+
+
+ sub isSetFromPort {
+ return defined (shift->{_fields}->{FromPort}->{FieldValue});
+ }
+
+
+ sub getToPort {
+ return shift->{_fields}->{ToPort}->{FieldValue};
+ }
+
+
+ sub setToPort {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ToPort}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withToPort {
+ my ($self, $value) = @_;
+ $self->setToPort($value);
+ return $self;
+ }
+
+
+ sub isSetToPort {
+ return defined (shift->{_fields}->{ToPort}->{FieldValue});
+ }
+
+
+ sub getCidrIp {
+ return shift->{_fields}->{CidrIp}->{FieldValue};
+ }
+
+
+ sub setCidrIp {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{CidrIp}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withCidrIp {
+ my ($self, $value) = @_;
+ $self->setCidrIp($value);
+ return $self;
+ }
+
+
+ sub isSetCidrIp {
+ return defined (shift->{_fields}->{CidrIp}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/AuthorizeSecurityGroupIngressResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/AuthorizeSecurityGroupIngressResponse.pm
new file mode 100644
index 0000000..1de3bc1
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/AuthorizeSecurityGroupIngressResponse.pm
@@ -0,0 +1,112 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::AuthorizeSecurityGroupIngressResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::AuthorizeSecurityGroupIngressResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::AuthorizeSecurityGroupIngressResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::AuthorizeSecurityGroupIngressResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/AuthorizeSecurityGroupIngressResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/AuthorizeSecurityGroupIngressResponse.xslt
new file mode 100644
index 0000000..54e85c6
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/AuthorizeSecurityGroupIngressResponse.xslt
@@ -0,0 +1,17 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/AvailabilityZone.pm b/src/main/resources/project/lib/Amazon/EC2/Model/AvailabilityZone.pm
new file mode 100644
index 0000000..0182943
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/AvailabilityZone.pm
@@ -0,0 +1,169 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::AvailabilityZone;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::AvailabilityZone
+ #
+ # Properties:
+ #
+ #
+ # ZoneName: string
+ # ZoneState: string
+ # RegionName: string
+ # Message: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ZoneName => { FieldValue => undef, FieldType => "string"},
+ ZoneState => { FieldValue => undef, FieldType => "string"},
+ RegionName => { FieldValue => undef, FieldType => "string"},
+ Message => {FieldValue => [], FieldType => ["string"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getZoneName {
+ return shift->{_fields}->{ZoneName}->{FieldValue};
+ }
+
+
+ sub setZoneName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ZoneName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withZoneName {
+ my ($self, $value) = @_;
+ $self->setZoneName($value);
+ return $self;
+ }
+
+
+ sub isSetZoneName {
+ return defined (shift->{_fields}->{ZoneName}->{FieldValue});
+ }
+
+
+ sub getZoneState {
+ return shift->{_fields}->{ZoneState}->{FieldValue};
+ }
+
+
+ sub setZoneState {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ZoneState}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withZoneState {
+ my ($self, $value) = @_;
+ $self->setZoneState($value);
+ return $self;
+ }
+
+
+ sub isSetZoneState {
+ return defined (shift->{_fields}->{ZoneState}->{FieldValue});
+ }
+
+
+ sub getRegionName {
+ return shift->{_fields}->{RegionName}->{FieldValue};
+ }
+
+
+ sub setRegionName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{RegionName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withRegionName {
+ my ($self, $value) = @_;
+ $self->setRegionName($value);
+ return $self;
+ }
+
+
+ sub isSetRegionName {
+ return defined (shift->{_fields}->{RegionName}->{FieldValue});
+ }
+
+ sub getMessage {
+ return shift->{_fields}->{Message}->{FieldValue};
+ }
+
+
+ sub setMessage {
+ my ($self, $value) = @_;
+ $self->{_fields}->{Message}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withMessage {
+ my $self = shift;
+ my $list = $self->{_fields}->{Message}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetMessage {
+ return scalar (@{shift->{_fields}->{Message}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/BlockDeviceMapping.pm b/src/main/resources/project/lib/Amazon/EC2/Model/BlockDeviceMapping.pm
new file mode 100644
index 0000000..473531b
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/BlockDeviceMapping.pm
@@ -0,0 +1,165 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::BlockDeviceMapping;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::BlockDeviceMapping
+ #
+ # Properties:
+ #
+ #
+ # DeviceName: string
+ # VirtualName: string
+ # Ebs: Amazon::EC2::Model::EbsBlockDevice
+ # NoDevice: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ DeviceName => { FieldValue => undef, FieldType => "string"},
+ VirtualName => { FieldValue => undef, FieldType => "string"},
+ Ebs => {FieldValue => undef, FieldType => "Amazon::EC2::Model::EbsBlockDevice"},
+ NoDevice => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getDeviceName {
+ return shift->{_fields}->{DeviceName}->{FieldValue};
+ }
+
+
+ sub setDeviceName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{DeviceName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withDeviceName {
+ my ($self, $value) = @_;
+ $self->setDeviceName($value);
+ return $self;
+ }
+
+
+ sub isSetDeviceName {
+ return defined (shift->{_fields}->{DeviceName}->{FieldValue});
+ }
+
+
+ sub getVirtualName {
+ return shift->{_fields}->{VirtualName}->{FieldValue};
+ }
+
+
+ sub setVirtualName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VirtualName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVirtualName {
+ my ($self, $value) = @_;
+ $self->setVirtualName($value);
+ return $self;
+ }
+
+
+ sub isSetVirtualName {
+ return defined (shift->{_fields}->{VirtualName}->{FieldValue});
+ }
+
+ sub getEbs {
+ return shift->{_fields}->{Ebs}->{FieldValue};
+ }
+
+
+ sub setEbs {
+ my ($self, $value) = @_;
+ $self->{_fields}->{Ebs}->{FieldValue} = $value;
+ }
+
+
+ sub withEbs {
+ my ($self, $value) = @_;
+ $self->setEbs($value);
+ return $self;
+ }
+
+
+ sub isSetEbs {
+ return defined (shift->{_fields}->{Ebs}->{FieldValue});
+
+ }
+
+
+ sub getNoDevice {
+ return shift->{_fields}->{NoDevice}->{FieldValue};
+ }
+
+
+ sub setNoDevice {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{NoDevice}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withNoDevice {
+ my ($self, $value) = @_;
+ $self->setNoDevice($value);
+ return $self;
+ }
+
+
+ sub isSetNoDevice {
+ return defined (shift->{_fields}->{NoDevice}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/BundleInstanceRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/BundleInstanceRequest.pm
new file mode 100644
index 0000000..d419ae5
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/BundleInstanceRequest.pm
@@ -0,0 +1,111 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::BundleInstanceRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::BundleInstanceRequest
+ #
+ # Properties:
+ #
+ #
+ # InstanceId: string
+ # Storage: Amazon::EC2::Model::Storage
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ InstanceId => { FieldValue => undef, FieldType => "string"},
+ Storage => {FieldValue => undef, FieldType => "Amazon::EC2::Model::Storage"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getInstanceId {
+ return shift->{_fields}->{InstanceId}->{FieldValue};
+ }
+
+
+ sub setInstanceId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceId {
+ my ($self, $value) = @_;
+ $self->setInstanceId($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceId {
+ return defined (shift->{_fields}->{InstanceId}->{FieldValue});
+ }
+
+ sub getStorage {
+ return shift->{_fields}->{Storage}->{FieldValue};
+ }
+
+
+ sub setStorage {
+ my ($self, $value) = @_;
+ $self->{_fields}->{Storage}->{FieldValue} = $value;
+ }
+
+
+ sub withStorage {
+ my ($self, $value) = @_;
+ $self->setStorage($value);
+ return $self;
+ }
+
+
+ sub isSetStorage {
+ return defined (shift->{_fields}->{Storage}->{FieldValue});
+
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/BundleInstanceResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/BundleInstanceResponse.pm
new file mode 100644
index 0000000..a12886c
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/BundleInstanceResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::BundleInstanceResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::BundleInstanceResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # BundleInstanceResult: Amazon::EC2::Model::BundleInstanceResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ BundleInstanceResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::BundleInstanceResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::BundleInstanceResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::BundleInstanceResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getBundleInstanceResult {
+ return shift->{_fields}->{BundleInstanceResult}->{FieldValue};
+ }
+
+
+ sub setBundleInstanceResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{BundleInstanceResult}->{FieldValue} = $value;
+ }
+
+
+ sub withBundleInstanceResult {
+ my ($self, $value) = @_;
+ $self->setBundleInstanceResult($value);
+ return $self;
+ }
+
+
+ sub isSetBundleInstanceResult {
+ return defined (shift->{_fields}->{BundleInstanceResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/BundleInstanceResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/BundleInstanceResponse.xslt
new file mode 100644
index 0000000..6fa69d8
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/BundleInstanceResponse.xslt
@@ -0,0 +1,72 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/BundleInstanceResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/BundleInstanceResult.pm
new file mode 100644
index 0000000..627042d
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/BundleInstanceResult.pm
@@ -0,0 +1,84 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::BundleInstanceResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::BundleInstanceResult
+ #
+ # Properties:
+ #
+ #
+ # BundleTask: Amazon::EC2::Model::BundleTask
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ BundleTask => {FieldValue => undef, FieldType => "Amazon::EC2::Model::BundleTask"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getBundleTask {
+ return shift->{_fields}->{BundleTask}->{FieldValue};
+ }
+
+
+ sub setBundleTask {
+ my ($self, $value) = @_;
+ $self->{_fields}->{BundleTask}->{FieldValue} = $value;
+ }
+
+
+ sub withBundleTask {
+ my ($self, $value) = @_;
+ $self->setBundleTask($value);
+ return $self;
+ }
+
+
+ sub isSetBundleTask {
+ return defined (shift->{_fields}->{BundleTask}->{FieldValue});
+
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/BundleTask.pm b/src/main/resources/project/lib/Amazon/EC2/Model/BundleTask.pm
new file mode 100644
index 0000000..4df4a14
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/BundleTask.pm
@@ -0,0 +1,271 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::BundleTask;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::BundleTask
+ #
+ # Properties:
+ #
+ #
+ # InstanceId: string
+ # BundleId: string
+ # BundleState: string
+ # StartTime: string
+ # UpdateTime: string
+ # Storage: Amazon::EC2::Model::Storage
+ # Progress: string
+ # BundleTaskError: Amazon::EC2::Model::BundleTaskError
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ InstanceId => { FieldValue => undef, FieldType => "string"},
+ BundleId => { FieldValue => undef, FieldType => "string"},
+ BundleState => { FieldValue => undef, FieldType => "string"},
+ StartTime => { FieldValue => undef, FieldType => "string"},
+ UpdateTime => { FieldValue => undef, FieldType => "string"},
+ Storage => {FieldValue => undef, FieldType => "Amazon::EC2::Model::Storage"},
+ Progress => { FieldValue => undef, FieldType => "string"},
+ BundleTaskError => {FieldValue => undef, FieldType => "Amazon::EC2::Model::BundleTaskError"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getInstanceId {
+ return shift->{_fields}->{InstanceId}->{FieldValue};
+ }
+
+
+ sub setInstanceId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceId {
+ my ($self, $value) = @_;
+ $self->setInstanceId($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceId {
+ return defined (shift->{_fields}->{InstanceId}->{FieldValue});
+ }
+
+
+ sub getBundleId {
+ return shift->{_fields}->{BundleId}->{FieldValue};
+ }
+
+
+ sub setBundleId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{BundleId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withBundleId {
+ my ($self, $value) = @_;
+ $self->setBundleId($value);
+ return $self;
+ }
+
+
+ sub isSetBundleId {
+ return defined (shift->{_fields}->{BundleId}->{FieldValue});
+ }
+
+
+ sub getBundleState {
+ return shift->{_fields}->{BundleState}->{FieldValue};
+ }
+
+
+ sub setBundleState {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{BundleState}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withBundleState {
+ my ($self, $value) = @_;
+ $self->setBundleState($value);
+ return $self;
+ }
+
+
+ sub isSetBundleState {
+ return defined (shift->{_fields}->{BundleState}->{FieldValue});
+ }
+
+
+ sub getStartTime {
+ return shift->{_fields}->{StartTime}->{FieldValue};
+ }
+
+
+ sub setStartTime {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{StartTime}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withStartTime {
+ my ($self, $value) = @_;
+ $self->setStartTime($value);
+ return $self;
+ }
+
+
+ sub isSetStartTime {
+ return defined (shift->{_fields}->{StartTime}->{FieldValue});
+ }
+
+
+ sub getUpdateTime {
+ return shift->{_fields}->{UpdateTime}->{FieldValue};
+ }
+
+
+ sub setUpdateTime {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{UpdateTime}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withUpdateTime {
+ my ($self, $value) = @_;
+ $self->setUpdateTime($value);
+ return $self;
+ }
+
+
+ sub isSetUpdateTime {
+ return defined (shift->{_fields}->{UpdateTime}->{FieldValue});
+ }
+
+ sub getStorage {
+ return shift->{_fields}->{Storage}->{FieldValue};
+ }
+
+
+ sub setStorage {
+ my ($self, $value) = @_;
+ $self->{_fields}->{Storage}->{FieldValue} = $value;
+ }
+
+
+ sub withStorage {
+ my ($self, $value) = @_;
+ $self->setStorage($value);
+ return $self;
+ }
+
+
+ sub isSetStorage {
+ return defined (shift->{_fields}->{Storage}->{FieldValue});
+
+ }
+
+
+ sub getProgress {
+ return shift->{_fields}->{Progress}->{FieldValue};
+ }
+
+
+ sub setProgress {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Progress}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withProgress {
+ my ($self, $value) = @_;
+ $self->setProgress($value);
+ return $self;
+ }
+
+
+ sub isSetProgress {
+ return defined (shift->{_fields}->{Progress}->{FieldValue});
+ }
+
+ sub getBundleTaskError {
+ return shift->{_fields}->{BundleTaskError}->{FieldValue};
+ }
+
+
+ sub setBundleTaskError {
+ my ($self, $value) = @_;
+ $self->{_fields}->{BundleTaskError}->{FieldValue} = $value;
+ }
+
+
+ sub withBundleTaskError {
+ my ($self, $value) = @_;
+ $self->setBundleTaskError($value);
+ return $self;
+ }
+
+
+ sub isSetBundleTaskError {
+ return defined (shift->{_fields}->{BundleTaskError}->{FieldValue});
+
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/BundleTaskError.pm b/src/main/resources/project/lib/Amazon/EC2/Model/BundleTaskError.pm
new file mode 100644
index 0000000..d63d88a
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/BundleTaskError.pm
@@ -0,0 +1,113 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::BundleTaskError;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::BundleTaskError
+ #
+ # Properties:
+ #
+ #
+ # Code: string
+ # Message: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ Code => { FieldValue => undef, FieldType => "string"},
+ Message => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getCode {
+ return shift->{_fields}->{Code}->{FieldValue};
+ }
+
+
+ sub setCode {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Code}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withCode {
+ my ($self, $value) = @_;
+ $self->setCode($value);
+ return $self;
+ }
+
+
+ sub isSetCode {
+ return defined (shift->{_fields}->{Code}->{FieldValue});
+ }
+
+
+ sub getMessage {
+ return shift->{_fields}->{Message}->{FieldValue};
+ }
+
+
+ sub setMessage {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Message}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withMessage {
+ my ($self, $value) = @_;
+ $self->setMessage($value);
+ return $self;
+ }
+
+
+ sub isSetMessage {
+ return defined (shift->{_fields}->{Message}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CancelBundleTaskRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CancelBundleTaskRequest.pm
new file mode 100644
index 0000000..9cdb67d
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CancelBundleTaskRequest.pm
@@ -0,0 +1,86 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CancelBundleTaskRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CancelBundleTaskRequest
+ #
+ # Properties:
+ #
+ #
+ # BundleId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ BundleId => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getBundleId {
+ return shift->{_fields}->{BundleId}->{FieldValue};
+ }
+
+
+ sub setBundleId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{BundleId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withBundleId {
+ my ($self, $value) = @_;
+ $self->setBundleId($value);
+ return $self;
+ }
+
+
+ sub isSetBundleId {
+ return defined (shift->{_fields}->{BundleId}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CancelBundleTaskResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CancelBundleTaskResponse.pm
new file mode 100644
index 0000000..659f8c5
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CancelBundleTaskResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CancelBundleTaskResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CancelBundleTaskResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # CancelBundleTaskResult: Amazon::EC2::Model::CancelBundleTaskResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ CancelBundleTaskResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::CancelBundleTaskResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::CancelBundleTaskResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::CancelBundleTaskResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getCancelBundleTaskResult {
+ return shift->{_fields}->{CancelBundleTaskResult}->{FieldValue};
+ }
+
+
+ sub setCancelBundleTaskResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{CancelBundleTaskResult}->{FieldValue} = $value;
+ }
+
+
+ sub withCancelBundleTaskResult {
+ my ($self, $value) = @_;
+ $self->setCancelBundleTaskResult($value);
+ return $self;
+ }
+
+
+ sub isSetCancelBundleTaskResult {
+ return defined (shift->{_fields}->{CancelBundleTaskResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CancelBundleTaskResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/CancelBundleTaskResponse.xslt
new file mode 100644
index 0000000..24a2bd6
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CancelBundleTaskResponse.xslt
@@ -0,0 +1,63 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CancelBundleTaskResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CancelBundleTaskResult.pm
new file mode 100644
index 0000000..4447a3c
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CancelBundleTaskResult.pm
@@ -0,0 +1,84 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CancelBundleTaskResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CancelBundleTaskResult
+ #
+ # Properties:
+ #
+ #
+ # BundleTask: Amazon::EC2::Model::BundleTask
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ BundleTask => {FieldValue => undef, FieldType => "Amazon::EC2::Model::BundleTask"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getBundleTask {
+ return shift->{_fields}->{BundleTask}->{FieldValue};
+ }
+
+
+ sub setBundleTask {
+ my ($self, $value) = @_;
+ $self->{_fields}->{BundleTask}->{FieldValue} = $value;
+ }
+
+
+ sub withBundleTask {
+ my ($self, $value) = @_;
+ $self->setBundleTask($value);
+ return $self;
+ }
+
+
+ sub isSetBundleTask {
+ return defined (shift->{_fields}->{BundleTask}->{FieldValue});
+
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CancelSpotInstanceRequestsRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CancelSpotInstanceRequestsRequest.pm
new file mode 100644
index 0000000..1d82a12
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CancelSpotInstanceRequestsRequest.pm
@@ -0,0 +1,88 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CancelSpotInstanceRequestsRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CancelSpotInstanceRequestsRequest
+ #
+ # Properties:
+ #
+ #
+ # SpotInstanceRequestId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ SpotInstanceRequestId => {FieldValue => [], FieldType => ["string"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getSpotInstanceRequestId {
+ return shift->{_fields}->{SpotInstanceRequestId}->{FieldValue};
+ }
+
+
+ sub setSpotInstanceRequestId {
+ my ($self, $value) = @_;
+ $self->{_fields}->{SpotInstanceRequestId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withSpotInstanceRequestId {
+ my $self = shift;
+ my $list = $self->{_fields}->{SpotInstanceRequestId}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetSpotInstanceRequestId {
+ return scalar (@{shift->{_fields}->{SpotInstanceRequestId}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CancelSpotInstanceRequestsResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CancelSpotInstanceRequestsResponse.pm
new file mode 100644
index 0000000..b20d930
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CancelSpotInstanceRequestsResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CancelSpotInstanceRequestsResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CancelSpotInstanceRequestsResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # CancelSpotInstanceRequestsResult: Amazon::EC2::Model::CancelSpotInstanceRequestsResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ CancelSpotInstanceRequestsResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::CancelSpotInstanceRequestsResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::CancelSpotInstanceRequestsResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::CancelSpotInstanceRequestsResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getCancelSpotInstanceRequestsResult {
+ return shift->{_fields}->{CancelSpotInstanceRequestsResult}->{FieldValue};
+ }
+
+
+ sub setCancelSpotInstanceRequestsResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{CancelSpotInstanceRequestsResult}->{FieldValue} = $value;
+ }
+
+
+ sub withCancelSpotInstanceRequestsResult {
+ my ($self, $value) = @_;
+ $self->setCancelSpotInstanceRequestsResult($value);
+ return $self;
+ }
+
+
+ sub isSetCancelSpotInstanceRequestsResult {
+ return defined (shift->{_fields}->{CancelSpotInstanceRequestsResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CancelSpotInstanceRequestsResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/CancelSpotInstanceRequestsResponse.xslt
new file mode 100644
index 0000000..1d50116
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CancelSpotInstanceRequestsResponse.xslt
@@ -0,0 +1,32 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CancelSpotInstanceRequestsResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CancelSpotInstanceRequestsResult.pm
new file mode 100644
index 0000000..5fae935
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CancelSpotInstanceRequestsResult.pm
@@ -0,0 +1,89 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CancelSpotInstanceRequestsResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CancelSpotInstanceRequestsResult
+ #
+ # Properties:
+ #
+ #
+ # CancelledSpotInstanceRequest: Amazon::EC2::Model::CancelledSpotInstanceRequest
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ CancelledSpotInstanceRequest => {FieldValue => [], FieldType => ["Amazon::EC2::Model::CancelledSpotInstanceRequest"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getCancelledSpotInstanceRequest {
+ return shift->{_fields}->{CancelledSpotInstanceRequest}->{FieldValue};
+ }
+
+ sub setCancelledSpotInstanceRequest {
+ my $self = shift;
+ foreach my $cancelledSpotInstanceRequest (@_) {
+ if (not $self->_isArrayRef($cancelledSpotInstanceRequest)) {
+ $cancelledSpotInstanceRequest = [$cancelledSpotInstanceRequest];
+ }
+ $self->{_fields}->{CancelledSpotInstanceRequest}->{FieldValue} = $cancelledSpotInstanceRequest;
+ }
+ }
+
+
+ sub withCancelledSpotInstanceRequest {
+ my ($self, $cancelledSpotInstanceRequestArgs) = @_;
+ foreach my $cancelledSpotInstanceRequest (@$cancelledSpotInstanceRequestArgs) {
+ $self->{_fields}->{CancelledSpotInstanceRequest}->{FieldValue} = $cancelledSpotInstanceRequest;
+ }
+ return $self;
+ }
+
+
+ sub isSetCancelledSpotInstanceRequest {
+ return scalar (@{shift->{_fields}->{CancelledSpotInstanceRequest}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CancelledSpotInstanceRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CancelledSpotInstanceRequest.pm
new file mode 100644
index 0000000..0e57efd
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CancelledSpotInstanceRequest.pm
@@ -0,0 +1,113 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CancelledSpotInstanceRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CancelledSpotInstanceRequest
+ #
+ # Properties:
+ #
+ #
+ # SpotInstanceRequestId: string
+ # State: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ SpotInstanceRequestId => { FieldValue => undef, FieldType => "string"},
+ State => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getSpotInstanceRequestId {
+ return shift->{_fields}->{SpotInstanceRequestId}->{FieldValue};
+ }
+
+
+ sub setSpotInstanceRequestId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{SpotInstanceRequestId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withSpotInstanceRequestId {
+ my ($self, $value) = @_;
+ $self->setSpotInstanceRequestId($value);
+ return $self;
+ }
+
+
+ sub isSetSpotInstanceRequestId {
+ return defined (shift->{_fields}->{SpotInstanceRequestId}->{FieldValue});
+ }
+
+
+ sub getState {
+ return shift->{_fields}->{State}->{FieldValue};
+ }
+
+
+ sub setState {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{State}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withState {
+ my ($self, $value) = @_;
+ $self->setState($value);
+ return $self;
+ }
+
+
+ sub isSetState {
+ return defined (shift->{_fields}->{State}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/ConfirmProductInstanceRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/ConfirmProductInstanceRequest.pm
new file mode 100644
index 0000000..c99a046
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/ConfirmProductInstanceRequest.pm
@@ -0,0 +1,113 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::ConfirmProductInstanceRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::ConfirmProductInstanceRequest
+ #
+ # Properties:
+ #
+ #
+ # ProductCode: string
+ # InstanceId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ProductCode => { FieldValue => undef, FieldType => "string"},
+ InstanceId => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getProductCode {
+ return shift->{_fields}->{ProductCode}->{FieldValue};
+ }
+
+
+ sub setProductCode {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ProductCode}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withProductCode {
+ my ($self, $value) = @_;
+ $self->setProductCode($value);
+ return $self;
+ }
+
+
+ sub isSetProductCode {
+ return defined (shift->{_fields}->{ProductCode}->{FieldValue});
+ }
+
+
+ sub getInstanceId {
+ return shift->{_fields}->{InstanceId}->{FieldValue};
+ }
+
+
+ sub setInstanceId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceId {
+ my ($self, $value) = @_;
+ $self->setInstanceId($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceId {
+ return defined (shift->{_fields}->{InstanceId}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/ConfirmProductInstanceResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/ConfirmProductInstanceResponse.pm
new file mode 100644
index 0000000..f1c7c76
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/ConfirmProductInstanceResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::ConfirmProductInstanceResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::ConfirmProductInstanceResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # ConfirmProductInstanceResult: Amazon::EC2::Model::ConfirmProductInstanceResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ ConfirmProductInstanceResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ConfirmProductInstanceResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::ConfirmProductInstanceResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::ConfirmProductInstanceResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getConfirmProductInstanceResult {
+ return shift->{_fields}->{ConfirmProductInstanceResult}->{FieldValue};
+ }
+
+
+ sub setConfirmProductInstanceResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ConfirmProductInstanceResult}->{FieldValue} = $value;
+ }
+
+
+ sub withConfirmProductInstanceResult {
+ my ($self, $value) = @_;
+ $self->setConfirmProductInstanceResult($value);
+ return $self;
+ }
+
+
+ sub isSetConfirmProductInstanceResult {
+ return defined (shift->{_fields}->{ConfirmProductInstanceResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/ConfirmProductInstanceResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/ConfirmProductInstanceResponse.xslt
new file mode 100644
index 0000000..0a9034f
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/ConfirmProductInstanceResponse.xslt
@@ -0,0 +1,22 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/ConfirmProductInstanceResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/ConfirmProductInstanceResult.pm
new file mode 100644
index 0000000..06e3704
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/ConfirmProductInstanceResult.pm
@@ -0,0 +1,86 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::ConfirmProductInstanceResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::ConfirmProductInstanceResult
+ #
+ # Properties:
+ #
+ #
+ # OwnerId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ OwnerId => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getOwnerId {
+ return shift->{_fields}->{OwnerId}->{FieldValue};
+ }
+
+
+ sub setOwnerId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{OwnerId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withOwnerId {
+ my ($self, $value) = @_;
+ $self->setOwnerId($value);
+ return $self;
+ }
+
+
+ sub isSetOwnerId {
+ return defined (shift->{_fields}->{OwnerId}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/ConsoleOutput.pm b/src/main/resources/project/lib/Amazon/EC2/Model/ConsoleOutput.pm
new file mode 100644
index 0000000..cb217cc
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/ConsoleOutput.pm
@@ -0,0 +1,140 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::ConsoleOutput;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::ConsoleOutput
+ #
+ # Properties:
+ #
+ #
+ # InstanceId: string
+ # Timestamp: string
+ # Output: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ InstanceId => { FieldValue => undef, FieldType => "string"},
+ Timestamp => { FieldValue => undef, FieldType => "string"},
+ Output => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getInstanceId {
+ return shift->{_fields}->{InstanceId}->{FieldValue};
+ }
+
+
+ sub setInstanceId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceId {
+ my ($self, $value) = @_;
+ $self->setInstanceId($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceId {
+ return defined (shift->{_fields}->{InstanceId}->{FieldValue});
+ }
+
+
+ sub getTimestamp {
+ return shift->{_fields}->{Timestamp}->{FieldValue};
+ }
+
+
+ sub setTimestamp {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Timestamp}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withTimestamp {
+ my ($self, $value) = @_;
+ $self->setTimestamp($value);
+ return $self;
+ }
+
+
+ sub isSetTimestamp {
+ return defined (shift->{_fields}->{Timestamp}->{FieldValue});
+ }
+
+
+ sub getOutput {
+ return shift->{_fields}->{Output}->{FieldValue};
+ }
+
+
+ sub setOutput {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Output}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withOutput {
+ my ($self, $value) = @_;
+ $self->setOutput($value);
+ return $self;
+ }
+
+
+ sub isSetOutput {
+ return defined (shift->{_fields}->{Output}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateCustomerGatewayRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateCustomerGatewayRequest.pm
new file mode 100644
index 0000000..771f2be
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateCustomerGatewayRequest.pm
@@ -0,0 +1,140 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateCustomerGatewayRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateCustomerGatewayRequest
+ #
+ # Properties:
+ #
+ #
+ # Type: string
+ # IpAddress: string
+ # BgpAsn: int
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ Type => { FieldValue => undef, FieldType => "string"},
+ IpAddress => { FieldValue => undef, FieldType => "string"},
+ BgpAsn => { FieldValue => undef, FieldType => "int"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getType {
+ return shift->{_fields}->{Type}->{FieldValue};
+ }
+
+
+ sub setType {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Type}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withType {
+ my ($self, $value) = @_;
+ $self->setType($value);
+ return $self;
+ }
+
+
+ sub isSetType {
+ return defined (shift->{_fields}->{Type}->{FieldValue});
+ }
+
+
+ sub getIpAddress {
+ return shift->{_fields}->{IpAddress}->{FieldValue};
+ }
+
+
+ sub setIpAddress {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{IpAddress}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withIpAddress {
+ my ($self, $value) = @_;
+ $self->setIpAddress($value);
+ return $self;
+ }
+
+
+ sub isSetIpAddress {
+ return defined (shift->{_fields}->{IpAddress}->{FieldValue});
+ }
+
+
+ sub getBgpAsn {
+ return shift->{_fields}->{BgpAsn}->{FieldValue};
+ }
+
+
+ sub setBgpAsn {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{BgpAsn}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withBgpAsn {
+ my ($self, $value) = @_;
+ $self->setBgpAsn($value);
+ return $self;
+ }
+
+
+ sub isSetBgpAsn {
+ return defined (shift->{_fields}->{BgpAsn}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateCustomerGatewayResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateCustomerGatewayResponse.pm
new file mode 100644
index 0000000..acc9f95
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateCustomerGatewayResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateCustomerGatewayResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateCustomerGatewayResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # CreateCustomerGatewayResult: Amazon::EC2::Model::CreateCustomerGatewayResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ CreateCustomerGatewayResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::CreateCustomerGatewayResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::CreateCustomerGatewayResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::CreateCustomerGatewayResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getCreateCustomerGatewayResult {
+ return shift->{_fields}->{CreateCustomerGatewayResult}->{FieldValue};
+ }
+
+
+ sub setCreateCustomerGatewayResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{CreateCustomerGatewayResult}->{FieldValue} = $value;
+ }
+
+
+ sub withCreateCustomerGatewayResult {
+ my ($self, $value) = @_;
+ $self->setCreateCustomerGatewayResult($value);
+ return $self;
+ }
+
+
+ sub isSetCreateCustomerGatewayResult {
+ return defined (shift->{_fields}->{CreateCustomerGatewayResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateCustomerGatewayResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/CreateCustomerGatewayResponse.xslt
new file mode 100644
index 0000000..b251962
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateCustomerGatewayResponse.xslt
@@ -0,0 +1,41 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateCustomerGatewayResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateCustomerGatewayResult.pm
new file mode 100644
index 0000000..1e8cab2
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateCustomerGatewayResult.pm
@@ -0,0 +1,84 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateCustomerGatewayResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateCustomerGatewayResult
+ #
+ # Properties:
+ #
+ #
+ # CustomerGateway: Amazon::EC2::Model::CustomerGateway
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ CustomerGateway => {FieldValue => undef, FieldType => "Amazon::EC2::Model::CustomerGateway"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getCustomerGateway {
+ return shift->{_fields}->{CustomerGateway}->{FieldValue};
+ }
+
+
+ sub setCustomerGateway {
+ my ($self, $value) = @_;
+ $self->{_fields}->{CustomerGateway}->{FieldValue} = $value;
+ }
+
+
+ sub withCustomerGateway {
+ my ($self, $value) = @_;
+ $self->setCustomerGateway($value);
+ return $self;
+ }
+
+
+ sub isSetCustomerGateway {
+ return defined (shift->{_fields}->{CustomerGateway}->{FieldValue});
+
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateDhcpOptionsRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateDhcpOptionsRequest.pm
new file mode 100644
index 0000000..b69c9f0
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateDhcpOptionsRequest.pm
@@ -0,0 +1,89 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateDhcpOptionsRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateDhcpOptionsRequest
+ #
+ # Properties:
+ #
+ #
+ # DhcpConfiguration: Amazon::EC2::Model::DhcpConfiguration
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ DhcpConfiguration => {FieldValue => [], FieldType => ["Amazon::EC2::Model::DhcpConfiguration"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getDhcpConfiguration {
+ return shift->{_fields}->{DhcpConfiguration}->{FieldValue};
+ }
+
+ sub setDhcpConfiguration {
+ my $self = shift;
+ foreach my $dhcpConfiguration (@_) {
+ if (not $self->_isArrayRef($dhcpConfiguration)) {
+ $dhcpConfiguration = [$dhcpConfiguration];
+ }
+ $self->{_fields}->{DhcpConfiguration}->{FieldValue} = $dhcpConfiguration;
+ }
+ }
+
+
+ sub withDhcpConfiguration {
+ my ($self, $dhcpConfigurationArgs) = @_;
+ foreach my $dhcpConfiguration (@$dhcpConfigurationArgs) {
+ $self->{_fields}->{DhcpConfiguration}->{FieldValue} = $dhcpConfiguration;
+ }
+ return $self;
+ }
+
+
+ sub isSetDhcpConfiguration {
+ return scalar (@{shift->{_fields}->{DhcpConfiguration}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateDhcpOptionsResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateDhcpOptionsResponse.pm
new file mode 100644
index 0000000..b9d796a
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateDhcpOptionsResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateDhcpOptionsResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateDhcpOptionsResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # CreateDhcpOptionsResult: Amazon::EC2::Model::CreateDhcpOptionsResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ CreateDhcpOptionsResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::CreateDhcpOptionsResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::CreateDhcpOptionsResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::CreateDhcpOptionsResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getCreateDhcpOptionsResult {
+ return shift->{_fields}->{CreateDhcpOptionsResult}->{FieldValue};
+ }
+
+
+ sub setCreateDhcpOptionsResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{CreateDhcpOptionsResult}->{FieldValue} = $value;
+ }
+
+
+ sub withCreateDhcpOptionsResult {
+ my ($self, $value) = @_;
+ $self->setCreateDhcpOptionsResult($value);
+ return $self;
+ }
+
+
+ sub isSetCreateDhcpOptionsResult {
+ return defined (shift->{_fields}->{CreateDhcpOptionsResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateDhcpOptionsResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/CreateDhcpOptionsResponse.xslt
new file mode 100644
index 0000000..f312a4a
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateDhcpOptionsResponse.xslt
@@ -0,0 +1,49 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateDhcpOptionsResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateDhcpOptionsResult.pm
new file mode 100644
index 0000000..c0373f7
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateDhcpOptionsResult.pm
@@ -0,0 +1,84 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateDhcpOptionsResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateDhcpOptionsResult
+ #
+ # Properties:
+ #
+ #
+ # DhcpOptions: Amazon::EC2::Model::DhcpOptions
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ DhcpOptions => {FieldValue => undef, FieldType => "Amazon::EC2::Model::DhcpOptions"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getDhcpOptions {
+ return shift->{_fields}->{DhcpOptions}->{FieldValue};
+ }
+
+
+ sub setDhcpOptions {
+ my ($self, $value) = @_;
+ $self->{_fields}->{DhcpOptions}->{FieldValue} = $value;
+ }
+
+
+ sub withDhcpOptions {
+ my ($self, $value) = @_;
+ $self->setDhcpOptions($value);
+ return $self;
+ }
+
+
+ sub isSetDhcpOptions {
+ return defined (shift->{_fields}->{DhcpOptions}->{FieldValue});
+
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateImageRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateImageRequest.pm
new file mode 100644
index 0000000..cfa25d2
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateImageRequest.pm
@@ -0,0 +1,167 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateImageRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateImageRequest
+ #
+ # Properties:
+ #
+ #
+ # InstanceId: string
+ # Name: string
+ # Description: string
+ # NoReboot: bool
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ InstanceId => { FieldValue => undef, FieldType => "string"},
+ Name => { FieldValue => undef, FieldType => "string"},
+ Description => { FieldValue => undef, FieldType => "string"},
+ NoReboot => { FieldValue => undef, FieldType => "bool"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getInstanceId {
+ return shift->{_fields}->{InstanceId}->{FieldValue};
+ }
+
+
+ sub setInstanceId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceId {
+ my ($self, $value) = @_;
+ $self->setInstanceId($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceId {
+ return defined (shift->{_fields}->{InstanceId}->{FieldValue});
+ }
+
+
+ sub getName {
+ return shift->{_fields}->{Name}->{FieldValue};
+ }
+
+
+ sub setName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Name}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withName {
+ my ($self, $value) = @_;
+ $self->setName($value);
+ return $self;
+ }
+
+
+ sub isSetName {
+ return defined (shift->{_fields}->{Name}->{FieldValue});
+ }
+
+
+ sub getDescription {
+ return shift->{_fields}->{Description}->{FieldValue};
+ }
+
+
+ sub setDescription {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Description}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withDescription {
+ my ($self, $value) = @_;
+ $self->setDescription($value);
+ return $self;
+ }
+
+
+ sub isSetDescription {
+ return defined (shift->{_fields}->{Description}->{FieldValue});
+ }
+
+
+ sub getNoReboot {
+ return shift->{_fields}->{NoReboot}->{FieldValue};
+ }
+
+
+ sub setNoReboot {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{NoReboot}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withNoReboot {
+ my ($self, $value) = @_;
+ $self->setNoReboot($value);
+ return $self;
+ }
+
+
+ sub isSetNoReboot {
+ return defined (shift->{_fields}->{NoReboot}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateImageResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateImageResponse.pm
new file mode 100644
index 0000000..65c7d7f
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateImageResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateImageResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateImageResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # CreateImageResult: Amazon::EC2::Model::CreateImageResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ CreateImageResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::CreateImageResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::CreateImageResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::CreateImageResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getCreateImageResult {
+ return shift->{_fields}->{CreateImageResult}->{FieldValue};
+ }
+
+
+ sub setCreateImageResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{CreateImageResult}->{FieldValue} = $value;
+ }
+
+
+ sub withCreateImageResult {
+ my ($self, $value) = @_;
+ $self->setCreateImageResult($value);
+ return $self;
+ }
+
+
+ sub isSetCreateImageResult {
+ return defined (shift->{_fields}->{CreateImageResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateImageResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/CreateImageResponse.xslt
new file mode 100644
index 0000000..831309c
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateImageResponse.xslt
@@ -0,0 +1,22 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateImageResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateImageResult.pm
new file mode 100644
index 0000000..3ff9070
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateImageResult.pm
@@ -0,0 +1,86 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateImageResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateImageResult
+ #
+ # Properties:
+ #
+ #
+ # ImageId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ImageId => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getImageId {
+ return shift->{_fields}->{ImageId}->{FieldValue};
+ }
+
+
+ sub setImageId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ImageId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withImageId {
+ my ($self, $value) = @_;
+ $self->setImageId($value);
+ return $self;
+ }
+
+
+ sub isSetImageId {
+ return defined (shift->{_fields}->{ImageId}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateKeyPairRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateKeyPairRequest.pm
new file mode 100644
index 0000000..8918bd1
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateKeyPairRequest.pm
@@ -0,0 +1,86 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateKeyPairRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateKeyPairRequest
+ #
+ # Properties:
+ #
+ #
+ # KeyName: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ KeyName => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getKeyName {
+ return shift->{_fields}->{KeyName}->{FieldValue};
+ }
+
+
+ sub setKeyName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{KeyName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withKeyName {
+ my ($self, $value) = @_;
+ $self->setKeyName($value);
+ return $self;
+ }
+
+
+ sub isSetKeyName {
+ return defined (shift->{_fields}->{KeyName}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateKeyPairResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateKeyPairResponse.pm
new file mode 100644
index 0000000..214b6fb
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateKeyPairResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateKeyPairResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateKeyPairResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # CreateKeyPairResult: Amazon::EC2::Model::CreateKeyPairResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ CreateKeyPairResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::CreateKeyPairResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::CreateKeyPairResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::CreateKeyPairResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getCreateKeyPairResult {
+ return shift->{_fields}->{CreateKeyPairResult}->{FieldValue};
+ }
+
+
+ sub setCreateKeyPairResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{CreateKeyPairResult}->{FieldValue} = $value;
+ }
+
+
+ sub withCreateKeyPairResult {
+ my ($self, $value) = @_;
+ $self->setCreateKeyPairResult($value);
+ return $self;
+ }
+
+
+ sub isSetCreateKeyPairResult {
+ return defined (shift->{_fields}->{CreateKeyPairResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateKeyPairResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/CreateKeyPairResponse.xslt
new file mode 100644
index 0000000..23b2551
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateKeyPairResponse.xslt
@@ -0,0 +1,27 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateKeyPairResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateKeyPairResult.pm
new file mode 100644
index 0000000..d65ff4f
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateKeyPairResult.pm
@@ -0,0 +1,84 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateKeyPairResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateKeyPairResult
+ #
+ # Properties:
+ #
+ #
+ # KeyPair: Amazon::EC2::Model::KeyPair
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ KeyPair => {FieldValue => undef, FieldType => "Amazon::EC2::Model::KeyPair"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getKeyPair {
+ return shift->{_fields}->{KeyPair}->{FieldValue};
+ }
+
+
+ sub setKeyPair {
+ my ($self, $value) = @_;
+ $self->{_fields}->{KeyPair}->{FieldValue} = $value;
+ }
+
+
+ sub withKeyPair {
+ my ($self, $value) = @_;
+ $self->setKeyPair($value);
+ return $self;
+ }
+
+
+ sub isSetKeyPair {
+ return defined (shift->{_fields}->{KeyPair}->{FieldValue});
+
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreatePlacementGroupRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreatePlacementGroupRequest.pm
new file mode 100644
index 0000000..916f321
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreatePlacementGroupRequest.pm
@@ -0,0 +1,113 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreatePlacementGroupRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreatePlacementGroupRequest
+ #
+ # Properties:
+ #
+ #
+ # GroupName: string
+ # Strategy: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ GroupName => { FieldValue => undef, FieldType => "string"},
+ Strategy => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getGroupName {
+ return shift->{_fields}->{GroupName}->{FieldValue};
+ }
+
+
+ sub setGroupName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{GroupName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withGroupName {
+ my ($self, $value) = @_;
+ $self->setGroupName($value);
+ return $self;
+ }
+
+
+ sub isSetGroupName {
+ return defined (shift->{_fields}->{GroupName}->{FieldValue});
+ }
+
+
+ sub getStrategy {
+ return shift->{_fields}->{Strategy}->{FieldValue};
+ }
+
+
+ sub setStrategy {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Strategy}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withStrategy {
+ my ($self, $value) = @_;
+ $self->setStrategy($value);
+ return $self;
+ }
+
+
+ sub isSetStrategy {
+ return defined (shift->{_fields}->{Strategy}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreatePlacementGroupResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreatePlacementGroupResponse.pm
new file mode 100644
index 0000000..4799fb4
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreatePlacementGroupResponse.pm
@@ -0,0 +1,112 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreatePlacementGroupResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreatePlacementGroupResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::CreatePlacementGroupResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::CreatePlacementGroupResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreatePlacementGroupResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/CreatePlacementGroupResponse.xslt
new file mode 100644
index 0000000..1fc807b
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreatePlacementGroupResponse.xslt
@@ -0,0 +1,15 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateSecurityGroupRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateSecurityGroupRequest.pm
new file mode 100644
index 0000000..6d2e738
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateSecurityGroupRequest.pm
@@ -0,0 +1,113 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateSecurityGroupRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateSecurityGroupRequest
+ #
+ # Properties:
+ #
+ #
+ # GroupName: string
+ # GroupDescription: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ GroupName => { FieldValue => undef, FieldType => "string"},
+ GroupDescription => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getGroupName {
+ return shift->{_fields}->{GroupName}->{FieldValue};
+ }
+
+
+ sub setGroupName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{GroupName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withGroupName {
+ my ($self, $value) = @_;
+ $self->setGroupName($value);
+ return $self;
+ }
+
+
+ sub isSetGroupName {
+ return defined (shift->{_fields}->{GroupName}->{FieldValue});
+ }
+
+
+ sub getGroupDescription {
+ return shift->{_fields}->{GroupDescription}->{FieldValue};
+ }
+
+
+ sub setGroupDescription {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{GroupDescription}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withGroupDescription {
+ my ($self, $value) = @_;
+ $self->setGroupDescription($value);
+ return $self;
+ }
+
+
+ sub isSetGroupDescription {
+ return defined (shift->{_fields}->{GroupDescription}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateSecurityGroupResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateSecurityGroupResponse.pm
new file mode 100644
index 0000000..ff988e2
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateSecurityGroupResponse.pm
@@ -0,0 +1,112 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateSecurityGroupResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateSecurityGroupResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::CreateSecurityGroupResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::CreateSecurityGroupResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateSecurityGroupResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/CreateSecurityGroupResponse.xslt
new file mode 100644
index 0000000..c6235d3
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateSecurityGroupResponse.xslt
@@ -0,0 +1,17 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateSnapshotRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateSnapshotRequest.pm
new file mode 100644
index 0000000..e6f0646
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateSnapshotRequest.pm
@@ -0,0 +1,113 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateSnapshotRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateSnapshotRequest
+ #
+ # Properties:
+ #
+ #
+ # VolumeId: string
+ # Description: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ VolumeId => { FieldValue => undef, FieldType => "string"},
+ Description => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getVolumeId {
+ return shift->{_fields}->{VolumeId}->{FieldValue};
+ }
+
+
+ sub setVolumeId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VolumeId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVolumeId {
+ my ($self, $value) = @_;
+ $self->setVolumeId($value);
+ return $self;
+ }
+
+
+ sub isSetVolumeId {
+ return defined (shift->{_fields}->{VolumeId}->{FieldValue});
+ }
+
+
+ sub getDescription {
+ return shift->{_fields}->{Description}->{FieldValue};
+ }
+
+
+ sub setDescription {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Description}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withDescription {
+ my ($self, $value) = @_;
+ $self->setDescription($value);
+ return $self;
+ }
+
+
+ sub isSetDescription {
+ return defined (shift->{_fields}->{Description}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateSnapshotResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateSnapshotResponse.pm
new file mode 100644
index 0000000..4906612
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateSnapshotResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateSnapshotResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateSnapshotResponse
+ #
+ # Properties:
+ #
+ #
+ # CreateSnapshotResult: Amazon::EC2::Model::CreateSnapshotResult
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ CreateSnapshotResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::CreateSnapshotResult"},
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::CreateSnapshotResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::CreateSnapshotResponse($tree);
+
+ }
+
+ sub getCreateSnapshotResult {
+ return shift->{_fields}->{CreateSnapshotResult}->{FieldValue};
+ }
+
+
+ sub setCreateSnapshotResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{CreateSnapshotResult}->{FieldValue} = $value;
+ }
+
+
+ sub withCreateSnapshotResult {
+ my ($self, $value) = @_;
+ $self->setCreateSnapshotResult($value);
+ return $self;
+ }
+
+
+ sub isSetCreateSnapshotResult {
+ return defined (shift->{_fields}->{CreateSnapshotResult}->{FieldValue});
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateSnapshotResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/CreateSnapshotResponse.xslt
new file mode 100644
index 0000000..b9ec3a5
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateSnapshotResponse.xslt
@@ -0,0 +1,45 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateSnapshotResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateSnapshotResult.pm
new file mode 100644
index 0000000..5ad8cd1
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateSnapshotResult.pm
@@ -0,0 +1,84 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateSnapshotResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateSnapshotResult
+ #
+ # Properties:
+ #
+ #
+ # Snapshot: Amazon::EC2::Model::Snapshot
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ Snapshot => {FieldValue => undef, FieldType => "Amazon::EC2::Model::Snapshot"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getSnapshot {
+ return shift->{_fields}->{Snapshot}->{FieldValue};
+ }
+
+
+ sub setSnapshot {
+ my ($self, $value) = @_;
+ $self->{_fields}->{Snapshot}->{FieldValue} = $value;
+ }
+
+
+ sub withSnapshot {
+ my ($self, $value) = @_;
+ $self->setSnapshot($value);
+ return $self;
+ }
+
+
+ sub isSetSnapshot {
+ return defined (shift->{_fields}->{Snapshot}->{FieldValue});
+
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateSpotDatafeedSubscriptionRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateSpotDatafeedSubscriptionRequest.pm
new file mode 100644
index 0000000..c0bdf8c
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateSpotDatafeedSubscriptionRequest.pm
@@ -0,0 +1,113 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateSpotDatafeedSubscriptionRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateSpotDatafeedSubscriptionRequest
+ #
+ # Properties:
+ #
+ #
+ # Bucket: string
+ # Prefix: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ Bucket => { FieldValue => undef, FieldType => "string"},
+ Prefix => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getBucket {
+ return shift->{_fields}->{Bucket}->{FieldValue};
+ }
+
+
+ sub setBucket {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Bucket}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withBucket {
+ my ($self, $value) = @_;
+ $self->setBucket($value);
+ return $self;
+ }
+
+
+ sub isSetBucket {
+ return defined (shift->{_fields}->{Bucket}->{FieldValue});
+ }
+
+
+ sub getPrefix {
+ return shift->{_fields}->{Prefix}->{FieldValue};
+ }
+
+
+ sub setPrefix {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Prefix}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withPrefix {
+ my ($self, $value) = @_;
+ $self->setPrefix($value);
+ return $self;
+ }
+
+
+ sub isSetPrefix {
+ return defined (shift->{_fields}->{Prefix}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateSpotDatafeedSubscriptionResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateSpotDatafeedSubscriptionResponse.pm
new file mode 100644
index 0000000..d0e2866
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateSpotDatafeedSubscriptionResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateSpotDatafeedSubscriptionResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateSpotDatafeedSubscriptionResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # CreateSpotDatafeedSubscriptionResult: Amazon::EC2::Model::CreateSpotDatafeedSubscriptionResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ CreateSpotDatafeedSubscriptionResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::CreateSpotDatafeedSubscriptionResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::CreateSpotDatafeedSubscriptionResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::CreateSpotDatafeedSubscriptionResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getCreateSpotDatafeedSubscriptionResult {
+ return shift->{_fields}->{CreateSpotDatafeedSubscriptionResult}->{FieldValue};
+ }
+
+
+ sub setCreateSpotDatafeedSubscriptionResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{CreateSpotDatafeedSubscriptionResult}->{FieldValue} = $value;
+ }
+
+
+ sub withCreateSpotDatafeedSubscriptionResult {
+ my ($self, $value) = @_;
+ $self->setCreateSpotDatafeedSubscriptionResult($value);
+ return $self;
+ }
+
+
+ sub isSetCreateSpotDatafeedSubscriptionResult {
+ return defined (shift->{_fields}->{CreateSpotDatafeedSubscriptionResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateSpotDatafeedSubscriptionResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/CreateSpotDatafeedSubscriptionResponse.xslt
new file mode 100644
index 0000000..023ef5a
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateSpotDatafeedSubscriptionResponse.xslt
@@ -0,0 +1,47 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateSpotDatafeedSubscriptionResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateSpotDatafeedSubscriptionResult.pm
new file mode 100644
index 0000000..a6cd448
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateSpotDatafeedSubscriptionResult.pm
@@ -0,0 +1,84 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateSpotDatafeedSubscriptionResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateSpotDatafeedSubscriptionResult
+ #
+ # Properties:
+ #
+ #
+ # SpotDatafeedSubscription: Amazon::EC2::Model::SpotDatafeedSubscription
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ SpotDatafeedSubscription => {FieldValue => undef, FieldType => "Amazon::EC2::Model::SpotDatafeedSubscription"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getSpotDatafeedSubscription {
+ return shift->{_fields}->{SpotDatafeedSubscription}->{FieldValue};
+ }
+
+
+ sub setSpotDatafeedSubscription {
+ my ($self, $value) = @_;
+ $self->{_fields}->{SpotDatafeedSubscription}->{FieldValue} = $value;
+ }
+
+
+ sub withSpotDatafeedSubscription {
+ my ($self, $value) = @_;
+ $self->setSpotDatafeedSubscription($value);
+ return $self;
+ }
+
+
+ sub isSetSpotDatafeedSubscription {
+ return defined (shift->{_fields}->{SpotDatafeedSubscription}->{FieldValue});
+
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateSubnetRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateSubnetRequest.pm
new file mode 100644
index 0000000..0ad6b69
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateSubnetRequest.pm
@@ -0,0 +1,140 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateSubnetRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateSubnetRequest
+ #
+ # Properties:
+ #
+ #
+ # VpcId: string
+ # CidrBlock: string
+ # AvailabilityZone: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ VpcId => { FieldValue => undef, FieldType => "string"},
+ CidrBlock => { FieldValue => undef, FieldType => "string"},
+ AvailabilityZone => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getVpcId {
+ return shift->{_fields}->{VpcId}->{FieldValue};
+ }
+
+
+ sub setVpcId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VpcId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVpcId {
+ my ($self, $value) = @_;
+ $self->setVpcId($value);
+ return $self;
+ }
+
+
+ sub isSetVpcId {
+ return defined (shift->{_fields}->{VpcId}->{FieldValue});
+ }
+
+
+ sub getCidrBlock {
+ return shift->{_fields}->{CidrBlock}->{FieldValue};
+ }
+
+
+ sub setCidrBlock {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{CidrBlock}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withCidrBlock {
+ my ($self, $value) = @_;
+ $self->setCidrBlock($value);
+ return $self;
+ }
+
+
+ sub isSetCidrBlock {
+ return defined (shift->{_fields}->{CidrBlock}->{FieldValue});
+ }
+
+
+ sub getAvailabilityZone {
+ return shift->{_fields}->{AvailabilityZone}->{FieldValue};
+ }
+
+
+ sub setAvailabilityZone {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{AvailabilityZone}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withAvailabilityZone {
+ my ($self, $value) = @_;
+ $self->setAvailabilityZone($value);
+ return $self;
+ }
+
+
+ sub isSetAvailabilityZone {
+ return defined (shift->{_fields}->{AvailabilityZone}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateSubnetResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateSubnetResponse.pm
new file mode 100644
index 0000000..fe3e851
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateSubnetResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateSubnetResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateSubnetResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # CreateSubnetResult: Amazon::EC2::Model::CreateSubnetResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ CreateSubnetResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::CreateSubnetResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::CreateSubnetResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::CreateSubnetResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getCreateSubnetResult {
+ return shift->{_fields}->{CreateSubnetResult}->{FieldValue};
+ }
+
+
+ sub setCreateSubnetResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{CreateSubnetResult}->{FieldValue} = $value;
+ }
+
+
+ sub withCreateSubnetResult {
+ my ($self, $value) = @_;
+ $self->setCreateSubnetResult($value);
+ return $self;
+ }
+
+
+ sub isSetCreateSubnetResult {
+ return defined (shift->{_fields}->{CreateSubnetResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateSubnetResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/CreateSubnetResponse.xslt
new file mode 100644
index 0000000..efc6aff
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateSubnetResponse.xslt
@@ -0,0 +1,44 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateSubnetResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateSubnetResult.pm
new file mode 100644
index 0000000..27781e4
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateSubnetResult.pm
@@ -0,0 +1,84 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateSubnetResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateSubnetResult
+ #
+ # Properties:
+ #
+ #
+ # Subnet: Amazon::EC2::Model::Subnet
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ Subnet => {FieldValue => undef, FieldType => "Amazon::EC2::Model::Subnet"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getSubnet {
+ return shift->{_fields}->{Subnet}->{FieldValue};
+ }
+
+
+ sub setSubnet {
+ my ($self, $value) = @_;
+ $self->{_fields}->{Subnet}->{FieldValue} = $value;
+ }
+
+
+ sub withSubnet {
+ my ($self, $value) = @_;
+ $self->setSubnet($value);
+ return $self;
+ }
+
+
+ sub isSetSubnet {
+ return defined (shift->{_fields}->{Subnet}->{FieldValue});
+
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateTagsRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateTagsRequest.pm
new file mode 100644
index 0000000..7838b7a
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateTagsRequest.pm
@@ -0,0 +1,42 @@
+
+package Amazon::EC2::Model::CreateTagsRequest;
+
+use base qw (Amazon::EC2::Model);
+
+sub new {
+
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResourceId => {FieldValue => undef, FieldType => ["string"]},
+ Tag => {FieldValue => undef, FieldType => ["Amazon::EC2::Model::Tag"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+}
+
+sub setIdList {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResourceId}->{FieldValue} = $value;
+}
+
+sub setTagList {
+ my ($self, $value) = @_;
+ $self->{_fields}->{Tag}->{FieldValue} = $value;
+}
+
+sub getIdList() {
+ return shift->{_fields}->{ResourceId}->{FieldValue};
+}
+
+sub getTagList() {
+ return shift->{_fields}->{Tag}->{FieldValue};
+}
+
+1;
\ No newline at end of file
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateTagsResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateTagsResponse.pm
new file mode 100644
index 0000000..800ca27
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateTagsResponse.pm
@@ -0,0 +1,68 @@
+package Amazon::EC2::Model::CreateTagsResponse;
+
+use base qw (Amazon::EC2::Model);
+
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ #
+ # Construct Amazon::EC2::Model::CreateTagsResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin($xml);
+
+ return new Amazon::EC2::Model::CreateTagsResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
\ No newline at end of file
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateTagsResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/CreateTagsResponse.xslt
new file mode 100644
index 0000000..c377852
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateTagsResponse.xslt
@@ -0,0 +1,17 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateVolumePermission.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateVolumePermission.pm
new file mode 100644
index 0000000..800fce9
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateVolumePermission.pm
@@ -0,0 +1,113 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateVolumePermission;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateVolumePermission
+ #
+ # Properties:
+ #
+ #
+ # UserId: string
+ # GroupName: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ UserId => { FieldValue => undef, FieldType => "string"},
+ GroupName => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getUserId {
+ return shift->{_fields}->{UserId}->{FieldValue};
+ }
+
+
+ sub setUserId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{UserId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withUserId {
+ my ($self, $value) = @_;
+ $self->setUserId($value);
+ return $self;
+ }
+
+
+ sub isSetUserId {
+ return defined (shift->{_fields}->{UserId}->{FieldValue});
+ }
+
+
+ sub getGroupName {
+ return shift->{_fields}->{GroupName}->{FieldValue};
+ }
+
+
+ sub setGroupName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{GroupName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withGroupName {
+ my ($self, $value) = @_;
+ $self->setGroupName($value);
+ return $self;
+ }
+
+
+ sub isSetGroupName {
+ return defined (shift->{_fields}->{GroupName}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateVolumeRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateVolumeRequest.pm
new file mode 100644
index 0000000..75be11a
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateVolumeRequest.pm
@@ -0,0 +1,140 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateVolumeRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateVolumeRequest
+ #
+ # Properties:
+ #
+ #
+ # Size: string
+ # SnapshotId: string
+ # AvailabilityZone: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ Size => { FieldValue => undef, FieldType => "string"},
+ SnapshotId => { FieldValue => undef, FieldType => "string"},
+ AvailabilityZone => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getSize {
+ return shift->{_fields}->{Size}->{FieldValue};
+ }
+
+
+ sub setSize {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Size}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withSize {
+ my ($self, $value) = @_;
+ $self->setSize($value);
+ return $self;
+ }
+
+
+ sub isSetSize {
+ return defined (shift->{_fields}->{Size}->{FieldValue});
+ }
+
+
+ sub getSnapshotId {
+ return shift->{_fields}->{SnapshotId}->{FieldValue};
+ }
+
+
+ sub setSnapshotId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{SnapshotId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withSnapshotId {
+ my ($self, $value) = @_;
+ $self->setSnapshotId($value);
+ return $self;
+ }
+
+
+ sub isSetSnapshotId {
+ return defined (shift->{_fields}->{SnapshotId}->{FieldValue});
+ }
+
+
+ sub getAvailabilityZone {
+ return shift->{_fields}->{AvailabilityZone}->{FieldValue};
+ }
+
+
+ sub setAvailabilityZone {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{AvailabilityZone}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withAvailabilityZone {
+ my ($self, $value) = @_;
+ $self->setAvailabilityZone($value);
+ return $self;
+ }
+
+
+ sub isSetAvailabilityZone {
+ return defined (shift->{_fields}->{AvailabilityZone}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateVolumeResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateVolumeResponse.pm
new file mode 100644
index 0000000..eda09f4
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateVolumeResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateVolumeResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateVolumeResponse
+ #
+ # Properties:
+ #
+ #
+ # CreateVolumeResult: Amazon::EC2::Model::CreateVolumeResult
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ CreateVolumeResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::CreateVolumeResult"},
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::CreateVolumeResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::CreateVolumeResponse($tree);
+
+ }
+
+ sub getCreateVolumeResult {
+ return shift->{_fields}->{CreateVolumeResult}->{FieldValue};
+ }
+
+
+ sub setCreateVolumeResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{CreateVolumeResult}->{FieldValue} = $value;
+ }
+
+
+ sub withCreateVolumeResult {
+ my ($self, $value) = @_;
+ $self->setCreateVolumeResult($value);
+ return $self;
+ }
+
+
+ sub isSetCreateVolumeResult {
+ return defined (shift->{_fields}->{CreateVolumeResult}->{FieldValue});
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateVolumeResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/CreateVolumeResponse.xslt
new file mode 100644
index 0000000..0b6eadf
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateVolumeResponse.xslt
@@ -0,0 +1,39 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateVolumeResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateVolumeResult.pm
new file mode 100644
index 0000000..433981b
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateVolumeResult.pm
@@ -0,0 +1,84 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateVolumeResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateVolumeResult
+ #
+ # Properties:
+ #
+ #
+ # Volume: Amazon::EC2::Model::Volume
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ Volume => {FieldValue => undef, FieldType => "Amazon::EC2::Model::Volume"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getVolume {
+ return shift->{_fields}->{Volume}->{FieldValue};
+ }
+
+
+ sub setVolume {
+ my ($self, $value) = @_;
+ $self->{_fields}->{Volume}->{FieldValue} = $value;
+ }
+
+
+ sub withVolume {
+ my ($self, $value) = @_;
+ $self->setVolume($value);
+ return $self;
+ }
+
+
+ sub isSetVolume {
+ return defined (shift->{_fields}->{Volume}->{FieldValue});
+
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpcRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpcRequest.pm
new file mode 100644
index 0000000..38038a5
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpcRequest.pm
@@ -0,0 +1,86 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateVpcRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateVpcRequest
+ #
+ # Properties:
+ #
+ #
+ # CidrBlock: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ CidrBlock => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getCidrBlock {
+ return shift->{_fields}->{CidrBlock}->{FieldValue};
+ }
+
+
+ sub setCidrBlock {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{CidrBlock}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withCidrBlock {
+ my ($self, $value) = @_;
+ $self->setCidrBlock($value);
+ return $self;
+ }
+
+
+ sub isSetCidrBlock {
+ return defined (shift->{_fields}->{CidrBlock}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpcResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpcResponse.pm
new file mode 100644
index 0000000..a0d4562
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpcResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateVpcResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateVpcResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # CreateVpcResult: Amazon::EC2::Model::CreateVpcResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ CreateVpcResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::CreateVpcResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::CreateVpcResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::CreateVpcResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getCreateVpcResult {
+ return shift->{_fields}->{CreateVpcResult}->{FieldValue};
+ }
+
+
+ sub setCreateVpcResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{CreateVpcResult}->{FieldValue} = $value;
+ }
+
+
+ sub withCreateVpcResult {
+ my ($self, $value) = @_;
+ $self->setCreateVpcResult($value);
+ return $self;
+ }
+
+
+ sub isSetCreateVpcResult {
+ return defined (shift->{_fields}->{CreateVpcResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpcResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpcResponse.xslt
new file mode 100644
index 0000000..2536610
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpcResponse.xslt
@@ -0,0 +1,35 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpcResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpcResult.pm
new file mode 100644
index 0000000..dc7d0c2
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpcResult.pm
@@ -0,0 +1,84 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateVpcResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateVpcResult
+ #
+ # Properties:
+ #
+ #
+ # Vpc: Amazon::EC2::Model::Vpc
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ Vpc => {FieldValue => undef, FieldType => "Amazon::EC2::Model::Vpc"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getVpc {
+ return shift->{_fields}->{Vpc}->{FieldValue};
+ }
+
+
+ sub setVpc {
+ my ($self, $value) = @_;
+ $self->{_fields}->{Vpc}->{FieldValue} = $value;
+ }
+
+
+ sub withVpc {
+ my ($self, $value) = @_;
+ $self->setVpc($value);
+ return $self;
+ }
+
+
+ sub isSetVpc {
+ return defined (shift->{_fields}->{Vpc}->{FieldValue});
+
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpnConnectionRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpnConnectionRequest.pm
new file mode 100644
index 0000000..95c5c0f
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpnConnectionRequest.pm
@@ -0,0 +1,140 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateVpnConnectionRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateVpnConnectionRequest
+ #
+ # Properties:
+ #
+ #
+ # Type: string
+ # CustomerGatewayId: string
+ # VpnGatewayId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ Type => { FieldValue => undef, FieldType => "string"},
+ CustomerGatewayId => { FieldValue => undef, FieldType => "string"},
+ VpnGatewayId => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getType {
+ return shift->{_fields}->{Type}->{FieldValue};
+ }
+
+
+ sub setType {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Type}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withType {
+ my ($self, $value) = @_;
+ $self->setType($value);
+ return $self;
+ }
+
+
+ sub isSetType {
+ return defined (shift->{_fields}->{Type}->{FieldValue});
+ }
+
+
+ sub getCustomerGatewayId {
+ return shift->{_fields}->{CustomerGatewayId}->{FieldValue};
+ }
+
+
+ sub setCustomerGatewayId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{CustomerGatewayId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withCustomerGatewayId {
+ my ($self, $value) = @_;
+ $self->setCustomerGatewayId($value);
+ return $self;
+ }
+
+
+ sub isSetCustomerGatewayId {
+ return defined (shift->{_fields}->{CustomerGatewayId}->{FieldValue});
+ }
+
+
+ sub getVpnGatewayId {
+ return shift->{_fields}->{VpnGatewayId}->{FieldValue};
+ }
+
+
+ sub setVpnGatewayId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VpnGatewayId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVpnGatewayId {
+ my ($self, $value) = @_;
+ $self->setVpnGatewayId($value);
+ return $self;
+ }
+
+
+ sub isSetVpnGatewayId {
+ return defined (shift->{_fields}->{VpnGatewayId}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpnConnectionResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpnConnectionResponse.pm
new file mode 100644
index 0000000..07ac2be
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpnConnectionResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateVpnConnectionResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateVpnConnectionResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # CreateVpnConnectionResult: Amazon::EC2::Model::CreateVpnConnectionResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ CreateVpnConnectionResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::CreateVpnConnectionResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::CreateVpnConnectionResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::CreateVpnConnectionResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getCreateVpnConnectionResult {
+ return shift->{_fields}->{CreateVpnConnectionResult}->{FieldValue};
+ }
+
+
+ sub setCreateVpnConnectionResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{CreateVpnConnectionResult}->{FieldValue} = $value;
+ }
+
+
+ sub withCreateVpnConnectionResult {
+ my ($self, $value) = @_;
+ $self->setCreateVpnConnectionResult($value);
+ return $self;
+ }
+
+
+ sub isSetCreateVpnConnectionResult {
+ return defined (shift->{_fields}->{CreateVpnConnectionResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpnConnectionResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpnConnectionResponse.xslt
new file mode 100644
index 0000000..4a6198e
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpnConnectionResponse.xslt
@@ -0,0 +1,42 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpnConnectionResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpnConnectionResult.pm
new file mode 100644
index 0000000..2a004a0
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpnConnectionResult.pm
@@ -0,0 +1,84 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateVpnConnectionResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateVpnConnectionResult
+ #
+ # Properties:
+ #
+ #
+ # VpnConnection: Amazon::EC2::Model::VpnConnection
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ VpnConnection => {FieldValue => undef, FieldType => "Amazon::EC2::Model::VpnConnection"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getVpnConnection {
+ return shift->{_fields}->{VpnConnection}->{FieldValue};
+ }
+
+
+ sub setVpnConnection {
+ my ($self, $value) = @_;
+ $self->{_fields}->{VpnConnection}->{FieldValue} = $value;
+ }
+
+
+ sub withVpnConnection {
+ my ($self, $value) = @_;
+ $self->setVpnConnection($value);
+ return $self;
+ }
+
+
+ sub isSetVpnConnection {
+ return defined (shift->{_fields}->{VpnConnection}->{FieldValue});
+
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpnGatewayRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpnGatewayRequest.pm
new file mode 100644
index 0000000..f4052c2
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpnGatewayRequest.pm
@@ -0,0 +1,113 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateVpnGatewayRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateVpnGatewayRequest
+ #
+ # Properties:
+ #
+ #
+ # Type: string
+ # AvailabilityZone: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ Type => { FieldValue => undef, FieldType => "string"},
+ AvailabilityZone => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getType {
+ return shift->{_fields}->{Type}->{FieldValue};
+ }
+
+
+ sub setType {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Type}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withType {
+ my ($self, $value) = @_;
+ $self->setType($value);
+ return $self;
+ }
+
+
+ sub isSetType {
+ return defined (shift->{_fields}->{Type}->{FieldValue});
+ }
+
+
+ sub getAvailabilityZone {
+ return shift->{_fields}->{AvailabilityZone}->{FieldValue};
+ }
+
+
+ sub setAvailabilityZone {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{AvailabilityZone}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withAvailabilityZone {
+ my ($self, $value) = @_;
+ $self->setAvailabilityZone($value);
+ return $self;
+ }
+
+
+ sub isSetAvailabilityZone {
+ return defined (shift->{_fields}->{AvailabilityZone}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpnGatewayResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpnGatewayResponse.pm
new file mode 100644
index 0000000..2fd8ef6
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpnGatewayResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateVpnGatewayResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateVpnGatewayResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # CreateVpnGatewayResult: Amazon::EC2::Model::CreateVpnGatewayResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ CreateVpnGatewayResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::CreateVpnGatewayResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::CreateVpnGatewayResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::CreateVpnGatewayResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getCreateVpnGatewayResult {
+ return shift->{_fields}->{CreateVpnGatewayResult}->{FieldValue};
+ }
+
+
+ sub setCreateVpnGatewayResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{CreateVpnGatewayResult}->{FieldValue} = $value;
+ }
+
+
+ sub withCreateVpnGatewayResult {
+ my ($self, $value) = @_;
+ $self->setCreateVpnGatewayResult($value);
+ return $self;
+ }
+
+
+ sub isSetCreateVpnGatewayResult {
+ return defined (shift->{_fields}->{CreateVpnGatewayResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpnGatewayResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpnGatewayResponse.xslt
new file mode 100644
index 0000000..32cee88
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpnGatewayResponse.xslt
@@ -0,0 +1,39 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpnGatewayResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpnGatewayResult.pm
new file mode 100644
index 0000000..244409e
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CreateVpnGatewayResult.pm
@@ -0,0 +1,84 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CreateVpnGatewayResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CreateVpnGatewayResult
+ #
+ # Properties:
+ #
+ #
+ # VpnGateway: Amazon::EC2::Model::VpnGateway
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ VpnGateway => {FieldValue => undef, FieldType => "Amazon::EC2::Model::VpnGateway"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getVpnGateway {
+ return shift->{_fields}->{VpnGateway}->{FieldValue};
+ }
+
+
+ sub setVpnGateway {
+ my ($self, $value) = @_;
+ $self->{_fields}->{VpnGateway}->{FieldValue} = $value;
+ }
+
+
+ sub withVpnGateway {
+ my ($self, $value) = @_;
+ $self->setVpnGateway($value);
+ return $self;
+ }
+
+
+ sub isSetVpnGateway {
+ return defined (shift->{_fields}->{VpnGateway}->{FieldValue});
+
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/CustomerGateway.pm b/src/main/resources/project/lib/Amazon/EC2/Model/CustomerGateway.pm
new file mode 100644
index 0000000..c127d4d
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/CustomerGateway.pm
@@ -0,0 +1,194 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::CustomerGateway;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::CustomerGateway
+ #
+ # Properties:
+ #
+ #
+ # CustomerGatewayId: string
+ # CustomerGatewayState: string
+ # Type: string
+ # IpAddress: string
+ # BgpAsn: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ CustomerGatewayId => { FieldValue => undef, FieldType => "string"},
+ CustomerGatewayState => { FieldValue => undef, FieldType => "string"},
+ Type => { FieldValue => undef, FieldType => "string"},
+ IpAddress => { FieldValue => undef, FieldType => "string"},
+ BgpAsn => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getCustomerGatewayId {
+ return shift->{_fields}->{CustomerGatewayId}->{FieldValue};
+ }
+
+
+ sub setCustomerGatewayId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{CustomerGatewayId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withCustomerGatewayId {
+ my ($self, $value) = @_;
+ $self->setCustomerGatewayId($value);
+ return $self;
+ }
+
+
+ sub isSetCustomerGatewayId {
+ return defined (shift->{_fields}->{CustomerGatewayId}->{FieldValue});
+ }
+
+
+ sub getCustomerGatewayState {
+ return shift->{_fields}->{CustomerGatewayState}->{FieldValue};
+ }
+
+
+ sub setCustomerGatewayState {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{CustomerGatewayState}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withCustomerGatewayState {
+ my ($self, $value) = @_;
+ $self->setCustomerGatewayState($value);
+ return $self;
+ }
+
+
+ sub isSetCustomerGatewayState {
+ return defined (shift->{_fields}->{CustomerGatewayState}->{FieldValue});
+ }
+
+
+ sub getType {
+ return shift->{_fields}->{Type}->{FieldValue};
+ }
+
+
+ sub setType {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Type}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withType {
+ my ($self, $value) = @_;
+ $self->setType($value);
+ return $self;
+ }
+
+
+ sub isSetType {
+ return defined (shift->{_fields}->{Type}->{FieldValue});
+ }
+
+
+ sub getIpAddress {
+ return shift->{_fields}->{IpAddress}->{FieldValue};
+ }
+
+
+ sub setIpAddress {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{IpAddress}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withIpAddress {
+ my ($self, $value) = @_;
+ $self->setIpAddress($value);
+ return $self;
+ }
+
+
+ sub isSetIpAddress {
+ return defined (shift->{_fields}->{IpAddress}->{FieldValue});
+ }
+
+
+ sub getBgpAsn {
+ return shift->{_fields}->{BgpAsn}->{FieldValue};
+ }
+
+
+ sub setBgpAsn {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{BgpAsn}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withBgpAsn {
+ my ($self, $value) = @_;
+ $self->setBgpAsn($value);
+ return $self;
+ }
+
+
+ sub isSetBgpAsn {
+ return defined (shift->{_fields}->{BgpAsn}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeactivateLicenseRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DeactivateLicenseRequest.pm
new file mode 100644
index 0000000..1abc584
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeactivateLicenseRequest.pm
@@ -0,0 +1,113 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DeactivateLicenseRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DeactivateLicenseRequest
+ #
+ # Properties:
+ #
+ #
+ # LicenseId: string
+ # Capacity: int
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ LicenseId => { FieldValue => undef, FieldType => "string"},
+ Capacity => { FieldValue => undef, FieldType => "int"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getLicenseId {
+ return shift->{_fields}->{LicenseId}->{FieldValue};
+ }
+
+
+ sub setLicenseId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{LicenseId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withLicenseId {
+ my ($self, $value) = @_;
+ $self->setLicenseId($value);
+ return $self;
+ }
+
+
+ sub isSetLicenseId {
+ return defined (shift->{_fields}->{LicenseId}->{FieldValue});
+ }
+
+
+ sub getCapacity {
+ return shift->{_fields}->{Capacity}->{FieldValue};
+ }
+
+
+ sub setCapacity {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Capacity}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withCapacity {
+ my ($self, $value) = @_;
+ $self->setCapacity($value);
+ return $self;
+ }
+
+
+ sub isSetCapacity {
+ return defined (shift->{_fields}->{Capacity}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeactivateLicenseResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DeactivateLicenseResponse.pm
new file mode 100644
index 0000000..88b3764
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeactivateLicenseResponse.pm
@@ -0,0 +1,112 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DeactivateLicenseResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DeactivateLicenseResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DeactivateLicenseResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DeactivateLicenseResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeactivateLicenseResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DeactivateLicenseResponse.xslt
new file mode 100644
index 0000000..8f62204
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeactivateLicenseResponse.xslt
@@ -0,0 +1,14 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeleteCustomerGatewayRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteCustomerGatewayRequest.pm
new file mode 100644
index 0000000..594077f
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteCustomerGatewayRequest.pm
@@ -0,0 +1,86 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DeleteCustomerGatewayRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DeleteCustomerGatewayRequest
+ #
+ # Properties:
+ #
+ #
+ # CustomerGatewayId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ CustomerGatewayId => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getCustomerGatewayId {
+ return shift->{_fields}->{CustomerGatewayId}->{FieldValue};
+ }
+
+
+ sub setCustomerGatewayId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{CustomerGatewayId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withCustomerGatewayId {
+ my ($self, $value) = @_;
+ $self->setCustomerGatewayId($value);
+ return $self;
+ }
+
+
+ sub isSetCustomerGatewayId {
+ return defined (shift->{_fields}->{CustomerGatewayId}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeleteCustomerGatewayResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteCustomerGatewayResponse.pm
new file mode 100644
index 0000000..bc8d64b
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteCustomerGatewayResponse.pm
@@ -0,0 +1,112 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DeleteCustomerGatewayResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DeleteCustomerGatewayResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DeleteCustomerGatewayResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DeleteCustomerGatewayResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeleteCustomerGatewayResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteCustomerGatewayResponse.xslt
new file mode 100644
index 0000000..7a76a88
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteCustomerGatewayResponse.xslt
@@ -0,0 +1,17 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeleteDhcpOptionsRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteDhcpOptionsRequest.pm
new file mode 100644
index 0000000..2146020
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteDhcpOptionsRequest.pm
@@ -0,0 +1,86 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DeleteDhcpOptionsRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DeleteDhcpOptionsRequest
+ #
+ # Properties:
+ #
+ #
+ # DhcpOptionsId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ DhcpOptionsId => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getDhcpOptionsId {
+ return shift->{_fields}->{DhcpOptionsId}->{FieldValue};
+ }
+
+
+ sub setDhcpOptionsId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{DhcpOptionsId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withDhcpOptionsId {
+ my ($self, $value) = @_;
+ $self->setDhcpOptionsId($value);
+ return $self;
+ }
+
+
+ sub isSetDhcpOptionsId {
+ return defined (shift->{_fields}->{DhcpOptionsId}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeleteDhcpOptionsResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteDhcpOptionsResponse.pm
new file mode 100644
index 0000000..93fd0f9
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteDhcpOptionsResponse.pm
@@ -0,0 +1,112 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DeleteDhcpOptionsResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DeleteDhcpOptionsResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DeleteDhcpOptionsResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DeleteDhcpOptionsResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeleteDhcpOptionsResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteDhcpOptionsResponse.xslt
new file mode 100644
index 0000000..4a0bef7
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteDhcpOptionsResponse.xslt
@@ -0,0 +1,17 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeleteKeyPairRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteKeyPairRequest.pm
new file mode 100644
index 0000000..2f2ed64
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteKeyPairRequest.pm
@@ -0,0 +1,86 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DeleteKeyPairRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DeleteKeyPairRequest
+ #
+ # Properties:
+ #
+ #
+ # KeyName: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ KeyName => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getKeyName {
+ return shift->{_fields}->{KeyName}->{FieldValue};
+ }
+
+
+ sub setKeyName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{KeyName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withKeyName {
+ my ($self, $value) = @_;
+ $self->setKeyName($value);
+ return $self;
+ }
+
+
+ sub isSetKeyName {
+ return defined (shift->{_fields}->{KeyName}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeleteKeyPairResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteKeyPairResponse.pm
new file mode 100644
index 0000000..7cc38b7
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteKeyPairResponse.pm
@@ -0,0 +1,112 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DeleteKeyPairResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DeleteKeyPairResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DeleteKeyPairResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DeleteKeyPairResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeleteKeyPairResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteKeyPairResponse.xslt
new file mode 100644
index 0000000..9d9736a
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteKeyPairResponse.xslt
@@ -0,0 +1,17 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeletePlacementGroupRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DeletePlacementGroupRequest.pm
new file mode 100644
index 0000000..0b3e457
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeletePlacementGroupRequest.pm
@@ -0,0 +1,86 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DeletePlacementGroupRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DeletePlacementGroupRequest
+ #
+ # Properties:
+ #
+ #
+ # GroupName: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ GroupName => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getGroupName {
+ return shift->{_fields}->{GroupName}->{FieldValue};
+ }
+
+
+ sub setGroupName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{GroupName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withGroupName {
+ my ($self, $value) = @_;
+ $self->setGroupName($value);
+ return $self;
+ }
+
+
+ sub isSetGroupName {
+ return defined (shift->{_fields}->{GroupName}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeletePlacementGroupResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DeletePlacementGroupResponse.pm
new file mode 100644
index 0000000..5962787
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeletePlacementGroupResponse.pm
@@ -0,0 +1,112 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DeletePlacementGroupResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DeletePlacementGroupResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DeletePlacementGroupResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DeletePlacementGroupResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeletePlacementGroupResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DeletePlacementGroupResponse.xslt
new file mode 100644
index 0000000..880e68e
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeletePlacementGroupResponse.xslt
@@ -0,0 +1,15 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSecurityGroupRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSecurityGroupRequest.pm
new file mode 100644
index 0000000..1c22126
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSecurityGroupRequest.pm
@@ -0,0 +1,86 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DeleteSecurityGroupRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DeleteSecurityGroupRequest
+ #
+ # Properties:
+ #
+ #
+ # GroupName: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ GroupName => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getGroupName {
+ return shift->{_fields}->{GroupName}->{FieldValue};
+ }
+
+
+ sub setGroupName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{GroupName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withGroupName {
+ my ($self, $value) = @_;
+ $self->setGroupName($value);
+ return $self;
+ }
+
+
+ sub isSetGroupName {
+ return defined (shift->{_fields}->{GroupName}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSecurityGroupResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSecurityGroupResponse.pm
new file mode 100644
index 0000000..8b0816e
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSecurityGroupResponse.pm
@@ -0,0 +1,112 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DeleteSecurityGroupResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DeleteSecurityGroupResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DeleteSecurityGroupResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DeleteSecurityGroupResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSecurityGroupResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSecurityGroupResponse.xslt
new file mode 100644
index 0000000..82fd8e7
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSecurityGroupResponse.xslt
@@ -0,0 +1,17 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSnapshotRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSnapshotRequest.pm
new file mode 100644
index 0000000..87bb219
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSnapshotRequest.pm
@@ -0,0 +1,86 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DeleteSnapshotRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DeleteSnapshotRequest
+ #
+ # Properties:
+ #
+ #
+ # SnapshotId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ SnapshotId => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getSnapshotId {
+ return shift->{_fields}->{SnapshotId}->{FieldValue};
+ }
+
+
+ sub setSnapshotId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{SnapshotId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withSnapshotId {
+ my ($self, $value) = @_;
+ $self->setSnapshotId($value);
+ return $self;
+ }
+
+
+ sub isSetSnapshotId {
+ return defined (shift->{_fields}->{SnapshotId}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSnapshotResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSnapshotResponse.pm
new file mode 100644
index 0000000..f24516a
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSnapshotResponse.pm
@@ -0,0 +1,112 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DeleteSnapshotResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DeleteSnapshotResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DeleteSnapshotResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DeleteSnapshotResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSnapshotResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSnapshotResponse.xslt
new file mode 100644
index 0000000..210e5f9
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSnapshotResponse.xslt
@@ -0,0 +1,17 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSpotDatafeedSubscriptionRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSpotDatafeedSubscriptionRequest.pm
new file mode 100644
index 0000000..5ceebb8
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSpotDatafeedSubscriptionRequest.pm
@@ -0,0 +1,59 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DeleteSpotDatafeedSubscriptionRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DeleteSpotDatafeedSubscriptionRequest
+ #
+ # Properties:
+ #
+ #
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSpotDatafeedSubscriptionResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSpotDatafeedSubscriptionResponse.pm
new file mode 100644
index 0000000..c2a17c2
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSpotDatafeedSubscriptionResponse.pm
@@ -0,0 +1,112 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DeleteSpotDatafeedSubscriptionResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DeleteSpotDatafeedSubscriptionResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DeleteSpotDatafeedSubscriptionResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DeleteSpotDatafeedSubscriptionResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSpotDatafeedSubscriptionResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSpotDatafeedSubscriptionResponse.xslt
new file mode 100644
index 0000000..8d3eca4
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSpotDatafeedSubscriptionResponse.xslt
@@ -0,0 +1,17 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSubnetRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSubnetRequest.pm
new file mode 100644
index 0000000..16f184d
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSubnetRequest.pm
@@ -0,0 +1,86 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DeleteSubnetRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DeleteSubnetRequest
+ #
+ # Properties:
+ #
+ #
+ # SubnetId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ SubnetId => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getSubnetId {
+ return shift->{_fields}->{SubnetId}->{FieldValue};
+ }
+
+
+ sub setSubnetId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{SubnetId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withSubnetId {
+ my ($self, $value) = @_;
+ $self->setSubnetId($value);
+ return $self;
+ }
+
+
+ sub isSetSubnetId {
+ return defined (shift->{_fields}->{SubnetId}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSubnetResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSubnetResponse.pm
new file mode 100644
index 0000000..20163e2
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSubnetResponse.pm
@@ -0,0 +1,112 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DeleteSubnetResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DeleteSubnetResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DeleteSubnetResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DeleteSubnetResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSubnetResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSubnetResponse.xslt
new file mode 100644
index 0000000..8c69f9c
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteSubnetResponse.xslt
@@ -0,0 +1,17 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVolumeRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVolumeRequest.pm
new file mode 100644
index 0000000..6ef44c8
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVolumeRequest.pm
@@ -0,0 +1,86 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DeleteVolumeRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DeleteVolumeRequest
+ #
+ # Properties:
+ #
+ #
+ # VolumeId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ VolumeId => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getVolumeId {
+ return shift->{_fields}->{VolumeId}->{FieldValue};
+ }
+
+
+ sub setVolumeId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VolumeId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVolumeId {
+ my ($self, $value) = @_;
+ $self->setVolumeId($value);
+ return $self;
+ }
+
+
+ sub isSetVolumeId {
+ return defined (shift->{_fields}->{VolumeId}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVolumeResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVolumeResponse.pm
new file mode 100644
index 0000000..bb435c4
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVolumeResponse.pm
@@ -0,0 +1,112 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DeleteVolumeResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DeleteVolumeResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DeleteVolumeResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DeleteVolumeResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVolumeResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVolumeResponse.xslt
new file mode 100644
index 0000000..88eeaa3
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVolumeResponse.xslt
@@ -0,0 +1,17 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVpcRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVpcRequest.pm
new file mode 100644
index 0000000..7e1507d
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVpcRequest.pm
@@ -0,0 +1,86 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DeleteVpcRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DeleteVpcRequest
+ #
+ # Properties:
+ #
+ #
+ # VpcId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ VpcId => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getVpcId {
+ return shift->{_fields}->{VpcId}->{FieldValue};
+ }
+
+
+ sub setVpcId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VpcId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVpcId {
+ my ($self, $value) = @_;
+ $self->setVpcId($value);
+ return $self;
+ }
+
+
+ sub isSetVpcId {
+ return defined (shift->{_fields}->{VpcId}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVpcResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVpcResponse.pm
new file mode 100644
index 0000000..08cd352
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVpcResponse.pm
@@ -0,0 +1,112 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DeleteVpcResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DeleteVpcResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DeleteVpcResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DeleteVpcResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVpcResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVpcResponse.xslt
new file mode 100644
index 0000000..feda166
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVpcResponse.xslt
@@ -0,0 +1,17 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVpnConnectionRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVpnConnectionRequest.pm
new file mode 100644
index 0000000..924c0a2
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVpnConnectionRequest.pm
@@ -0,0 +1,86 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DeleteVpnConnectionRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DeleteVpnConnectionRequest
+ #
+ # Properties:
+ #
+ #
+ # VpnConnectionId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ VpnConnectionId => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getVpnConnectionId {
+ return shift->{_fields}->{VpnConnectionId}->{FieldValue};
+ }
+
+
+ sub setVpnConnectionId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VpnConnectionId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVpnConnectionId {
+ my ($self, $value) = @_;
+ $self->setVpnConnectionId($value);
+ return $self;
+ }
+
+
+ sub isSetVpnConnectionId {
+ return defined (shift->{_fields}->{VpnConnectionId}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVpnConnectionResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVpnConnectionResponse.pm
new file mode 100644
index 0000000..055d9ca
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVpnConnectionResponse.pm
@@ -0,0 +1,112 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DeleteVpnConnectionResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DeleteVpnConnectionResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DeleteVpnConnectionResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DeleteVpnConnectionResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVpnConnectionResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVpnConnectionResponse.xslt
new file mode 100644
index 0000000..1a246c0
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVpnConnectionResponse.xslt
@@ -0,0 +1,17 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVpnGatewayRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVpnGatewayRequest.pm
new file mode 100644
index 0000000..5e87c84
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVpnGatewayRequest.pm
@@ -0,0 +1,86 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DeleteVpnGatewayRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DeleteVpnGatewayRequest
+ #
+ # Properties:
+ #
+ #
+ # VpnGatewayId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ VpnGatewayId => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getVpnGatewayId {
+ return shift->{_fields}->{VpnGatewayId}->{FieldValue};
+ }
+
+
+ sub setVpnGatewayId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VpnGatewayId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVpnGatewayId {
+ my ($self, $value) = @_;
+ $self->setVpnGatewayId($value);
+ return $self;
+ }
+
+
+ sub isSetVpnGatewayId {
+ return defined (shift->{_fields}->{VpnGatewayId}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVpnGatewayResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVpnGatewayResponse.pm
new file mode 100644
index 0000000..37f198b
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVpnGatewayResponse.pm
@@ -0,0 +1,112 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DeleteVpnGatewayResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DeleteVpnGatewayResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DeleteVpnGatewayResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DeleteVpnGatewayResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVpnGatewayResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVpnGatewayResponse.xslt
new file mode 100644
index 0000000..4468955
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeleteVpnGatewayResponse.xslt
@@ -0,0 +1,17 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeregisterImageRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DeregisterImageRequest.pm
new file mode 100644
index 0000000..0c26eac
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeregisterImageRequest.pm
@@ -0,0 +1,86 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DeregisterImageRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DeregisterImageRequest
+ #
+ # Properties:
+ #
+ #
+ # ImageId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ImageId => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getImageId {
+ return shift->{_fields}->{ImageId}->{FieldValue};
+ }
+
+
+ sub setImageId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ImageId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withImageId {
+ my ($self, $value) = @_;
+ $self->setImageId($value);
+ return $self;
+ }
+
+
+ sub isSetImageId {
+ return defined (shift->{_fields}->{ImageId}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeregisterImageResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DeregisterImageResponse.pm
new file mode 100644
index 0000000..05f2928
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeregisterImageResponse.pm
@@ -0,0 +1,112 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DeregisterImageResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DeregisterImageResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DeregisterImageResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DeregisterImageResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DeregisterImageResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DeregisterImageResponse.xslt
new file mode 100644
index 0000000..b203ffe
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DeregisterImageResponse.xslt
@@ -0,0 +1,17 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeAddressesRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeAddressesRequest.pm
new file mode 100644
index 0000000..633df99
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeAddressesRequest.pm
@@ -0,0 +1,88 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeAddressesRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeAddressesRequest
+ #
+ # Properties:
+ #
+ #
+ # PublicIp: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ PublicIp => {FieldValue => [], FieldType => ["string"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getPublicIp {
+ return shift->{_fields}->{PublicIp}->{FieldValue};
+ }
+
+
+ sub setPublicIp {
+ my ($self, $value) = @_;
+ $self->{_fields}->{PublicIp}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withPublicIp {
+ my $self = shift;
+ my $list = $self->{_fields}->{PublicIp}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetPublicIp {
+ return scalar (@{shift->{_fields}->{PublicIp}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeAddressesResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeAddressesResponse.pm
new file mode 100644
index 0000000..3ed2650
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeAddressesResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeAddressesResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeAddressesResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # DescribeAddressesResult: Amazon::EC2::Model::DescribeAddressesResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ DescribeAddressesResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::DescribeAddressesResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DescribeAddressesResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DescribeAddressesResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getDescribeAddressesResult {
+ return shift->{_fields}->{DescribeAddressesResult}->{FieldValue};
+ }
+
+
+ sub setDescribeAddressesResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{DescribeAddressesResult}->{FieldValue} = $value;
+ }
+
+
+ sub withDescribeAddressesResult {
+ my ($self, $value) = @_;
+ $self->setDescribeAddressesResult($value);
+ return $self;
+ }
+
+
+ sub isSetDescribeAddressesResult {
+ return defined (shift->{_fields}->{DescribeAddressesResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeAddressesResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeAddressesResponse.xslt
new file mode 100644
index 0000000..a1af808
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeAddressesResponse.xslt
@@ -0,0 +1,30 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeAddressesResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeAddressesResult.pm
new file mode 100644
index 0000000..0473844
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeAddressesResult.pm
@@ -0,0 +1,89 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeAddressesResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeAddressesResult
+ #
+ # Properties:
+ #
+ #
+ # Address: Amazon::EC2::Model::Address
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ Address => {FieldValue => [], FieldType => ["Amazon::EC2::Model::Address"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getAddress {
+ return shift->{_fields}->{Address}->{FieldValue};
+ }
+
+ sub setAddress {
+ my $self = shift;
+ foreach my $address (@_) {
+ if (not $self->_isArrayRef($address)) {
+ $address = [$address];
+ }
+ $self->{_fields}->{Address}->{FieldValue} = $address;
+ }
+ }
+
+
+ sub withAddress {
+ my ($self, $addressArgs) = @_;
+ foreach my $address (@$addressArgs) {
+ $self->{_fields}->{Address}->{FieldValue} = $address;
+ }
+ return $self;
+ }
+
+
+ sub isSetAddress {
+ return scalar (@{shift->{_fields}->{Address}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeAvailabilityZonesRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeAvailabilityZonesRequest.pm
new file mode 100644
index 0000000..0b32ed3
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeAvailabilityZonesRequest.pm
@@ -0,0 +1,88 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeAvailabilityZonesRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeAvailabilityZonesRequest
+ #
+ # Properties:
+ #
+ #
+ # ZoneName: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ZoneName => {FieldValue => [], FieldType => ["string"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getZoneName {
+ return shift->{_fields}->{ZoneName}->{FieldValue};
+ }
+
+
+ sub setZoneName {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ZoneName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withZoneName {
+ my $self = shift;
+ my $list = $self->{_fields}->{ZoneName}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetZoneName {
+ return scalar (@{shift->{_fields}->{ZoneName}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeAvailabilityZonesResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeAvailabilityZonesResponse.pm
new file mode 100644
index 0000000..95d0245
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeAvailabilityZonesResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeAvailabilityZonesResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeAvailabilityZonesResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # DescribeAvailabilityZonesResult: Amazon::EC2::Model::DescribeAvailabilityZonesResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ DescribeAvailabilityZonesResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::DescribeAvailabilityZonesResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DescribeAvailabilityZonesResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DescribeAvailabilityZonesResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getDescribeAvailabilityZonesResult {
+ return shift->{_fields}->{DescribeAvailabilityZonesResult}->{FieldValue};
+ }
+
+
+ sub setDescribeAvailabilityZonesResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{DescribeAvailabilityZonesResult}->{FieldValue} = $value;
+ }
+
+
+ sub withDescribeAvailabilityZonesResult {
+ my ($self, $value) = @_;
+ $self->setDescribeAvailabilityZonesResult($value);
+ return $self;
+ }
+
+
+ sub isSetDescribeAvailabilityZonesResult {
+ return defined (shift->{_fields}->{DescribeAvailabilityZonesResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeAvailabilityZonesResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeAvailabilityZonesResponse.xslt
new file mode 100644
index 0000000..c8b76c0
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeAvailabilityZonesResponse.xslt
@@ -0,0 +1,43 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeAvailabilityZonesResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeAvailabilityZonesResult.pm
new file mode 100644
index 0000000..677317f
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeAvailabilityZonesResult.pm
@@ -0,0 +1,89 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeAvailabilityZonesResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeAvailabilityZonesResult
+ #
+ # Properties:
+ #
+ #
+ # AvailabilityZone: Amazon::EC2::Model::AvailabilityZone
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ AvailabilityZone => {FieldValue => [], FieldType => ["Amazon::EC2::Model::AvailabilityZone"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getAvailabilityZone {
+ return shift->{_fields}->{AvailabilityZone}->{FieldValue};
+ }
+
+ sub setAvailabilityZone {
+ my $self = shift;
+ foreach my $availabilityZone (@_) {
+ if (not $self->_isArrayRef($availabilityZone)) {
+ $availabilityZone = [$availabilityZone];
+ }
+ $self->{_fields}->{AvailabilityZone}->{FieldValue} = $availabilityZone;
+ }
+ }
+
+
+ sub withAvailabilityZone {
+ my ($self, $availabilityZoneArgs) = @_;
+ foreach my $availabilityZone (@$availabilityZoneArgs) {
+ $self->{_fields}->{AvailabilityZone}->{FieldValue} = $availabilityZone;
+ }
+ return $self;
+ }
+
+
+ sub isSetAvailabilityZone {
+ return scalar (@{shift->{_fields}->{AvailabilityZone}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeBundleTasksRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeBundleTasksRequest.pm
new file mode 100644
index 0000000..3e1ee27
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeBundleTasksRequest.pm
@@ -0,0 +1,88 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeBundleTasksRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeBundleTasksRequest
+ #
+ # Properties:
+ #
+ #
+ # BundleId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ BundleId => {FieldValue => [], FieldType => ["string"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getBundleId {
+ return shift->{_fields}->{BundleId}->{FieldValue};
+ }
+
+
+ sub setBundleId {
+ my ($self, $value) = @_;
+ $self->{_fields}->{BundleId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withBundleId {
+ my $self = shift;
+ my $list = $self->{_fields}->{BundleId}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetBundleId {
+ return scalar (@{shift->{_fields}->{BundleId}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeBundleTasksResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeBundleTasksResponse.pm
new file mode 100644
index 0000000..da79f1b
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeBundleTasksResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeBundleTasksResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeBundleTasksResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # DescribeBundleTasksResult: Amazon::EC2::Model::DescribeBundleTasksResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ DescribeBundleTasksResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::DescribeBundleTasksResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DescribeBundleTasksResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DescribeBundleTasksResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getDescribeBundleTasksResult {
+ return shift->{_fields}->{DescribeBundleTasksResult}->{FieldValue};
+ }
+
+
+ sub setDescribeBundleTasksResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{DescribeBundleTasksResult}->{FieldValue} = $value;
+ }
+
+
+ sub withDescribeBundleTasksResult {
+ my ($self, $value) = @_;
+ $self->setDescribeBundleTasksResult($value);
+ return $self;
+ }
+
+
+ sub isSetDescribeBundleTasksResult {
+ return defined (shift->{_fields}->{DescribeBundleTasksResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeBundleTasksResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeBundleTasksResponse.xslt
new file mode 100644
index 0000000..602a781
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeBundleTasksResponse.xslt
@@ -0,0 +1,65 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeBundleTasksResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeBundleTasksResult.pm
new file mode 100644
index 0000000..c400798
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeBundleTasksResult.pm
@@ -0,0 +1,89 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeBundleTasksResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeBundleTasksResult
+ #
+ # Properties:
+ #
+ #
+ # BundleTask: Amazon::EC2::Model::BundleTask
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ BundleTask => {FieldValue => [], FieldType => ["Amazon::EC2::Model::BundleTask"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getBundleTask {
+ return shift->{_fields}->{BundleTask}->{FieldValue};
+ }
+
+ sub setBundleTask {
+ my $self = shift;
+ foreach my $bundleTask (@_) {
+ if (not $self->_isArrayRef($bundleTask)) {
+ $bundleTask = [$bundleTask];
+ }
+ $self->{_fields}->{BundleTask}->{FieldValue} = $bundleTask;
+ }
+ }
+
+
+ sub withBundleTask {
+ my ($self, $bundleTaskArgs) = @_;
+ foreach my $bundleTask (@$bundleTaskArgs) {
+ $self->{_fields}->{BundleTask}->{FieldValue} = $bundleTask;
+ }
+ return $self;
+ }
+
+
+ sub isSetBundleTask {
+ return scalar (@{shift->{_fields}->{BundleTask}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeCustomerGatewaysRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeCustomerGatewaysRequest.pm
new file mode 100644
index 0000000..4f631f4
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeCustomerGatewaysRequest.pm
@@ -0,0 +1,118 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeCustomerGatewaysRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeCustomerGatewaysRequest
+ #
+ # Properties:
+ #
+ #
+ # CustomerGatewayId: string
+ # Filter: Amazon::EC2::Model::Filter
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ CustomerGatewayId => {FieldValue => [], FieldType => ["string"]},
+ Filter => {FieldValue => [], FieldType => ["Amazon::EC2::Model::Filter"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getCustomerGatewayId {
+ return shift->{_fields}->{CustomerGatewayId}->{FieldValue};
+ }
+
+
+ sub setCustomerGatewayId {
+ my ($self, $value) = @_;
+ $self->{_fields}->{CustomerGatewayId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withCustomerGatewayId {
+ my $self = shift;
+ my $list = $self->{_fields}->{CustomerGatewayId}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetCustomerGatewayId {
+ return scalar (@{shift->{_fields}->{CustomerGatewayId}->{FieldValue}}) > 0;
+ }
+
+ sub getFilter {
+ return shift->{_fields}->{Filter}->{FieldValue};
+ }
+
+ sub setFilter {
+ my $self = shift;
+ foreach my $filter (@_) {
+ if (not $self->_isArrayRef($filter)) {
+ $filter = [$filter];
+ }
+ $self->{_fields}->{Filter}->{FieldValue} = $filter;
+ }
+ }
+
+
+ sub withFilter {
+ my ($self, $filterArgs) = @_;
+ foreach my $filter (@$filterArgs) {
+ $self->{_fields}->{Filter}->{FieldValue} = $filter;
+ }
+ return $self;
+ }
+
+
+ sub isSetFilter {
+ return scalar (@{shift->{_fields}->{Filter}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeCustomerGatewaysResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeCustomerGatewaysResponse.pm
new file mode 100644
index 0000000..0036b24
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeCustomerGatewaysResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeCustomerGatewaysResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeCustomerGatewaysResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # DescribeCustomerGatewaysResult: Amazon::EC2::Model::DescribeCustomerGatewaysResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ DescribeCustomerGatewaysResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::DescribeCustomerGatewaysResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DescribeCustomerGatewaysResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DescribeCustomerGatewaysResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getDescribeCustomerGatewaysResult {
+ return shift->{_fields}->{DescribeCustomerGatewaysResult}->{FieldValue};
+ }
+
+
+ sub setDescribeCustomerGatewaysResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{DescribeCustomerGatewaysResult}->{FieldValue} = $value;
+ }
+
+
+ sub withDescribeCustomerGatewaysResult {
+ my ($self, $value) = @_;
+ $self->setDescribeCustomerGatewaysResult($value);
+ return $self;
+ }
+
+
+ sub isSetDescribeCustomerGatewaysResult {
+ return defined (shift->{_fields}->{DescribeCustomerGatewaysResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeCustomerGatewaysResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeCustomerGatewaysResponse.xslt
new file mode 100644
index 0000000..6a80b50
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeCustomerGatewaysResponse.xslt
@@ -0,0 +1,39 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeCustomerGatewaysResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeCustomerGatewaysResult.pm
new file mode 100644
index 0000000..337032d
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeCustomerGatewaysResult.pm
@@ -0,0 +1,89 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeCustomerGatewaysResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeCustomerGatewaysResult
+ #
+ # Properties:
+ #
+ #
+ # CustomerGateway: Amazon::EC2::Model::CustomerGateway
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ CustomerGateway => {FieldValue => [], FieldType => ["Amazon::EC2::Model::CustomerGateway"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getCustomerGateway {
+ return shift->{_fields}->{CustomerGateway}->{FieldValue};
+ }
+
+ sub setCustomerGateway {
+ my $self = shift;
+ foreach my $customerGateway (@_) {
+ if (not $self->_isArrayRef($customerGateway)) {
+ $customerGateway = [$customerGateway];
+ }
+ $self->{_fields}->{CustomerGateway}->{FieldValue} = $customerGateway;
+ }
+ }
+
+
+ sub withCustomerGateway {
+ my ($self, $customerGatewayArgs) = @_;
+ foreach my $customerGateway (@$customerGatewayArgs) {
+ $self->{_fields}->{CustomerGateway}->{FieldValue} = $customerGateway;
+ }
+ return $self;
+ }
+
+
+ sub isSetCustomerGateway {
+ return scalar (@{shift->{_fields}->{CustomerGateway}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeDhcpOptionsRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeDhcpOptionsRequest.pm
new file mode 100644
index 0000000..968a6d9
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeDhcpOptionsRequest.pm
@@ -0,0 +1,88 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeDhcpOptionsRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeDhcpOptionsRequest
+ #
+ # Properties:
+ #
+ #
+ # DhcpOptionsId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ DhcpOptionsId => {FieldValue => [], FieldType => ["string"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getDhcpOptionsId {
+ return shift->{_fields}->{DhcpOptionsId}->{FieldValue};
+ }
+
+
+ sub setDhcpOptionsId {
+ my ($self, $value) = @_;
+ $self->{_fields}->{DhcpOptionsId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withDhcpOptionsId {
+ my $self = shift;
+ my $list = $self->{_fields}->{DhcpOptionsId}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetDhcpOptionsId {
+ return scalar (@{shift->{_fields}->{DhcpOptionsId}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeDhcpOptionsResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeDhcpOptionsResponse.pm
new file mode 100644
index 0000000..7523e41
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeDhcpOptionsResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeDhcpOptionsResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeDhcpOptionsResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # DescribeDhcpOptionsResult: Amazon::EC2::Model::DescribeDhcpOptionsResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ DescribeDhcpOptionsResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::DescribeDhcpOptionsResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DescribeDhcpOptionsResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DescribeDhcpOptionsResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getDescribeDhcpOptionsResult {
+ return shift->{_fields}->{DescribeDhcpOptionsResult}->{FieldValue};
+ }
+
+
+ sub setDescribeDhcpOptionsResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{DescribeDhcpOptionsResult}->{FieldValue} = $value;
+ }
+
+
+ sub withDescribeDhcpOptionsResult {
+ my ($self, $value) = @_;
+ $self->setDescribeDhcpOptionsResult($value);
+ return $self;
+ }
+
+
+ sub isSetDescribeDhcpOptionsResult {
+ return defined (shift->{_fields}->{DescribeDhcpOptionsResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeDhcpOptionsResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeDhcpOptionsResponse.xslt
new file mode 100644
index 0000000..f262852
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeDhcpOptionsResponse.xslt
@@ -0,0 +1,54 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeDhcpOptionsResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeDhcpOptionsResult.pm
new file mode 100644
index 0000000..ebac310
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeDhcpOptionsResult.pm
@@ -0,0 +1,89 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeDhcpOptionsResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeDhcpOptionsResult
+ #
+ # Properties:
+ #
+ #
+ # DhcpOptions: Amazon::EC2::Model::DhcpOptions
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ DhcpOptions => {FieldValue => [], FieldType => ["Amazon::EC2::Model::DhcpOptions"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getDhcpOptions {
+ return shift->{_fields}->{DhcpOptions}->{FieldValue};
+ }
+
+ sub setDhcpOptions {
+ my $self = shift;
+ foreach my $dhcpOptions (@_) {
+ if (not $self->_isArrayRef($dhcpOptions)) {
+ $dhcpOptions = [$dhcpOptions];
+ }
+ $self->{_fields}->{DhcpOptions}->{FieldValue} = $dhcpOptions;
+ }
+ }
+
+
+ sub withDhcpOptions {
+ my ($self, $dhcpOptionsArgs) = @_;
+ foreach my $dhcpOptions (@$dhcpOptionsArgs) {
+ $self->{_fields}->{DhcpOptions}->{FieldValue} = $dhcpOptions;
+ }
+ return $self;
+ }
+
+
+ sub isSetDhcpOptions {
+ return scalar (@{shift->{_fields}->{DhcpOptions}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeImageAttributeRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeImageAttributeRequest.pm
new file mode 100644
index 0000000..3519359
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeImageAttributeRequest.pm
@@ -0,0 +1,113 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeImageAttributeRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeImageAttributeRequest
+ #
+ # Properties:
+ #
+ #
+ # ImageId: string
+ # Attribute: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ImageId => { FieldValue => undef, FieldType => "string"},
+ Attribute => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getImageId {
+ return shift->{_fields}->{ImageId}->{FieldValue};
+ }
+
+
+ sub setImageId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ImageId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withImageId {
+ my ($self, $value) = @_;
+ $self->setImageId($value);
+ return $self;
+ }
+
+
+ sub isSetImageId {
+ return defined (shift->{_fields}->{ImageId}->{FieldValue});
+ }
+
+
+ sub getAttribute {
+ return shift->{_fields}->{Attribute}->{FieldValue};
+ }
+
+
+ sub setAttribute {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Attribute}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withAttribute {
+ my ($self, $value) = @_;
+ $self->setAttribute($value);
+ return $self;
+ }
+
+
+ sub isSetAttribute {
+ return defined (shift->{_fields}->{Attribute}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeImageAttributeResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeImageAttributeResponse.pm
new file mode 100644
index 0000000..83ea3fb
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeImageAttributeResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeImageAttributeResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeImageAttributeResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # DescribeImageAttributeResult: Amazon::EC2::Model::DescribeImageAttributeResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ DescribeImageAttributeResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::DescribeImageAttributeResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DescribeImageAttributeResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DescribeImageAttributeResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getDescribeImageAttributeResult {
+ return shift->{_fields}->{DescribeImageAttributeResult}->{FieldValue};
+ }
+
+
+ sub setDescribeImageAttributeResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{DescribeImageAttributeResult}->{FieldValue} = $value;
+ }
+
+
+ sub withDescribeImageAttributeResult {
+ my ($self, $value) = @_;
+ $self->setDescribeImageAttributeResult($value);
+ return $self;
+ }
+
+
+ sub isSetDescribeImageAttributeResult {
+ return defined (shift->{_fields}->{DescribeImageAttributeResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeImageAttributeResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeImageAttributeResponse.xslt
new file mode 100644
index 0000000..9ad391e
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeImageAttributeResponse.xslt
@@ -0,0 +1,101 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ false
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeImageAttributeResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeImageAttributeResult.pm
new file mode 100644
index 0000000..6954333
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeImageAttributeResult.pm
@@ -0,0 +1,84 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeImageAttributeResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeImageAttributeResult
+ #
+ # Properties:
+ #
+ #
+ # ImageAttribute: Amazon::EC2::Model::ImageAttribute
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ImageAttribute => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ImageAttribute"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getImageAttribute {
+ return shift->{_fields}->{ImageAttribute}->{FieldValue};
+ }
+
+
+ sub setImageAttribute {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ImageAttribute}->{FieldValue} = $value;
+ }
+
+
+ sub withImageAttribute {
+ my ($self, $value) = @_;
+ $self->setImageAttribute($value);
+ return $self;
+ }
+
+
+ sub isSetImageAttribute {
+ return defined (shift->{_fields}->{ImageAttribute}->{FieldValue});
+
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeImagesRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeImagesRequest.pm
new file mode 100644
index 0000000..014e913
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeImagesRequest.pm
@@ -0,0 +1,146 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeImagesRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeImagesRequest
+ #
+ # Properties:
+ #
+ #
+ # ImageId: string
+ # Owner: string
+ # ExecutableBy: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ImageId => {FieldValue => [], FieldType => ["string"]},
+ Owner => {FieldValue => [], FieldType => ["string"]},
+ ExecutableBy => {FieldValue => [], FieldType => ["string"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getImageId {
+ return shift->{_fields}->{ImageId}->{FieldValue};
+ }
+
+
+ sub setImageId {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ImageId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withImageId {
+ my $self = shift;
+ my $list = $self->{_fields}->{ImageId}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetImageId {
+ return scalar (@{shift->{_fields}->{ImageId}->{FieldValue}}) > 0;
+ }
+
+ sub getOwner {
+ return shift->{_fields}->{Owner}->{FieldValue};
+ }
+
+
+ sub setOwner {
+ my ($self, $value) = @_;
+ $self->{_fields}->{Owner}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withOwner {
+ my $self = shift;
+ my $list = $self->{_fields}->{Owner}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetOwner {
+ return scalar (@{shift->{_fields}->{Owner}->{FieldValue}}) > 0;
+ }
+
+ sub getExecutableBy {
+ return shift->{_fields}->{ExecutableBy}->{FieldValue};
+ }
+
+
+ sub setExecutableBy {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ExecutableBy}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withExecutableBy {
+ my $self = shift;
+ my $list = $self->{_fields}->{ExecutableBy}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetExecutableBy {
+ return scalar (@{shift->{_fields}->{ExecutableBy}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeImagesResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeImagesResponse.pm
new file mode 100644
index 0000000..205c929
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeImagesResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeImagesResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeImagesResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # DescribeImagesResult: Amazon::EC2::Model::DescribeImagesResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ DescribeImagesResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::DescribeImagesResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DescribeImagesResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DescribeImagesResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getDescribeImagesResult {
+ return shift->{_fields}->{DescribeImagesResult}->{FieldValue};
+ }
+
+
+ sub setDescribeImagesResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{DescribeImagesResult}->{FieldValue} = $value;
+ }
+
+
+ sub withDescribeImagesResult {
+ my ($self, $value) = @_;
+ $self->setDescribeImagesResult($value);
+ return $self;
+ }
+
+
+ sub isSetDescribeImagesResult {
+ return defined (shift->{_fields}->{DescribeImagesResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeImagesResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeImagesResponse.xslt
new file mode 100644
index 0000000..838dfd3
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeImagesResponse.xslt
@@ -0,0 +1,136 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ Public
+
+
+ Private
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ false
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeImagesResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeImagesResult.pm
new file mode 100644
index 0000000..4fe8430
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeImagesResult.pm
@@ -0,0 +1,89 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeImagesResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeImagesResult
+ #
+ # Properties:
+ #
+ #
+ # Image: Amazon::EC2::Model::Image
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ Image => {FieldValue => [], FieldType => ["Amazon::EC2::Model::Image"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getImage {
+ return shift->{_fields}->{Image}->{FieldValue};
+ }
+
+ sub setImage {
+ my $self = shift;
+ foreach my $image (@_) {
+ if (not $self->_isArrayRef($image)) {
+ $image = [$image];
+ }
+ $self->{_fields}->{Image}->{FieldValue} = $image;
+ }
+ }
+
+
+ sub withImage {
+ my ($self, $imageArgs) = @_;
+ foreach my $image (@$imageArgs) {
+ $self->{_fields}->{Image}->{FieldValue} = $image;
+ }
+ return $self;
+ }
+
+
+ sub isSetImage {
+ return scalar (@{shift->{_fields}->{Image}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeInstanceAttributeRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeInstanceAttributeRequest.pm
new file mode 100644
index 0000000..0d2afaf
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeInstanceAttributeRequest.pm
@@ -0,0 +1,113 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeInstanceAttributeRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeInstanceAttributeRequest
+ #
+ # Properties:
+ #
+ #
+ # InstanceId: string
+ # Attribute: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ InstanceId => { FieldValue => undef, FieldType => "string"},
+ Attribute => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getInstanceId {
+ return shift->{_fields}->{InstanceId}->{FieldValue};
+ }
+
+
+ sub setInstanceId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceId {
+ my ($self, $value) = @_;
+ $self->setInstanceId($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceId {
+ return defined (shift->{_fields}->{InstanceId}->{FieldValue});
+ }
+
+
+ sub getAttribute {
+ return shift->{_fields}->{Attribute}->{FieldValue};
+ }
+
+
+ sub setAttribute {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Attribute}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withAttribute {
+ my ($self, $value) = @_;
+ $self->setAttribute($value);
+ return $self;
+ }
+
+
+ sub isSetAttribute {
+ return defined (shift->{_fields}->{Attribute}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeInstanceAttributeResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeInstanceAttributeResponse.pm
new file mode 100644
index 0000000..fd3c8ae
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeInstanceAttributeResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeInstanceAttributeResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeInstanceAttributeResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # DescribeInstanceAttributeResult: Amazon::EC2::Model::DescribeInstanceAttributeResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ DescribeInstanceAttributeResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::DescribeInstanceAttributeResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DescribeInstanceAttributeResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DescribeInstanceAttributeResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getDescribeInstanceAttributeResult {
+ return shift->{_fields}->{DescribeInstanceAttributeResult}->{FieldValue};
+ }
+
+
+ sub setDescribeInstanceAttributeResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{DescribeInstanceAttributeResult}->{FieldValue} = $value;
+ }
+
+
+ sub withDescribeInstanceAttributeResult {
+ my ($self, $value) = @_;
+ $self->setDescribeInstanceAttributeResult($value);
+ return $self;
+ }
+
+
+ sub isSetDescribeInstanceAttributeResult {
+ return defined (shift->{_fields}->{DescribeInstanceAttributeResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeInstanceAttributeResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeInstanceAttributeResponse.xslt
new file mode 100644
index 0000000..0b0d064
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeInstanceAttributeResponse.xslt
@@ -0,0 +1,93 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ false
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeInstanceAttributeResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeInstanceAttributeResult.pm
new file mode 100644
index 0000000..f3b7c92
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeInstanceAttributeResult.pm
@@ -0,0 +1,84 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeInstanceAttributeResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeInstanceAttributeResult
+ #
+ # Properties:
+ #
+ #
+ # InstanceAttribute: Amazon::EC2::Model::InstanceAttribute
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ InstanceAttribute => {FieldValue => undef, FieldType => "Amazon::EC2::Model::InstanceAttribute"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getInstanceAttribute {
+ return shift->{_fields}->{InstanceAttribute}->{FieldValue};
+ }
+
+
+ sub setInstanceAttribute {
+ my ($self, $value) = @_;
+ $self->{_fields}->{InstanceAttribute}->{FieldValue} = $value;
+ }
+
+
+ sub withInstanceAttribute {
+ my ($self, $value) = @_;
+ $self->setInstanceAttribute($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceAttribute {
+ return defined (shift->{_fields}->{InstanceAttribute}->{FieldValue});
+
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeInstancesRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeInstancesRequest.pm
new file mode 100644
index 0000000..972ae27
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeInstancesRequest.pm
@@ -0,0 +1,88 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeInstancesRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeInstancesRequest
+ #
+ # Properties:
+ #
+ #
+ # InstanceId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ InstanceId => {FieldValue => [], FieldType => ["string"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getInstanceId {
+ return shift->{_fields}->{InstanceId}->{FieldValue};
+ }
+
+
+ sub setInstanceId {
+ my ($self, $value) = @_;
+ $self->{_fields}->{InstanceId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withInstanceId {
+ my $self = shift;
+ my $list = $self->{_fields}->{InstanceId}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetInstanceId {
+ return scalar (@{shift->{_fields}->{InstanceId}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeInstancesResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeInstancesResponse.pm
new file mode 100644
index 0000000..7267383
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeInstancesResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeInstancesResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeInstancesResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # DescribeInstancesResult: Amazon::EC2::Model::DescribeInstancesResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ DescribeInstancesResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::DescribeInstancesResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DescribeInstancesResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DescribeInstancesResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getDescribeInstancesResult {
+ return shift->{_fields}->{DescribeInstancesResult}->{FieldValue};
+ }
+
+
+ sub setDescribeInstancesResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{DescribeInstancesResult}->{FieldValue} = $value;
+ }
+
+
+ sub withDescribeInstancesResult {
+ my ($self, $value) = @_;
+ $self->setDescribeInstancesResult($value);
+ return $self;
+ }
+
+
+ sub isSetDescribeInstancesResult {
+ return defined (shift->{_fields}->{DescribeInstancesResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeInstancesResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeInstancesResponse.xslt
new file mode 100644
index 0000000..96fb687
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeInstancesResponse.xslt
@@ -0,0 +1,194 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ false
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeInstancesResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeInstancesResult.pm
new file mode 100644
index 0000000..3a5e1d5
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeInstancesResult.pm
@@ -0,0 +1,89 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeInstancesResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeInstancesResult
+ #
+ # Properties:
+ #
+ #
+ # Reservation: Amazon::EC2::Model::Reservation
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ Reservation => {FieldValue => [], FieldType => ["Amazon::EC2::Model::Reservation"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getReservation {
+ return shift->{_fields}->{Reservation}->{FieldValue};
+ }
+
+ sub setReservation {
+ my $self = shift;
+ foreach my $reservation (@_) {
+ if (not $self->_isArrayRef($reservation)) {
+ $reservation = [$reservation];
+ }
+ $self->{_fields}->{Reservation}->{FieldValue} = $reservation;
+ }
+ }
+
+
+ sub withReservation {
+ my ($self, $reservationArgs) = @_;
+ foreach my $reservation (@$reservationArgs) {
+ $self->{_fields}->{Reservation}->{FieldValue} = $reservation;
+ }
+ return $self;
+ }
+
+
+ sub isSetReservation {
+ return scalar (@{shift->{_fields}->{Reservation}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeKeyPairsRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeKeyPairsRequest.pm
new file mode 100644
index 0000000..ebaabe3
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeKeyPairsRequest.pm
@@ -0,0 +1,88 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeKeyPairsRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeKeyPairsRequest
+ #
+ # Properties:
+ #
+ #
+ # KeyName: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ KeyName => {FieldValue => [], FieldType => ["string"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getKeyName {
+ return shift->{_fields}->{KeyName}->{FieldValue};
+ }
+
+
+ sub setKeyName {
+ my ($self, $value) = @_;
+ $self->{_fields}->{KeyName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withKeyName {
+ my $self = shift;
+ my $list = $self->{_fields}->{KeyName}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetKeyName {
+ return scalar (@{shift->{_fields}->{KeyName}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeKeyPairsResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeKeyPairsResponse.pm
new file mode 100644
index 0000000..cb21ec0
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeKeyPairsResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeKeyPairsResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeKeyPairsResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # DescribeKeyPairsResult: Amazon::EC2::Model::DescribeKeyPairsResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ DescribeKeyPairsResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::DescribeKeyPairsResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DescribeKeyPairsResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DescribeKeyPairsResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getDescribeKeyPairsResult {
+ return shift->{_fields}->{DescribeKeyPairsResult}->{FieldValue};
+ }
+
+
+ sub setDescribeKeyPairsResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{DescribeKeyPairsResult}->{FieldValue} = $value;
+ }
+
+
+ sub withDescribeKeyPairsResult {
+ my ($self, $value) = @_;
+ $self->setDescribeKeyPairsResult($value);
+ return $self;
+ }
+
+
+ sub isSetDescribeKeyPairsResult {
+ return defined (shift->{_fields}->{DescribeKeyPairsResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeKeyPairsResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeKeyPairsResponse.xslt
new file mode 100644
index 0000000..6a5714d
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeKeyPairsResponse.xslt
@@ -0,0 +1,29 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeKeyPairsResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeKeyPairsResult.pm
new file mode 100644
index 0000000..c4c5ada
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeKeyPairsResult.pm
@@ -0,0 +1,89 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeKeyPairsResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeKeyPairsResult
+ #
+ # Properties:
+ #
+ #
+ # KeyPair: Amazon::EC2::Model::KeyPair
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ KeyPair => {FieldValue => [], FieldType => ["Amazon::EC2::Model::KeyPair"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getKeyPair {
+ return shift->{_fields}->{KeyPair}->{FieldValue};
+ }
+
+ sub setKeyPair {
+ my $self = shift;
+ foreach my $keyPair (@_) {
+ if (not $self->_isArrayRef($keyPair)) {
+ $keyPair = [$keyPair];
+ }
+ $self->{_fields}->{KeyPair}->{FieldValue} = $keyPair;
+ }
+ }
+
+
+ sub withKeyPair {
+ my ($self, $keyPairArgs) = @_;
+ foreach my $keyPair (@$keyPairArgs) {
+ $self->{_fields}->{KeyPair}->{FieldValue} = $keyPair;
+ }
+ return $self;
+ }
+
+
+ sub isSetKeyPair {
+ return scalar (@{shift->{_fields}->{KeyPair}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeLicensesRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeLicensesRequest.pm
new file mode 100644
index 0000000..d397c2f
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeLicensesRequest.pm
@@ -0,0 +1,88 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeLicensesRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeLicensesRequest
+ #
+ # Properties:
+ #
+ #
+ # LicenseId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ LicenseId => {FieldValue => [], FieldType => ["string"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getLicenseId {
+ return shift->{_fields}->{LicenseId}->{FieldValue};
+ }
+
+
+ sub setLicenseId {
+ my ($self, $value) = @_;
+ $self->{_fields}->{LicenseId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withLicenseId {
+ my $self = shift;
+ my $list = $self->{_fields}->{LicenseId}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetLicenseId {
+ return scalar (@{shift->{_fields}->{LicenseId}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeLicensesResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeLicensesResponse.pm
new file mode 100644
index 0000000..9cd7b38
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeLicensesResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeLicensesResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeLicensesResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # DescribeLicensesResult: Amazon::EC2::Model::DescribeLicensesResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ DescribeLicensesResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::DescribeLicensesResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DescribeLicensesResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DescribeLicensesResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getDescribeLicensesResult {
+ return shift->{_fields}->{DescribeLicensesResult}->{FieldValue};
+ }
+
+
+ sub setDescribeLicensesResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{DescribeLicensesResult}->{FieldValue} = $value;
+ }
+
+
+ sub withDescribeLicensesResult {
+ my ($self, $value) = @_;
+ $self->setDescribeLicensesResult($value);
+ return $self;
+ }
+
+
+ sub isSetDescribeLicensesResult {
+ return defined (shift->{_fields}->{DescribeLicensesResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeLicensesResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeLicensesResponse.xslt
new file mode 100644
index 0000000..796a60a
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeLicensesResponse.xslt
@@ -0,0 +1,51 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeLicensesResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeLicensesResult.pm
new file mode 100644
index 0000000..f6567dd
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeLicensesResult.pm
@@ -0,0 +1,89 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeLicensesResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeLicensesResult
+ #
+ # Properties:
+ #
+ #
+ # License: Amazon::EC2::Model::License
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ License => {FieldValue => [], FieldType => ["Amazon::EC2::Model::License"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getLicense {
+ return shift->{_fields}->{License}->{FieldValue};
+ }
+
+ sub setLicense {
+ my $self = shift;
+ foreach my $license (@_) {
+ if (not $self->_isArrayRef($license)) {
+ $license = [$license];
+ }
+ $self->{_fields}->{License}->{FieldValue} = $license;
+ }
+ }
+
+
+ sub withLicense {
+ my ($self, $licenseArgs) = @_;
+ foreach my $license (@$licenseArgs) {
+ $self->{_fields}->{License}->{FieldValue} = $license;
+ }
+ return $self;
+ }
+
+
+ sub isSetLicense {
+ return scalar (@{shift->{_fields}->{License}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribePlacementGroupsRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribePlacementGroupsRequest.pm
new file mode 100644
index 0000000..4e3574b
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribePlacementGroupsRequest.pm
@@ -0,0 +1,88 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribePlacementGroupsRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribePlacementGroupsRequest
+ #
+ # Properties:
+ #
+ #
+ # GroupName: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ GroupName => {FieldValue => [], FieldType => ["string"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getGroupName {
+ return shift->{_fields}->{GroupName}->{FieldValue};
+ }
+
+
+ sub setGroupName {
+ my ($self, $value) = @_;
+ $self->{_fields}->{GroupName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withGroupName {
+ my $self = shift;
+ my $list = $self->{_fields}->{GroupName}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetGroupName {
+ return scalar (@{shift->{_fields}->{GroupName}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribePlacementGroupsResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribePlacementGroupsResponse.pm
new file mode 100644
index 0000000..f4a11be
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribePlacementGroupsResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribePlacementGroupsResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribePlacementGroupsResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # DescribePlacementGroupsResult: Amazon::EC2::Model::DescribePlacementGroupsResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ DescribePlacementGroupsResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::DescribePlacementGroupsResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DescribePlacementGroupsResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DescribePlacementGroupsResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getDescribePlacementGroupsResult {
+ return shift->{_fields}->{DescribePlacementGroupsResult}->{FieldValue};
+ }
+
+
+ sub setDescribePlacementGroupsResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{DescribePlacementGroupsResult}->{FieldValue} = $value;
+ }
+
+
+ sub withDescribePlacementGroupsResult {
+ my ($self, $value) = @_;
+ $self->setDescribePlacementGroupsResult($value);
+ return $self;
+ }
+
+
+ sub isSetDescribePlacementGroupsResult {
+ return defined (shift->{_fields}->{DescribePlacementGroupsResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribePlacementGroupsResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DescribePlacementGroupsResponse.xslt
new file mode 100644
index 0000000..2cab35b
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribePlacementGroupsResponse.xslt
@@ -0,0 +1,32 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribePlacementGroupsResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribePlacementGroupsResult.pm
new file mode 100644
index 0000000..f781db9
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribePlacementGroupsResult.pm
@@ -0,0 +1,89 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribePlacementGroupsResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribePlacementGroupsResult
+ #
+ # Properties:
+ #
+ #
+ # PlacementGroupInfo: Amazon::EC2::Model::PlacementGroupInfo
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ PlacementGroupInfo => {FieldValue => [], FieldType => ["Amazon::EC2::Model::PlacementGroupInfo"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getPlacementGroupInfo {
+ return shift->{_fields}->{PlacementGroupInfo}->{FieldValue};
+ }
+
+ sub setPlacementGroupInfo {
+ my $self = shift;
+ foreach my $placementGroupInfo (@_) {
+ if (not $self->_isArrayRef($placementGroupInfo)) {
+ $placementGroupInfo = [$placementGroupInfo];
+ }
+ $self->{_fields}->{PlacementGroupInfo}->{FieldValue} = $placementGroupInfo;
+ }
+ }
+
+
+ sub withPlacementGroupInfo {
+ my ($self, $placementGroupInfoArgs) = @_;
+ foreach my $placementGroupInfo (@$placementGroupInfoArgs) {
+ $self->{_fields}->{PlacementGroupInfo}->{FieldValue} = $placementGroupInfo;
+ }
+ return $self;
+ }
+
+
+ sub isSetPlacementGroupInfo {
+ return scalar (@{shift->{_fields}->{PlacementGroupInfo}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeRegionsRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeRegionsRequest.pm
new file mode 100644
index 0000000..258a3dc
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeRegionsRequest.pm
@@ -0,0 +1,88 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeRegionsRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeRegionsRequest
+ #
+ # Properties:
+ #
+ #
+ # RegionName: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ RegionName => {FieldValue => [], FieldType => ["string"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getRegionName {
+ return shift->{_fields}->{RegionName}->{FieldValue};
+ }
+
+
+ sub setRegionName {
+ my ($self, $value) = @_;
+ $self->{_fields}->{RegionName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withRegionName {
+ my $self = shift;
+ my $list = $self->{_fields}->{RegionName}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetRegionName {
+ return scalar (@{shift->{_fields}->{RegionName}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeRegionsResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeRegionsResponse.pm
new file mode 100644
index 0000000..15de580
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeRegionsResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeRegionsResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeRegionsResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # DescribeRegionsResult: Amazon::EC2::Model::DescribeRegionsResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ DescribeRegionsResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::DescribeRegionsResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DescribeRegionsResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DescribeRegionsResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getDescribeRegionsResult {
+ return shift->{_fields}->{DescribeRegionsResult}->{FieldValue};
+ }
+
+
+ sub setDescribeRegionsResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{DescribeRegionsResult}->{FieldValue} = $value;
+ }
+
+
+ sub withDescribeRegionsResult {
+ my ($self, $value) = @_;
+ $self->setDescribeRegionsResult($value);
+ return $self;
+ }
+
+
+ sub isSetDescribeRegionsResult {
+ return defined (shift->{_fields}->{DescribeRegionsResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeRegionsResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeRegionsResponse.xslt
new file mode 100644
index 0000000..fe76d3f
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeRegionsResponse.xslt
@@ -0,0 +1,29 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeRegionsResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeRegionsResult.pm
new file mode 100644
index 0000000..82b1ff2
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeRegionsResult.pm
@@ -0,0 +1,89 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeRegionsResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeRegionsResult
+ #
+ # Properties:
+ #
+ #
+ # Region: Amazon::EC2::Model::Region
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ Region => {FieldValue => [], FieldType => ["Amazon::EC2::Model::Region"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getRegion {
+ return shift->{_fields}->{Region}->{FieldValue};
+ }
+
+ sub setRegion {
+ my $self = shift;
+ foreach my $region (@_) {
+ if (not $self->_isArrayRef($region)) {
+ $region = [$region];
+ }
+ $self->{_fields}->{Region}->{FieldValue} = $region;
+ }
+ }
+
+
+ sub withRegion {
+ my ($self, $regionArgs) = @_;
+ foreach my $region (@$regionArgs) {
+ $self->{_fields}->{Region}->{FieldValue} = $region;
+ }
+ return $self;
+ }
+
+
+ sub isSetRegion {
+ return scalar (@{shift->{_fields}->{Region}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeReservedInstancesOfferingsRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeReservedInstancesOfferingsRequest.pm
new file mode 100644
index 0000000..61bbf59
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeReservedInstancesOfferingsRequest.pm
@@ -0,0 +1,169 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeReservedInstancesOfferingsRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeReservedInstancesOfferingsRequest
+ #
+ # Properties:
+ #
+ #
+ # ReservedInstancesId: string
+ # InstanceType: string
+ # AvailabilityZone: string
+ # ProductDescription: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ReservedInstancesId => {FieldValue => [], FieldType => ["string"]},
+ InstanceType => { FieldValue => undef, FieldType => "string"},
+ AvailabilityZone => { FieldValue => undef, FieldType => "string"},
+ ProductDescription => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getReservedInstancesId {
+ return shift->{_fields}->{ReservedInstancesId}->{FieldValue};
+ }
+
+
+ sub setReservedInstancesId {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ReservedInstancesId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withReservedInstancesId {
+ my $self = shift;
+ my $list = $self->{_fields}->{ReservedInstancesId}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetReservedInstancesId {
+ return scalar (@{shift->{_fields}->{ReservedInstancesId}->{FieldValue}}) > 0;
+ }
+
+
+ sub getInstanceType {
+ return shift->{_fields}->{InstanceType}->{FieldValue};
+ }
+
+
+ sub setInstanceType {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceType}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceType {
+ my ($self, $value) = @_;
+ $self->setInstanceType($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceType {
+ return defined (shift->{_fields}->{InstanceType}->{FieldValue});
+ }
+
+
+ sub getAvailabilityZone {
+ return shift->{_fields}->{AvailabilityZone}->{FieldValue};
+ }
+
+
+ sub setAvailabilityZone {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{AvailabilityZone}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withAvailabilityZone {
+ my ($self, $value) = @_;
+ $self->setAvailabilityZone($value);
+ return $self;
+ }
+
+
+ sub isSetAvailabilityZone {
+ return defined (shift->{_fields}->{AvailabilityZone}->{FieldValue});
+ }
+
+
+ sub getProductDescription {
+ return shift->{_fields}->{ProductDescription}->{FieldValue};
+ }
+
+
+ sub setProductDescription {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ProductDescription}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withProductDescription {
+ my ($self, $value) = @_;
+ $self->setProductDescription($value);
+ return $self;
+ }
+
+
+ sub isSetProductDescription {
+ return defined (shift->{_fields}->{ProductDescription}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeReservedInstancesOfferingsResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeReservedInstancesOfferingsResponse.pm
new file mode 100644
index 0000000..4b40d82
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeReservedInstancesOfferingsResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeReservedInstancesOfferingsResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeReservedInstancesOfferingsResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # DescribeReservedInstancesOfferingsResult: Amazon::EC2::Model::DescribeReservedInstancesOfferingsResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ DescribeReservedInstancesOfferingsResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::DescribeReservedInstancesOfferingsResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DescribeReservedInstancesOfferingsResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DescribeReservedInstancesOfferingsResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getDescribeReservedInstancesOfferingsResult {
+ return shift->{_fields}->{DescribeReservedInstancesOfferingsResult}->{FieldValue};
+ }
+
+
+ sub setDescribeReservedInstancesOfferingsResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{DescribeReservedInstancesOfferingsResult}->{FieldValue} = $value;
+ }
+
+
+ sub withDescribeReservedInstancesOfferingsResult {
+ my ($self, $value) = @_;
+ $self->setDescribeReservedInstancesOfferingsResult($value);
+ return $self;
+ }
+
+
+ sub isSetDescribeReservedInstancesOfferingsResult {
+ return defined (shift->{_fields}->{DescribeReservedInstancesOfferingsResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeReservedInstancesOfferingsResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeReservedInstancesOfferingsResponse.xslt
new file mode 100644
index 0000000..92f508e
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeReservedInstancesOfferingsResponse.xslt
@@ -0,0 +1,45 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeReservedInstancesOfferingsResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeReservedInstancesOfferingsResult.pm
new file mode 100644
index 0000000..5102142
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeReservedInstancesOfferingsResult.pm
@@ -0,0 +1,89 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeReservedInstancesOfferingsResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeReservedInstancesOfferingsResult
+ #
+ # Properties:
+ #
+ #
+ # ReservedInstancesOffering: Amazon::EC2::Model::ReservedInstancesOffering
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ReservedInstancesOffering => {FieldValue => [], FieldType => ["Amazon::EC2::Model::ReservedInstancesOffering"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getReservedInstancesOffering {
+ return shift->{_fields}->{ReservedInstancesOffering}->{FieldValue};
+ }
+
+ sub setReservedInstancesOffering {
+ my $self = shift;
+ foreach my $reservedInstancesOffering (@_) {
+ if (not $self->_isArrayRef($reservedInstancesOffering)) {
+ $reservedInstancesOffering = [$reservedInstancesOffering];
+ }
+ $self->{_fields}->{ReservedInstancesOffering}->{FieldValue} = $reservedInstancesOffering;
+ }
+ }
+
+
+ sub withReservedInstancesOffering {
+ my ($self, $reservedInstancesOfferingArgs) = @_;
+ foreach my $reservedInstancesOffering (@$reservedInstancesOfferingArgs) {
+ $self->{_fields}->{ReservedInstancesOffering}->{FieldValue} = $reservedInstancesOffering;
+ }
+ return $self;
+ }
+
+
+ sub isSetReservedInstancesOffering {
+ return scalar (@{shift->{_fields}->{ReservedInstancesOffering}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeReservedInstancesRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeReservedInstancesRequest.pm
new file mode 100644
index 0000000..4e5f5e6
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeReservedInstancesRequest.pm
@@ -0,0 +1,88 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeReservedInstancesRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeReservedInstancesRequest
+ #
+ # Properties:
+ #
+ #
+ # ReservedInstancesId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ReservedInstancesId => {FieldValue => [], FieldType => ["string"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getReservedInstancesId {
+ return shift->{_fields}->{ReservedInstancesId}->{FieldValue};
+ }
+
+
+ sub setReservedInstancesId {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ReservedInstancesId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withReservedInstancesId {
+ my $self = shift;
+ my $list = $self->{_fields}->{ReservedInstancesId}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetReservedInstancesId {
+ return scalar (@{shift->{_fields}->{ReservedInstancesId}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeReservedInstancesResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeReservedInstancesResponse.pm
new file mode 100644
index 0000000..b5224a5
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeReservedInstancesResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeReservedInstancesResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeReservedInstancesResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # DescribeReservedInstancesResult: Amazon::EC2::Model::DescribeReservedInstancesResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ DescribeReservedInstancesResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::DescribeReservedInstancesResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DescribeReservedInstancesResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DescribeReservedInstancesResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getDescribeReservedInstancesResult {
+ return shift->{_fields}->{DescribeReservedInstancesResult}->{FieldValue};
+ }
+
+
+ sub setDescribeReservedInstancesResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{DescribeReservedInstancesResult}->{FieldValue} = $value;
+ }
+
+
+ sub withDescribeReservedInstancesResult {
+ my ($self, $value) = @_;
+ $self->setDescribeReservedInstancesResult($value);
+ return $self;
+ }
+
+
+ sub isSetDescribeReservedInstancesResult {
+ return defined (shift->{_fields}->{DescribeReservedInstancesResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeReservedInstancesResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeReservedInstancesResponse.xslt
new file mode 100644
index 0000000..2441a5e
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeReservedInstancesResponse.xslt
@@ -0,0 +1,53 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeReservedInstancesResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeReservedInstancesResult.pm
new file mode 100644
index 0000000..81872b3
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeReservedInstancesResult.pm
@@ -0,0 +1,89 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeReservedInstancesResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeReservedInstancesResult
+ #
+ # Properties:
+ #
+ #
+ # ReservedInstances: Amazon::EC2::Model::ReservedInstances
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ReservedInstances => {FieldValue => [], FieldType => ["Amazon::EC2::Model::ReservedInstances"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getReservedInstances {
+ return shift->{_fields}->{ReservedInstances}->{FieldValue};
+ }
+
+ sub setReservedInstances {
+ my $self = shift;
+ foreach my $reservedInstances (@_) {
+ if (not $self->_isArrayRef($reservedInstances)) {
+ $reservedInstances = [$reservedInstances];
+ }
+ $self->{_fields}->{ReservedInstances}->{FieldValue} = $reservedInstances;
+ }
+ }
+
+
+ sub withReservedInstances {
+ my ($self, $reservedInstancesArgs) = @_;
+ foreach my $reservedInstances (@$reservedInstancesArgs) {
+ $self->{_fields}->{ReservedInstances}->{FieldValue} = $reservedInstances;
+ }
+ return $self;
+ }
+
+
+ sub isSetReservedInstances {
+ return scalar (@{shift->{_fields}->{ReservedInstances}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSecurityGroupsRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSecurityGroupsRequest.pm
new file mode 100644
index 0000000..5a6a0ac
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSecurityGroupsRequest.pm
@@ -0,0 +1,88 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeSecurityGroupsRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeSecurityGroupsRequest
+ #
+ # Properties:
+ #
+ #
+ # GroupName: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ GroupName => {FieldValue => [], FieldType => ["string"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getGroupName {
+ return shift->{_fields}->{GroupName}->{FieldValue};
+ }
+
+
+ sub setGroupName {
+ my ($self, $value) = @_;
+ $self->{_fields}->{GroupName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withGroupName {
+ my $self = shift;
+ my $list = $self->{_fields}->{GroupName}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetGroupName {
+ return scalar (@{shift->{_fields}->{GroupName}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSecurityGroupsResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSecurityGroupsResponse.pm
new file mode 100644
index 0000000..7a5b156
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSecurityGroupsResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeSecurityGroupsResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeSecurityGroupsResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # DescribeSecurityGroupsResult: Amazon::EC2::Model::DescribeSecurityGroupsResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ DescribeSecurityGroupsResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::DescribeSecurityGroupsResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DescribeSecurityGroupsResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DescribeSecurityGroupsResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getDescribeSecurityGroupsResult {
+ return shift->{_fields}->{DescribeSecurityGroupsResult}->{FieldValue};
+ }
+
+
+ sub setDescribeSecurityGroupsResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{DescribeSecurityGroupsResult}->{FieldValue} = $value;
+ }
+
+
+ sub withDescribeSecurityGroupsResult {
+ my ($self, $value) = @_;
+ $self->setDescribeSecurityGroupsResult($value);
+ return $self;
+ }
+
+
+ sub isSetDescribeSecurityGroupsResult {
+ return defined (shift->{_fields}->{DescribeSecurityGroupsResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSecurityGroupsResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSecurityGroupsResponse.xslt
new file mode 100644
index 0000000..88fc837
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSecurityGroupsResponse.xslt
@@ -0,0 +1,70 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSecurityGroupsResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSecurityGroupsResult.pm
new file mode 100644
index 0000000..7effc9f
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSecurityGroupsResult.pm
@@ -0,0 +1,89 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeSecurityGroupsResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeSecurityGroupsResult
+ #
+ # Properties:
+ #
+ #
+ # SecurityGroup: Amazon::EC2::Model::SecurityGroup
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ SecurityGroup => {FieldValue => [], FieldType => ["Amazon::EC2::Model::SecurityGroup"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getSecurityGroup {
+ return shift->{_fields}->{SecurityGroup}->{FieldValue};
+ }
+
+ sub setSecurityGroup {
+ my $self = shift;
+ foreach my $securityGroup (@_) {
+ if (not $self->_isArrayRef($securityGroup)) {
+ $securityGroup = [$securityGroup];
+ }
+ $self->{_fields}->{SecurityGroup}->{FieldValue} = $securityGroup;
+ }
+ }
+
+
+ sub withSecurityGroup {
+ my ($self, $securityGroupArgs) = @_;
+ foreach my $securityGroup (@$securityGroupArgs) {
+ $self->{_fields}->{SecurityGroup}->{FieldValue} = $securityGroup;
+ }
+ return $self;
+ }
+
+
+ sub isSetSecurityGroup {
+ return scalar (@{shift->{_fields}->{SecurityGroup}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSnapshotAttributeRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSnapshotAttributeRequest.pm
new file mode 100644
index 0000000..ba1bfc6
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSnapshotAttributeRequest.pm
@@ -0,0 +1,113 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeSnapshotAttributeRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeSnapshotAttributeRequest
+ #
+ # Properties:
+ #
+ #
+ # SnapshotId: string
+ # Attribute: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ SnapshotId => { FieldValue => undef, FieldType => "string"},
+ Attribute => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getSnapshotId {
+ return shift->{_fields}->{SnapshotId}->{FieldValue};
+ }
+
+
+ sub setSnapshotId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{SnapshotId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withSnapshotId {
+ my ($self, $value) = @_;
+ $self->setSnapshotId($value);
+ return $self;
+ }
+
+
+ sub isSetSnapshotId {
+ return defined (shift->{_fields}->{SnapshotId}->{FieldValue});
+ }
+
+
+ sub getAttribute {
+ return shift->{_fields}->{Attribute}->{FieldValue};
+ }
+
+
+ sub setAttribute {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Attribute}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withAttribute {
+ my ($self, $value) = @_;
+ $self->setAttribute($value);
+ return $self;
+ }
+
+
+ sub isSetAttribute {
+ return defined (shift->{_fields}->{Attribute}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSnapshotAttributeResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSnapshotAttributeResponse.pm
new file mode 100644
index 0000000..9fe1a41
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSnapshotAttributeResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeSnapshotAttributeResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeSnapshotAttributeResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # DescribeSnapshotAttributeResult: Amazon::EC2::Model::DescribeSnapshotAttributeResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ DescribeSnapshotAttributeResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::DescribeSnapshotAttributeResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DescribeSnapshotAttributeResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DescribeSnapshotAttributeResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getDescribeSnapshotAttributeResult {
+ return shift->{_fields}->{DescribeSnapshotAttributeResult}->{FieldValue};
+ }
+
+
+ sub setDescribeSnapshotAttributeResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{DescribeSnapshotAttributeResult}->{FieldValue} = $value;
+ }
+
+
+ sub withDescribeSnapshotAttributeResult {
+ my ($self, $value) = @_;
+ $self->setDescribeSnapshotAttributeResult($value);
+ return $self;
+ }
+
+
+ sub isSetDescribeSnapshotAttributeResult {
+ return defined (shift->{_fields}->{DescribeSnapshotAttributeResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSnapshotAttributeResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSnapshotAttributeResponse.xslt
new file mode 100644
index 0000000..1324aa7
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSnapshotAttributeResponse.xslt
@@ -0,0 +1,39 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSnapshotAttributeResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSnapshotAttributeResult.pm
new file mode 100644
index 0000000..ac1ef3a
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSnapshotAttributeResult.pm
@@ -0,0 +1,84 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeSnapshotAttributeResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeSnapshotAttributeResult
+ #
+ # Properties:
+ #
+ #
+ # SnapshotAttribute: Amazon::EC2::Model::SnapshotAttribute
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ SnapshotAttribute => {FieldValue => undef, FieldType => "Amazon::EC2::Model::SnapshotAttribute"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getSnapshotAttribute {
+ return shift->{_fields}->{SnapshotAttribute}->{FieldValue};
+ }
+
+
+ sub setSnapshotAttribute {
+ my ($self, $value) = @_;
+ $self->{_fields}->{SnapshotAttribute}->{FieldValue} = $value;
+ }
+
+
+ sub withSnapshotAttribute {
+ my ($self, $value) = @_;
+ $self->setSnapshotAttribute($value);
+ return $self;
+ }
+
+
+ sub isSetSnapshotAttribute {
+ return defined (shift->{_fields}->{SnapshotAttribute}->{FieldValue});
+
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSnapshotsRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSnapshotsRequest.pm
new file mode 100644
index 0000000..26d1b67
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSnapshotsRequest.pm
@@ -0,0 +1,142 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeSnapshotsRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeSnapshotsRequest
+ #
+ # Properties:
+ #
+ #
+ # SnapshotId: string
+ # Owner: string
+ # RestorableBy: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ SnapshotId => {FieldValue => [], FieldType => ["string"]},
+ Owner => { FieldValue => undef, FieldType => "string"},
+ RestorableBy => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getSnapshotId {
+ return shift->{_fields}->{SnapshotId}->{FieldValue};
+ }
+
+
+ sub setSnapshotId {
+ my ($self, $value) = @_;
+ $self->{_fields}->{SnapshotId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withSnapshotId {
+ my $self = shift;
+ my $list = $self->{_fields}->{SnapshotId}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetSnapshotId {
+ return scalar (@{shift->{_fields}->{SnapshotId}->{FieldValue}}) > 0;
+ }
+
+
+ sub getOwner {
+ return shift->{_fields}->{Owner}->{FieldValue};
+ }
+
+
+ sub setOwner {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Owner}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withOwner {
+ my ($self, $value) = @_;
+ $self->setOwner($value);
+ return $self;
+ }
+
+
+ sub isSetOwner {
+ return defined (shift->{_fields}->{Owner}->{FieldValue});
+ }
+
+
+ sub getRestorableBy {
+ return shift->{_fields}->{RestorableBy}->{FieldValue};
+ }
+
+
+ sub setRestorableBy {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{RestorableBy}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withRestorableBy {
+ my ($self, $value) = @_;
+ $self->setRestorableBy($value);
+ return $self;
+ }
+
+
+ sub isSetRestorableBy {
+ return defined (shift->{_fields}->{RestorableBy}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSnapshotsResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSnapshotsResponse.pm
new file mode 100644
index 0000000..eaf7d7e
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSnapshotsResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeSnapshotsResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeSnapshotsResponse
+ #
+ # Properties:
+ #
+ #
+ # DescribeSnapshotsResult: Amazon::EC2::Model::DescribeSnapshotsResult
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ DescribeSnapshotsResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::DescribeSnapshotsResult"},
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DescribeSnapshotsResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DescribeSnapshotsResponse($tree);
+
+ }
+
+ sub getDescribeSnapshotsResult {
+ return shift->{_fields}->{DescribeSnapshotsResult}->{FieldValue};
+ }
+
+
+ sub setDescribeSnapshotsResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{DescribeSnapshotsResult}->{FieldValue} = $value;
+ }
+
+
+ sub withDescribeSnapshotsResult {
+ my ($self, $value) = @_;
+ $self->setDescribeSnapshotsResult($value);
+ return $self;
+ }
+
+
+ sub isSetDescribeSnapshotsResult {
+ return defined (shift->{_fields}->{DescribeSnapshotsResult}->{FieldValue});
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSnapshotsResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSnapshotsResponse.xslt
new file mode 100644
index 0000000..6f9bab3
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSnapshotsResponse.xslt
@@ -0,0 +1,53 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSnapshotsResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSnapshotsResult.pm
new file mode 100644
index 0000000..6a4cfdb
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSnapshotsResult.pm
@@ -0,0 +1,89 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeSnapshotsResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeSnapshotsResult
+ #
+ # Properties:
+ #
+ #
+ # Snapshot: Amazon::EC2::Model::Snapshot
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ Snapshot => {FieldValue => [], FieldType => ["Amazon::EC2::Model::Snapshot"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getSnapshot {
+ return shift->{_fields}->{Snapshot}->{FieldValue};
+ }
+
+ sub setSnapshot {
+ my $self = shift;
+ foreach my $snapshot (@_) {
+ if (not $self->_isArrayRef($snapshot)) {
+ $snapshot = [$snapshot];
+ }
+ $self->{_fields}->{Snapshot}->{FieldValue} = $snapshot;
+ }
+ }
+
+
+ sub withSnapshot {
+ my ($self, $snapshotArgs) = @_;
+ foreach my $snapshot (@$snapshotArgs) {
+ $self->{_fields}->{Snapshot}->{FieldValue} = $snapshot;
+ }
+ return $self;
+ }
+
+
+ sub isSetSnapshot {
+ return scalar (@{shift->{_fields}->{Snapshot}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotDatafeedSubscriptionRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotDatafeedSubscriptionRequest.pm
new file mode 100644
index 0000000..3f776f4
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotDatafeedSubscriptionRequest.pm
@@ -0,0 +1,59 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeSpotDatafeedSubscriptionRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeSpotDatafeedSubscriptionRequest
+ #
+ # Properties:
+ #
+ #
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotDatafeedSubscriptionResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotDatafeedSubscriptionResponse.pm
new file mode 100644
index 0000000..07cbd09
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotDatafeedSubscriptionResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeSpotDatafeedSubscriptionResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeSpotDatafeedSubscriptionResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # DescribeSpotDatafeedSubscriptionResult: Amazon::EC2::Model::DescribeSpotDatafeedSubscriptionResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ DescribeSpotDatafeedSubscriptionResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::DescribeSpotDatafeedSubscriptionResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DescribeSpotDatafeedSubscriptionResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DescribeSpotDatafeedSubscriptionResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getDescribeSpotDatafeedSubscriptionResult {
+ return shift->{_fields}->{DescribeSpotDatafeedSubscriptionResult}->{FieldValue};
+ }
+
+
+ sub setDescribeSpotDatafeedSubscriptionResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{DescribeSpotDatafeedSubscriptionResult}->{FieldValue} = $value;
+ }
+
+
+ sub withDescribeSpotDatafeedSubscriptionResult {
+ my ($self, $value) = @_;
+ $self->setDescribeSpotDatafeedSubscriptionResult($value);
+ return $self;
+ }
+
+
+ sub isSetDescribeSpotDatafeedSubscriptionResult {
+ return defined (shift->{_fields}->{DescribeSpotDatafeedSubscriptionResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotDatafeedSubscriptionResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotDatafeedSubscriptionResponse.xslt
new file mode 100644
index 0000000..8f8d964
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotDatafeedSubscriptionResponse.xslt
@@ -0,0 +1,47 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotDatafeedSubscriptionResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotDatafeedSubscriptionResult.pm
new file mode 100644
index 0000000..a2d1332
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotDatafeedSubscriptionResult.pm
@@ -0,0 +1,84 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeSpotDatafeedSubscriptionResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeSpotDatafeedSubscriptionResult
+ #
+ # Properties:
+ #
+ #
+ # SpotDatafeedSubscription: Amazon::EC2::Model::SpotDatafeedSubscription
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ SpotDatafeedSubscription => {FieldValue => undef, FieldType => "Amazon::EC2::Model::SpotDatafeedSubscription"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getSpotDatafeedSubscription {
+ return shift->{_fields}->{SpotDatafeedSubscription}->{FieldValue};
+ }
+
+
+ sub setSpotDatafeedSubscription {
+ my ($self, $value) = @_;
+ $self->{_fields}->{SpotDatafeedSubscription}->{FieldValue} = $value;
+ }
+
+
+ sub withSpotDatafeedSubscription {
+ my ($self, $value) = @_;
+ $self->setSpotDatafeedSubscription($value);
+ return $self;
+ }
+
+
+ sub isSetSpotDatafeedSubscription {
+ return defined (shift->{_fields}->{SpotDatafeedSubscription}->{FieldValue});
+
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotInstanceRequestsRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotInstanceRequestsRequest.pm
new file mode 100644
index 0000000..05e1bc5
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotInstanceRequestsRequest.pm
@@ -0,0 +1,88 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeSpotInstanceRequestsRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeSpotInstanceRequestsRequest
+ #
+ # Properties:
+ #
+ #
+ # SpotInstanceRequestId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ SpotInstanceRequestId => {FieldValue => [], FieldType => ["string"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getSpotInstanceRequestId {
+ return shift->{_fields}->{SpotInstanceRequestId}->{FieldValue};
+ }
+
+
+ sub setSpotInstanceRequestId {
+ my ($self, $value) = @_;
+ $self->{_fields}->{SpotInstanceRequestId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withSpotInstanceRequestId {
+ my $self = shift;
+ my $list = $self->{_fields}->{SpotInstanceRequestId}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetSpotInstanceRequestId {
+ return scalar (@{shift->{_fields}->{SpotInstanceRequestId}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotInstanceRequestsResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotInstanceRequestsResponse.pm
new file mode 100644
index 0000000..7066a92
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotInstanceRequestsResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeSpotInstanceRequestsResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeSpotInstanceRequestsResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # DescribeSpotInstanceRequestsResult: Amazon::EC2::Model::DescribeSpotInstanceRequestsResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ DescribeSpotInstanceRequestsResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::DescribeSpotInstanceRequestsResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DescribeSpotInstanceRequestsResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DescribeSpotInstanceRequestsResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getDescribeSpotInstanceRequestsResult {
+ return shift->{_fields}->{DescribeSpotInstanceRequestsResult}->{FieldValue};
+ }
+
+
+ sub setDescribeSpotInstanceRequestsResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{DescribeSpotInstanceRequestsResult}->{FieldValue} = $value;
+ }
+
+
+ sub withDescribeSpotInstanceRequestsResult {
+ my ($self, $value) = @_;
+ $self->setDescribeSpotInstanceRequestsResult($value);
+ return $self;
+ }
+
+
+ sub isSetDescribeSpotInstanceRequestsResult {
+ return defined (shift->{_fields}->{DescribeSpotInstanceRequestsResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotInstanceRequestsResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotInstanceRequestsResponse.xslt
new file mode 100644
index 0000000..56bc153
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotInstanceRequestsResponse.xslt
@@ -0,0 +1,147 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ false
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotInstanceRequestsResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotInstanceRequestsResult.pm
new file mode 100644
index 0000000..7bb4f81
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotInstanceRequestsResult.pm
@@ -0,0 +1,89 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeSpotInstanceRequestsResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeSpotInstanceRequestsResult
+ #
+ # Properties:
+ #
+ #
+ # SpotInstanceRequest: Amazon::EC2::Model::SpotInstanceRequest
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ SpotInstanceRequest => {FieldValue => [], FieldType => ["Amazon::EC2::Model::SpotInstanceRequest"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getSpotInstanceRequest {
+ return shift->{_fields}->{SpotInstanceRequest}->{FieldValue};
+ }
+
+ sub setSpotInstanceRequest {
+ my $self = shift;
+ foreach my $spotInstanceRequest (@_) {
+ if (not $self->_isArrayRef($spotInstanceRequest)) {
+ $spotInstanceRequest = [$spotInstanceRequest];
+ }
+ $self->{_fields}->{SpotInstanceRequest}->{FieldValue} = $spotInstanceRequest;
+ }
+ }
+
+
+ sub withSpotInstanceRequest {
+ my ($self, $spotInstanceRequestArgs) = @_;
+ foreach my $spotInstanceRequest (@$spotInstanceRequestArgs) {
+ $self->{_fields}->{SpotInstanceRequest}->{FieldValue} = $spotInstanceRequest;
+ }
+ return $self;
+ }
+
+
+ sub isSetSpotInstanceRequest {
+ return scalar (@{shift->{_fields}->{SpotInstanceRequest}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotPriceHistoryRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotPriceHistoryRequest.pm
new file mode 100644
index 0000000..1253312
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotPriceHistoryRequest.pm
@@ -0,0 +1,171 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeSpotPriceHistoryRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeSpotPriceHistoryRequest
+ #
+ # Properties:
+ #
+ #
+ # StartTime: string
+ # EndTime: string
+ # InstanceType: string
+ # ProductDescription: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ StartTime => { FieldValue => undef, FieldType => "string"},
+ EndTime => { FieldValue => undef, FieldType => "string"},
+ InstanceType => {FieldValue => [], FieldType => ["string"]},
+ ProductDescription => {FieldValue => [], FieldType => ["string"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getStartTime {
+ return shift->{_fields}->{StartTime}->{FieldValue};
+ }
+
+
+ sub setStartTime {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{StartTime}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withStartTime {
+ my ($self, $value) = @_;
+ $self->setStartTime($value);
+ return $self;
+ }
+
+
+ sub isSetStartTime {
+ return defined (shift->{_fields}->{StartTime}->{FieldValue});
+ }
+
+
+ sub getEndTime {
+ return shift->{_fields}->{EndTime}->{FieldValue};
+ }
+
+
+ sub setEndTime {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{EndTime}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withEndTime {
+ my ($self, $value) = @_;
+ $self->setEndTime($value);
+ return $self;
+ }
+
+
+ sub isSetEndTime {
+ return defined (shift->{_fields}->{EndTime}->{FieldValue});
+ }
+
+ sub getInstanceType {
+ return shift->{_fields}->{InstanceType}->{FieldValue};
+ }
+
+
+ sub setInstanceType {
+ my ($self, $value) = @_;
+ $self->{_fields}->{InstanceType}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withInstanceType {
+ my $self = shift;
+ my $list = $self->{_fields}->{InstanceType}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetInstanceType {
+ return scalar (@{shift->{_fields}->{InstanceType}->{FieldValue}}) > 0;
+ }
+
+ sub getProductDescription {
+ return shift->{_fields}->{ProductDescription}->{FieldValue};
+ }
+
+
+ sub setProductDescription {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ProductDescription}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withProductDescription {
+ my $self = shift;
+ my $list = $self->{_fields}->{ProductDescription}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetProductDescription {
+ return scalar (@{shift->{_fields}->{ProductDescription}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotPriceHistoryResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotPriceHistoryResponse.pm
new file mode 100644
index 0000000..5ac61f8
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotPriceHistoryResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeSpotPriceHistoryResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeSpotPriceHistoryResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # DescribeSpotPriceHistoryResult: Amazon::EC2::Model::DescribeSpotPriceHistoryResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ DescribeSpotPriceHistoryResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::DescribeSpotPriceHistoryResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DescribeSpotPriceHistoryResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DescribeSpotPriceHistoryResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getDescribeSpotPriceHistoryResult {
+ return shift->{_fields}->{DescribeSpotPriceHistoryResult}->{FieldValue};
+ }
+
+
+ sub setDescribeSpotPriceHistoryResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{DescribeSpotPriceHistoryResult}->{FieldValue} = $value;
+ }
+
+
+ sub withDescribeSpotPriceHistoryResult {
+ my ($self, $value) = @_;
+ $self->setDescribeSpotPriceHistoryResult($value);
+ return $self;
+ }
+
+
+ sub isSetDescribeSpotPriceHistoryResult {
+ return defined (shift->{_fields}->{DescribeSpotPriceHistoryResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotPriceHistoryResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotPriceHistoryResponse.xslt
new file mode 100644
index 0000000..0367ead
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotPriceHistoryResponse.xslt
@@ -0,0 +1,38 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotPriceHistoryResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotPriceHistoryResult.pm
new file mode 100644
index 0000000..3e409e3
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSpotPriceHistoryResult.pm
@@ -0,0 +1,89 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeSpotPriceHistoryResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeSpotPriceHistoryResult
+ #
+ # Properties:
+ #
+ #
+ # SpotPriceHistory: Amazon::EC2::Model::SpotPriceHistory
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ SpotPriceHistory => {FieldValue => [], FieldType => ["Amazon::EC2::Model::SpotPriceHistory"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getSpotPriceHistory {
+ return shift->{_fields}->{SpotPriceHistory}->{FieldValue};
+ }
+
+ sub setSpotPriceHistory {
+ my $self = shift;
+ foreach my $spotPriceHistory (@_) {
+ if (not $self->_isArrayRef($spotPriceHistory)) {
+ $spotPriceHistory = [$spotPriceHistory];
+ }
+ $self->{_fields}->{SpotPriceHistory}->{FieldValue} = $spotPriceHistory;
+ }
+ }
+
+
+ sub withSpotPriceHistory {
+ my ($self, $spotPriceHistoryArgs) = @_;
+ foreach my $spotPriceHistory (@$spotPriceHistoryArgs) {
+ $self->{_fields}->{SpotPriceHistory}->{FieldValue} = $spotPriceHistory;
+ }
+ return $self;
+ }
+
+
+ sub isSetSpotPriceHistory {
+ return scalar (@{shift->{_fields}->{SpotPriceHistory}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSubnetsRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSubnetsRequest.pm
new file mode 100644
index 0000000..5a14379
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSubnetsRequest.pm
@@ -0,0 +1,118 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeSubnetsRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeSubnetsRequest
+ #
+ # Properties:
+ #
+ #
+ # SubnetId: string
+ # Filter: Amazon::EC2::Model::Filter
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ SubnetId => {FieldValue => [], FieldType => ["string"]},
+ Filter => {FieldValue => [], FieldType => ["Amazon::EC2::Model::Filter"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getSubnetId {
+ return shift->{_fields}->{SubnetId}->{FieldValue};
+ }
+
+
+ sub setSubnetId {
+ my ($self, $value) = @_;
+ $self->{_fields}->{SubnetId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withSubnetId {
+ my $self = shift;
+ my $list = $self->{_fields}->{SubnetId}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetSubnetId {
+ return scalar (@{shift->{_fields}->{SubnetId}->{FieldValue}}) > 0;
+ }
+
+ sub getFilter {
+ return shift->{_fields}->{Filter}->{FieldValue};
+ }
+
+ sub setFilter {
+ my $self = shift;
+ foreach my $filter (@_) {
+ if (not $self->_isArrayRef($filter)) {
+ $filter = [$filter];
+ }
+ $self->{_fields}->{Filter}->{FieldValue} = $filter;
+ }
+ }
+
+
+ sub withFilter {
+ my ($self, $filterArgs) = @_;
+ foreach my $filter (@$filterArgs) {
+ $self->{_fields}->{Filter}->{FieldValue} = $filter;
+ }
+ return $self;
+ }
+
+
+ sub isSetFilter {
+ return scalar (@{shift->{_fields}->{Filter}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSubnetsResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSubnetsResponse.pm
new file mode 100644
index 0000000..bb3acdb
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSubnetsResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeSubnetsResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeSubnetsResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # DescribeSubnetsResult: Amazon::EC2::Model::DescribeSubnetsResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ DescribeSubnetsResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::DescribeSubnetsResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DescribeSubnetsResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DescribeSubnetsResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getDescribeSubnetsResult {
+ return shift->{_fields}->{DescribeSubnetsResult}->{FieldValue};
+ }
+
+
+ sub setDescribeSubnetsResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{DescribeSubnetsResult}->{FieldValue} = $value;
+ }
+
+
+ sub withDescribeSubnetsResult {
+ my ($self, $value) = @_;
+ $self->setDescribeSubnetsResult($value);
+ return $self;
+ }
+
+
+ sub isSetDescribeSubnetsResult {
+ return defined (shift->{_fields}->{DescribeSubnetsResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSubnetsResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSubnetsResponse.xslt
new file mode 100644
index 0000000..0fe2283
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSubnetsResponse.xslt
@@ -0,0 +1,44 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSubnetsResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSubnetsResult.pm
new file mode 100644
index 0000000..edfe65a
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeSubnetsResult.pm
@@ -0,0 +1,89 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeSubnetsResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeSubnetsResult
+ #
+ # Properties:
+ #
+ #
+ # Subnet: Amazon::EC2::Model::Subnet
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ Subnet => {FieldValue => [], FieldType => ["Amazon::EC2::Model::Subnet"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getSubnet {
+ return shift->{_fields}->{Subnet}->{FieldValue};
+ }
+
+ sub setSubnet {
+ my $self = shift;
+ foreach my $subnet (@_) {
+ if (not $self->_isArrayRef($subnet)) {
+ $subnet = [$subnet];
+ }
+ $self->{_fields}->{Subnet}->{FieldValue} = $subnet;
+ }
+ }
+
+
+ sub withSubnet {
+ my ($self, $subnetArgs) = @_;
+ foreach my $subnet (@$subnetArgs) {
+ $self->{_fields}->{Subnet}->{FieldValue} = $subnet;
+ }
+ return $self;
+ }
+
+
+ sub isSetSubnet {
+ return scalar (@{shift->{_fields}->{Subnet}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVolumesRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVolumesRequest.pm
new file mode 100644
index 0000000..403a6d7
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVolumesRequest.pm
@@ -0,0 +1,88 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeVolumesRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeVolumesRequest
+ #
+ # Properties:
+ #
+ #
+ # VolumeId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ VolumeId => {FieldValue => [], FieldType => ["string"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getVolumeId {
+ return shift->{_fields}->{VolumeId}->{FieldValue};
+ }
+
+
+ sub setVolumeId {
+ my ($self, $value) = @_;
+ $self->{_fields}->{VolumeId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withVolumeId {
+ my $self = shift;
+ my $list = $self->{_fields}->{VolumeId}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetVolumeId {
+ return scalar (@{shift->{_fields}->{VolumeId}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVolumesResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVolumesResponse.pm
new file mode 100644
index 0000000..d142c15
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVolumesResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeVolumesResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeVolumesResponse
+ #
+ # Properties:
+ #
+ #
+ # DescribeVolumesResult: Amazon::EC2::Model::DescribeVolumesResult
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ DescribeVolumesResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::DescribeVolumesResult"},
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DescribeVolumesResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DescribeVolumesResponse($tree);
+
+ }
+
+ sub getDescribeVolumesResult {
+ return shift->{_fields}->{DescribeVolumesResult}->{FieldValue};
+ }
+
+
+ sub setDescribeVolumesResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{DescribeVolumesResult}->{FieldValue} = $value;
+ }
+
+
+ sub withDescribeVolumesResult {
+ my ($self, $value) = @_;
+ $self->setDescribeVolumesResult($value);
+ return $self;
+ }
+
+
+ sub isSetDescribeVolumesResult {
+ return defined (shift->{_fields}->{DescribeVolumesResult}->{FieldValue});
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVolumesResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVolumesResponse.xslt
new file mode 100644
index 0000000..1b8352e
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVolumesResponse.xslt
@@ -0,0 +1,69 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ false
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVolumesResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVolumesResult.pm
new file mode 100644
index 0000000..cddfb3f
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVolumesResult.pm
@@ -0,0 +1,89 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeVolumesResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeVolumesResult
+ #
+ # Properties:
+ #
+ #
+ # Volume: Amazon::EC2::Model::Volume
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ Volume => {FieldValue => [], FieldType => ["Amazon::EC2::Model::Volume"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getVolume {
+ return shift->{_fields}->{Volume}->{FieldValue};
+ }
+
+ sub setVolume {
+ my $self = shift;
+ foreach my $volume (@_) {
+ if (not $self->_isArrayRef($volume)) {
+ $volume = [$volume];
+ }
+ $self->{_fields}->{Volume}->{FieldValue} = $volume;
+ }
+ }
+
+
+ sub withVolume {
+ my ($self, $volumeArgs) = @_;
+ foreach my $volume (@$volumeArgs) {
+ $self->{_fields}->{Volume}->{FieldValue} = $volume;
+ }
+ return $self;
+ }
+
+
+ sub isSetVolume {
+ return scalar (@{shift->{_fields}->{Volume}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpcsRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpcsRequest.pm
new file mode 100644
index 0000000..93990af
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpcsRequest.pm
@@ -0,0 +1,118 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeVpcsRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeVpcsRequest
+ #
+ # Properties:
+ #
+ #
+ # VpcId: string
+ # Filter: Amazon::EC2::Model::Filter
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ VpcId => {FieldValue => [], FieldType => ["string"]},
+ Filter => {FieldValue => [], FieldType => ["Amazon::EC2::Model::Filter"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getVpcId {
+ return shift->{_fields}->{VpcId}->{FieldValue};
+ }
+
+
+ sub setVpcId {
+ my ($self, $value) = @_;
+ $self->{_fields}->{VpcId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withVpcId {
+ my $self = shift;
+ my $list = $self->{_fields}->{VpcId}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetVpcId {
+ return scalar (@{shift->{_fields}->{VpcId}->{FieldValue}}) > 0;
+ }
+
+ sub getFilter {
+ return shift->{_fields}->{Filter}->{FieldValue};
+ }
+
+ sub setFilter {
+ my $self = shift;
+ foreach my $filter (@_) {
+ if (not $self->_isArrayRef($filter)) {
+ $filter = [$filter];
+ }
+ $self->{_fields}->{Filter}->{FieldValue} = $filter;
+ }
+ }
+
+
+ sub withFilter {
+ my ($self, $filterArgs) = @_;
+ foreach my $filter (@$filterArgs) {
+ $self->{_fields}->{Filter}->{FieldValue} = $filter;
+ }
+ return $self;
+ }
+
+
+ sub isSetFilter {
+ return scalar (@{shift->{_fields}->{Filter}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpcsResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpcsResponse.pm
new file mode 100644
index 0000000..6ac36d9
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpcsResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeVpcsResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeVpcsResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # DescribeVpcsResult: Amazon::EC2::Model::DescribeVpcsResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ DescribeVpcsResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::DescribeVpcsResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DescribeVpcsResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DescribeVpcsResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getDescribeVpcsResult {
+ return shift->{_fields}->{DescribeVpcsResult}->{FieldValue};
+ }
+
+
+ sub setDescribeVpcsResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{DescribeVpcsResult}->{FieldValue} = $value;
+ }
+
+
+ sub withDescribeVpcsResult {
+ my ($self, $value) = @_;
+ $self->setDescribeVpcsResult($value);
+ return $self;
+ }
+
+
+ sub isSetDescribeVpcsResult {
+ return defined (shift->{_fields}->{DescribeVpcsResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpcsResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpcsResponse.xslt
new file mode 100644
index 0000000..3ee9a6e
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpcsResponse.xslt
@@ -0,0 +1,36 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpcsResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpcsResult.pm
new file mode 100644
index 0000000..d86cd73
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpcsResult.pm
@@ -0,0 +1,89 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeVpcsResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeVpcsResult
+ #
+ # Properties:
+ #
+ #
+ # Vpc: Amazon::EC2::Model::Vpc
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ Vpc => {FieldValue => [], FieldType => ["Amazon::EC2::Model::Vpc"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getVpc {
+ return shift->{_fields}->{Vpc}->{FieldValue};
+ }
+
+ sub setVpc {
+ my $self = shift;
+ foreach my $vpc (@_) {
+ if (not $self->_isArrayRef($vpc)) {
+ $vpc = [$vpc];
+ }
+ $self->{_fields}->{Vpc}->{FieldValue} = $vpc;
+ }
+ }
+
+
+ sub withVpc {
+ my ($self, $vpcArgs) = @_;
+ foreach my $vpc (@$vpcArgs) {
+ $self->{_fields}->{Vpc}->{FieldValue} = $vpc;
+ }
+ return $self;
+ }
+
+
+ sub isSetVpc {
+ return scalar (@{shift->{_fields}->{Vpc}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpnConnectionsRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpnConnectionsRequest.pm
new file mode 100644
index 0000000..2f33965
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpnConnectionsRequest.pm
@@ -0,0 +1,118 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeVpnConnectionsRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeVpnConnectionsRequest
+ #
+ # Properties:
+ #
+ #
+ # VpnConnectionId: string
+ # Filter: Amazon::EC2::Model::Filter
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ VpnConnectionId => {FieldValue => [], FieldType => ["string"]},
+ Filter => {FieldValue => [], FieldType => ["Amazon::EC2::Model::Filter"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getVpnConnectionId {
+ return shift->{_fields}->{VpnConnectionId}->{FieldValue};
+ }
+
+
+ sub setVpnConnectionId {
+ my ($self, $value) = @_;
+ $self->{_fields}->{VpnConnectionId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withVpnConnectionId {
+ my $self = shift;
+ my $list = $self->{_fields}->{VpnConnectionId}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetVpnConnectionId {
+ return scalar (@{shift->{_fields}->{VpnConnectionId}->{FieldValue}}) > 0;
+ }
+
+ sub getFilter {
+ return shift->{_fields}->{Filter}->{FieldValue};
+ }
+
+ sub setFilter {
+ my $self = shift;
+ foreach my $filter (@_) {
+ if (not $self->_isArrayRef($filter)) {
+ $filter = [$filter];
+ }
+ $self->{_fields}->{Filter}->{FieldValue} = $filter;
+ }
+ }
+
+
+ sub withFilter {
+ my ($self, $filterArgs) = @_;
+ foreach my $filter (@$filterArgs) {
+ $self->{_fields}->{Filter}->{FieldValue} = $filter;
+ }
+ return $self;
+ }
+
+
+ sub isSetFilter {
+ return scalar (@{shift->{_fields}->{Filter}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpnConnectionsResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpnConnectionsResponse.pm
new file mode 100644
index 0000000..1cf56a9
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpnConnectionsResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeVpnConnectionsResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeVpnConnectionsResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # DescribeVpnConnectionsResult: Amazon::EC2::Model::DescribeVpnConnectionsResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ DescribeVpnConnectionsResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::DescribeVpnConnectionsResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DescribeVpnConnectionsResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DescribeVpnConnectionsResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getDescribeVpnConnectionsResult {
+ return shift->{_fields}->{DescribeVpnConnectionsResult}->{FieldValue};
+ }
+
+
+ sub setDescribeVpnConnectionsResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{DescribeVpnConnectionsResult}->{FieldValue} = $value;
+ }
+
+
+ sub withDescribeVpnConnectionsResult {
+ my ($self, $value) = @_;
+ $self->setDescribeVpnConnectionsResult($value);
+ return $self;
+ }
+
+
+ sub isSetDescribeVpnConnectionsResult {
+ return defined (shift->{_fields}->{DescribeVpnConnectionsResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpnConnectionsResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpnConnectionsResponse.xslt
new file mode 100644
index 0000000..34d2b07
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpnConnectionsResponse.xslt
@@ -0,0 +1,47 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpnConnectionsResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpnConnectionsResult.pm
new file mode 100644
index 0000000..2266c6a
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpnConnectionsResult.pm
@@ -0,0 +1,89 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeVpnConnectionsResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeVpnConnectionsResult
+ #
+ # Properties:
+ #
+ #
+ # VpnConnection: Amazon::EC2::Model::VpnConnection
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ VpnConnection => {FieldValue => [], FieldType => ["Amazon::EC2::Model::VpnConnection"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getVpnConnection {
+ return shift->{_fields}->{VpnConnection}->{FieldValue};
+ }
+
+ sub setVpnConnection {
+ my $self = shift;
+ foreach my $vpnConnection (@_) {
+ if (not $self->_isArrayRef($vpnConnection)) {
+ $vpnConnection = [$vpnConnection];
+ }
+ $self->{_fields}->{VpnConnection}->{FieldValue} = $vpnConnection;
+ }
+ }
+
+
+ sub withVpnConnection {
+ my ($self, $vpnConnectionArgs) = @_;
+ foreach my $vpnConnection (@$vpnConnectionArgs) {
+ $self->{_fields}->{VpnConnection}->{FieldValue} = $vpnConnection;
+ }
+ return $self;
+ }
+
+
+ sub isSetVpnConnection {
+ return scalar (@{shift->{_fields}->{VpnConnection}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpnGatewaysRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpnGatewaysRequest.pm
new file mode 100644
index 0000000..f12bd38
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpnGatewaysRequest.pm
@@ -0,0 +1,118 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeVpnGatewaysRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeVpnGatewaysRequest
+ #
+ # Properties:
+ #
+ #
+ # VpnGatewayId: string
+ # Filter: Amazon::EC2::Model::Filter
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ VpnGatewayId => {FieldValue => [], FieldType => ["string"]},
+ Filter => {FieldValue => [], FieldType => ["Amazon::EC2::Model::Filter"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getVpnGatewayId {
+ return shift->{_fields}->{VpnGatewayId}->{FieldValue};
+ }
+
+
+ sub setVpnGatewayId {
+ my ($self, $value) = @_;
+ $self->{_fields}->{VpnGatewayId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withVpnGatewayId {
+ my $self = shift;
+ my $list = $self->{_fields}->{VpnGatewayId}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetVpnGatewayId {
+ return scalar (@{shift->{_fields}->{VpnGatewayId}->{FieldValue}}) > 0;
+ }
+
+ sub getFilter {
+ return shift->{_fields}->{Filter}->{FieldValue};
+ }
+
+ sub setFilter {
+ my $self = shift;
+ foreach my $filter (@_) {
+ if (not $self->_isArrayRef($filter)) {
+ $filter = [$filter];
+ }
+ $self->{_fields}->{Filter}->{FieldValue} = $filter;
+ }
+ }
+
+
+ sub withFilter {
+ my ($self, $filterArgs) = @_;
+ foreach my $filter (@$filterArgs) {
+ $self->{_fields}->{Filter}->{FieldValue} = $filter;
+ }
+ return $self;
+ }
+
+
+ sub isSetFilter {
+ return scalar (@{shift->{_fields}->{Filter}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpnGatewaysResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpnGatewaysResponse.pm
new file mode 100644
index 0000000..08e7304
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpnGatewaysResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeVpnGatewaysResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeVpnGatewaysResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # DescribeVpnGatewaysResult: Amazon::EC2::Model::DescribeVpnGatewaysResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ DescribeVpnGatewaysResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::DescribeVpnGatewaysResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DescribeVpnGatewaysResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DescribeVpnGatewaysResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getDescribeVpnGatewaysResult {
+ return shift->{_fields}->{DescribeVpnGatewaysResult}->{FieldValue};
+ }
+
+
+ sub setDescribeVpnGatewaysResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{DescribeVpnGatewaysResult}->{FieldValue} = $value;
+ }
+
+
+ sub withDescribeVpnGatewaysResult {
+ my ($self, $value) = @_;
+ $self->setDescribeVpnGatewaysResult($value);
+ return $self;
+ }
+
+
+ sub isSetDescribeVpnGatewaysResult {
+ return defined (shift->{_fields}->{DescribeVpnGatewaysResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpnGatewaysResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpnGatewaysResponse.xslt
new file mode 100644
index 0000000..0a53763
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpnGatewaysResponse.xslt
@@ -0,0 +1,53 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpnGatewaysResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpnGatewaysResult.pm
new file mode 100644
index 0000000..0212b19
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DescribeVpnGatewaysResult.pm
@@ -0,0 +1,89 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DescribeVpnGatewaysResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DescribeVpnGatewaysResult
+ #
+ # Properties:
+ #
+ #
+ # VpnGateway: Amazon::EC2::Model::VpnGateway
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ VpnGateway => {FieldValue => [], FieldType => ["Amazon::EC2::Model::VpnGateway"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getVpnGateway {
+ return shift->{_fields}->{VpnGateway}->{FieldValue};
+ }
+
+ sub setVpnGateway {
+ my $self = shift;
+ foreach my $vpnGateway (@_) {
+ if (not $self->_isArrayRef($vpnGateway)) {
+ $vpnGateway = [$vpnGateway];
+ }
+ $self->{_fields}->{VpnGateway}->{FieldValue} = $vpnGateway;
+ }
+ }
+
+
+ sub withVpnGateway {
+ my ($self, $vpnGatewayArgs) = @_;
+ foreach my $vpnGateway (@$vpnGatewayArgs) {
+ $self->{_fields}->{VpnGateway}->{FieldValue} = $vpnGateway;
+ }
+ return $self;
+ }
+
+
+ sub isSetVpnGateway {
+ return scalar (@{shift->{_fields}->{VpnGateway}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DetachVolumeRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DetachVolumeRequest.pm
new file mode 100644
index 0000000..df48925
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DetachVolumeRequest.pm
@@ -0,0 +1,167 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DetachVolumeRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DetachVolumeRequest
+ #
+ # Properties:
+ #
+ #
+ # VolumeId: string
+ # InstanceId: string
+ # Device: string
+ # Force: bool
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ VolumeId => { FieldValue => undef, FieldType => "string"},
+ InstanceId => { FieldValue => undef, FieldType => "string"},
+ Device => { FieldValue => undef, FieldType => "string"},
+ Force => { FieldValue => undef, FieldType => "bool"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getVolumeId {
+ return shift->{_fields}->{VolumeId}->{FieldValue};
+ }
+
+
+ sub setVolumeId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VolumeId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVolumeId {
+ my ($self, $value) = @_;
+ $self->setVolumeId($value);
+ return $self;
+ }
+
+
+ sub isSetVolumeId {
+ return defined (shift->{_fields}->{VolumeId}->{FieldValue});
+ }
+
+
+ sub getInstanceId {
+ return shift->{_fields}->{InstanceId}->{FieldValue};
+ }
+
+
+ sub setInstanceId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceId {
+ my ($self, $value) = @_;
+ $self->setInstanceId($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceId {
+ return defined (shift->{_fields}->{InstanceId}->{FieldValue});
+ }
+
+
+ sub getDevice {
+ return shift->{_fields}->{Device}->{FieldValue};
+ }
+
+
+ sub setDevice {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Device}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withDevice {
+ my ($self, $value) = @_;
+ $self->setDevice($value);
+ return $self;
+ }
+
+
+ sub isSetDevice {
+ return defined (shift->{_fields}->{Device}->{FieldValue});
+ }
+
+
+ sub getForce {
+ return shift->{_fields}->{Force}->{FieldValue};
+ }
+
+
+ sub setForce {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Force}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withForce {
+ my ($self, $value) = @_;
+ $self->setForce($value);
+ return $self;
+ }
+
+
+ sub isSetForce {
+ return defined (shift->{_fields}->{Force}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DetachVolumeResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DetachVolumeResponse.pm
new file mode 100644
index 0000000..f68b198
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DetachVolumeResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DetachVolumeResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DetachVolumeResponse
+ #
+ # Properties:
+ #
+ #
+ # DetachVolumeResult: Amazon::EC2::Model::DetachVolumeResult
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ DetachVolumeResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::DetachVolumeResult"},
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DetachVolumeResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DetachVolumeResponse($tree);
+
+ }
+
+ sub getDetachVolumeResult {
+ return shift->{_fields}->{DetachVolumeResult}->{FieldValue};
+ }
+
+
+ sub setDetachVolumeResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{DetachVolumeResult}->{FieldValue} = $value;
+ }
+
+
+ sub withDetachVolumeResult {
+ my ($self, $value) = @_;
+ $self->setDetachVolumeResult($value);
+ return $self;
+ }
+
+
+ sub isSetDetachVolumeResult {
+ return defined (shift->{_fields}->{DetachVolumeResult}->{FieldValue});
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DetachVolumeResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DetachVolumeResponse.xslt
new file mode 100644
index 0000000..854d473
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DetachVolumeResponse.xslt
@@ -0,0 +1,39 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ false
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DetachVolumeResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DetachVolumeResult.pm
new file mode 100644
index 0000000..0243599
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DetachVolumeResult.pm
@@ -0,0 +1,84 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DetachVolumeResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DetachVolumeResult
+ #
+ # Properties:
+ #
+ #
+ # Attachment: Amazon::EC2::Model::Attachment
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ Attachment => {FieldValue => undef, FieldType => "Amazon::EC2::Model::Attachment"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getAttachment {
+ return shift->{_fields}->{Attachment}->{FieldValue};
+ }
+
+
+ sub setAttachment {
+ my ($self, $value) = @_;
+ $self->{_fields}->{Attachment}->{FieldValue} = $value;
+ }
+
+
+ sub withAttachment {
+ my ($self, $value) = @_;
+ $self->setAttachment($value);
+ return $self;
+ }
+
+
+ sub isSetAttachment {
+ return defined (shift->{_fields}->{Attachment}->{FieldValue});
+
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DetachVpnGatewayRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DetachVpnGatewayRequest.pm
new file mode 100644
index 0000000..75e0f46
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DetachVpnGatewayRequest.pm
@@ -0,0 +1,113 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DetachVpnGatewayRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DetachVpnGatewayRequest
+ #
+ # Properties:
+ #
+ #
+ # VpnGatewayId: string
+ # VpcId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ VpnGatewayId => { FieldValue => undef, FieldType => "string"},
+ VpcId => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getVpnGatewayId {
+ return shift->{_fields}->{VpnGatewayId}->{FieldValue};
+ }
+
+
+ sub setVpnGatewayId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VpnGatewayId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVpnGatewayId {
+ my ($self, $value) = @_;
+ $self->setVpnGatewayId($value);
+ return $self;
+ }
+
+
+ sub isSetVpnGatewayId {
+ return defined (shift->{_fields}->{VpnGatewayId}->{FieldValue});
+ }
+
+
+ sub getVpcId {
+ return shift->{_fields}->{VpcId}->{FieldValue};
+ }
+
+
+ sub setVpcId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VpcId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVpcId {
+ my ($self, $value) = @_;
+ $self->setVpcId($value);
+ return $self;
+ }
+
+
+ sub isSetVpcId {
+ return defined (shift->{_fields}->{VpcId}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DetachVpnGatewayResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DetachVpnGatewayResponse.pm
new file mode 100644
index 0000000..db7975e
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DetachVpnGatewayResponse.pm
@@ -0,0 +1,112 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DetachVpnGatewayResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DetachVpnGatewayResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DetachVpnGatewayResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DetachVpnGatewayResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DetachVpnGatewayResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DetachVpnGatewayResponse.xslt
new file mode 100644
index 0000000..1bd7eb6
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DetachVpnGatewayResponse.xslt
@@ -0,0 +1,17 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DhcpConfiguration.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DhcpConfiguration.pm
new file mode 100644
index 0000000..de63021
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DhcpConfiguration.pm
@@ -0,0 +1,115 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DhcpConfiguration;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DhcpConfiguration
+ #
+ # Properties:
+ #
+ #
+ # Key: string
+ # Value: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ Key => { FieldValue => undef, FieldType => "string"},
+ Value => {FieldValue => [], FieldType => ["string"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getKey {
+ return shift->{_fields}->{Key}->{FieldValue};
+ }
+
+
+ sub setKey {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Key}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withKey {
+ my ($self, $value) = @_;
+ $self->setKey($value);
+ return $self;
+ }
+
+
+ sub isSetKey {
+ return defined (shift->{_fields}->{Key}->{FieldValue});
+ }
+
+ sub getValue {
+ return shift->{_fields}->{Value}->{FieldValue};
+ }
+
+
+ sub setValue {
+ my ($self, $value) = @_;
+ $self->{_fields}->{Value}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withValue {
+ my $self = shift;
+ my $list = $self->{_fields}->{Value}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetValue {
+ return scalar (@{shift->{_fields}->{Value}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DhcpOptions.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DhcpOptions.pm
new file mode 100644
index 0000000..7d382f3
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DhcpOptions.pm
@@ -0,0 +1,116 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DhcpOptions;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DhcpOptions
+ #
+ # Properties:
+ #
+ #
+ # DhcpOptionsId: string
+ # Configuration: Amazon::EC2::Model::DhcpConfiguration
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ DhcpOptionsId => { FieldValue => undef, FieldType => "string"},
+ Configuration => {FieldValue => [], FieldType => ["Amazon::EC2::Model::DhcpConfiguration"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getDhcpOptionsId {
+ return shift->{_fields}->{DhcpOptionsId}->{FieldValue};
+ }
+
+
+ sub setDhcpOptionsId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{DhcpOptionsId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withDhcpOptionsId {
+ my ($self, $value) = @_;
+ $self->setDhcpOptionsId($value);
+ return $self;
+ }
+
+
+ sub isSetDhcpOptionsId {
+ return defined (shift->{_fields}->{DhcpOptionsId}->{FieldValue});
+ }
+
+ sub getConfiguration {
+ return shift->{_fields}->{Configuration}->{FieldValue};
+ }
+
+ sub setConfiguration {
+ my $self = shift;
+ foreach my $configuration (@_) {
+ if (not $self->_isArrayRef($configuration)) {
+ $configuration = [$configuration];
+ }
+ $self->{_fields}->{Configuration}->{FieldValue} = $configuration;
+ }
+ }
+
+
+ sub withConfiguration {
+ my ($self, $configurationArgs) = @_;
+ foreach my $configuration (@$configurationArgs) {
+ $self->{_fields}->{Configuration}->{FieldValue} = $configuration;
+ }
+ return $self;
+ }
+
+
+ sub isSetConfiguration {
+ return scalar (@{shift->{_fields}->{Configuration}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DisassociateAddressRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DisassociateAddressRequest.pm
new file mode 100644
index 0000000..945b3f6
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DisassociateAddressRequest.pm
@@ -0,0 +1,86 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DisassociateAddressRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DisassociateAddressRequest
+ #
+ # Properties:
+ #
+ #
+ # PublicIp: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ PublicIp => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getPublicIp {
+ return shift->{_fields}->{PublicIp}->{FieldValue};
+ }
+
+
+ sub setPublicIp {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{PublicIp}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withPublicIp {
+ my ($self, $value) = @_;
+ $self->setPublicIp($value);
+ return $self;
+ }
+
+
+ sub isSetPublicIp {
+ return defined (shift->{_fields}->{PublicIp}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DisassociateAddressResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/DisassociateAddressResponse.pm
new file mode 100644
index 0000000..3d84728
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DisassociateAddressResponse.pm
@@ -0,0 +1,112 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::DisassociateAddressResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::DisassociateAddressResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::DisassociateAddressResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::DisassociateAddressResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/DisassociateAddressResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/DisassociateAddressResponse.xslt
new file mode 100644
index 0000000..dca96da
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/DisassociateAddressResponse.xslt
@@ -0,0 +1,17 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/EbsBlockDevice.pm b/src/main/resources/project/lib/Amazon/EC2/Model/EbsBlockDevice.pm
new file mode 100644
index 0000000..03cc9ee
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/EbsBlockDevice.pm
@@ -0,0 +1,140 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::EbsBlockDevice;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::EbsBlockDevice
+ #
+ # Properties:
+ #
+ #
+ # SnapshotId: string
+ # VolumeSize: int
+ # DeleteOnTermination: bool
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ SnapshotId => { FieldValue => undef, FieldType => "string"},
+ VolumeSize => { FieldValue => undef, FieldType => "int"},
+ DeleteOnTermination => { FieldValue => undef, FieldType => "bool"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getSnapshotId {
+ return shift->{_fields}->{SnapshotId}->{FieldValue};
+ }
+
+
+ sub setSnapshotId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{SnapshotId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withSnapshotId {
+ my ($self, $value) = @_;
+ $self->setSnapshotId($value);
+ return $self;
+ }
+
+
+ sub isSetSnapshotId {
+ return defined (shift->{_fields}->{SnapshotId}->{FieldValue});
+ }
+
+
+ sub getVolumeSize {
+ return shift->{_fields}->{VolumeSize}->{FieldValue};
+ }
+
+
+ sub setVolumeSize {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VolumeSize}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVolumeSize {
+ my ($self, $value) = @_;
+ $self->setVolumeSize($value);
+ return $self;
+ }
+
+
+ sub isSetVolumeSize {
+ return defined (shift->{_fields}->{VolumeSize}->{FieldValue});
+ }
+
+
+ sub getDeleteOnTermination {
+ return shift->{_fields}->{DeleteOnTermination}->{FieldValue};
+ }
+
+
+ sub setDeleteOnTermination {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{DeleteOnTermination}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withDeleteOnTermination {
+ my ($self, $value) = @_;
+ $self->setDeleteOnTermination($value);
+ return $self;
+ }
+
+
+ sub isSetDeleteOnTermination {
+ return defined (shift->{_fields}->{DeleteOnTermination}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/Error.pm b/src/main/resources/project/lib/Amazon/EC2/Model/Error.pm
new file mode 100644
index 0000000..ec3c7e9
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/Error.pm
@@ -0,0 +1,165 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::Error;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::Error
+ #
+ # Properties:
+ #
+ #
+ # Type: string
+ # Code: string
+ # Message: string
+ # Detail: Amazon::EC2::Model::Object
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ Type => { FieldValue => undef, FieldType => "string"},
+ Code => { FieldValue => undef, FieldType => "string"},
+ Message => { FieldValue => undef, FieldType => "string"},
+ Detail => {FieldValue => undef, FieldType => "Amazon::EC2::Model::Object"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getType {
+ return shift->{_fields}->{Type}->{FieldValue};
+ }
+
+
+ sub setType {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Type}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withType {
+ my ($self, $value) = @_;
+ $self->setType($value);
+ return $self;
+ }
+
+
+ sub isSetType {
+ return defined (shift->{_fields}->{Type}->{FieldValue});
+ }
+
+
+ sub getCode {
+ return shift->{_fields}->{Code}->{FieldValue};
+ }
+
+
+ sub setCode {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Code}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withCode {
+ my ($self, $value) = @_;
+ $self->setCode($value);
+ return $self;
+ }
+
+
+ sub isSetCode {
+ return defined (shift->{_fields}->{Code}->{FieldValue});
+ }
+
+
+ sub getMessage {
+ return shift->{_fields}->{Message}->{FieldValue};
+ }
+
+
+ sub setMessage {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Message}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withMessage {
+ my ($self, $value) = @_;
+ $self->setMessage($value);
+ return $self;
+ }
+
+
+ sub isSetMessage {
+ return defined (shift->{_fields}->{Message}->{FieldValue});
+ }
+
+ sub getDetail {
+ return shift->{_fields}->{Detail}->{FieldValue};
+ }
+
+
+ sub setDetail {
+ my ($self, $value) = @_;
+ $self->{_fields}->{Detail}->{FieldValue} = $value;
+ }
+
+
+ sub withDetail {
+ my ($self, $value) = @_;
+ $self->setDetail($value);
+ return $self;
+ }
+
+
+ sub isSetDetail {
+ return defined (shift->{_fields}->{Detail}->{FieldValue});
+
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/ErrorResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/ErrorResponse.pm
new file mode 100644
index 0000000..8de6e64
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/ErrorResponse.pm
@@ -0,0 +1,144 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::ErrorResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::ErrorResponse
+ #
+ # Properties:
+ #
+ #
+ # Error: Amazon::EC2::Model::Error
+ # RequestId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ Error => {FieldValue => [], FieldType => ["Amazon::EC2::Model::Error"]},
+ RequestId => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::ErrorResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::ErrorResponse($tree);
+
+ }
+
+ sub getError {
+ return shift->{_fields}->{Error}->{FieldValue};
+ }
+
+ sub setError {
+ my $self = shift;
+ foreach my $error (@_) {
+ if (not $self->_isArrayRef($error)) {
+ $error = [$error];
+ }
+ $self->{_fields}->{Error}->{FieldValue} = $error;
+ }
+ }
+
+
+ sub withError {
+ my ($self, $errorArgs) = @_;
+ foreach my $error (@$errorArgs) {
+ $self->{_fields}->{Error}->{FieldValue} = $error;
+ }
+ return $self;
+ }
+
+
+ sub isSetError {
+ return scalar (@{shift->{_fields}->{Error}->{FieldValue}}) > 0;
+ }
+
+
+ sub getRequestId {
+ return shift->{_fields}->{RequestId}->{FieldValue};
+ }
+
+
+ sub setRequestId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{RequestId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withRequestId {
+ my ($self, $value) = @_;
+ $self->setRequestId($value);
+ return $self;
+ }
+
+
+ sub isSetRequestId {
+ return defined (shift->{_fields}->{RequestId}->{FieldValue});
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/Filter.pm b/src/main/resources/project/lib/Amazon/EC2/Model/Filter.pm
new file mode 100644
index 0000000..8d6e3eb
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/Filter.pm
@@ -0,0 +1,115 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::Filter;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::Filter
+ #
+ # Properties:
+ #
+ #
+ # Name: string
+ # Value: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ Name => { FieldValue => undef, FieldType => "string"},
+ Value => {FieldValue => [], FieldType => ["string"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getName {
+ return shift->{_fields}->{Name}->{FieldValue};
+ }
+
+
+ sub setName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Name}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withName {
+ my ($self, $value) = @_;
+ $self->setName($value);
+ return $self;
+ }
+
+
+ sub isSetName {
+ return defined (shift->{_fields}->{Name}->{FieldValue});
+ }
+
+ sub getValue {
+ return shift->{_fields}->{Value}->{FieldValue};
+ }
+
+
+ sub setValue {
+ my ($self, $value) = @_;
+ $self->{_fields}->{Value}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withValue {
+ my $self = shift;
+ my $list = $self->{_fields}->{Value}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetValue {
+ return scalar (@{shift->{_fields}->{Value}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/GetConsoleOutputRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/GetConsoleOutputRequest.pm
new file mode 100644
index 0000000..def39ec
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/GetConsoleOutputRequest.pm
@@ -0,0 +1,86 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::GetConsoleOutputRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::GetConsoleOutputRequest
+ #
+ # Properties:
+ #
+ #
+ # InstanceId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ InstanceId => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getInstanceId {
+ return shift->{_fields}->{InstanceId}->{FieldValue};
+ }
+
+
+ sub setInstanceId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceId {
+ my ($self, $value) = @_;
+ $self->setInstanceId($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceId {
+ return defined (shift->{_fields}->{InstanceId}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/GetConsoleOutputResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/GetConsoleOutputResponse.pm
new file mode 100644
index 0000000..cca3669
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/GetConsoleOutputResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::GetConsoleOutputResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::GetConsoleOutputResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # GetConsoleOutputResult: Amazon::EC2::Model::GetConsoleOutputResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ GetConsoleOutputResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::GetConsoleOutputResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::GetConsoleOutputResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::GetConsoleOutputResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getGetConsoleOutputResult {
+ return shift->{_fields}->{GetConsoleOutputResult}->{FieldValue};
+ }
+
+
+ sub setGetConsoleOutputResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{GetConsoleOutputResult}->{FieldValue} = $value;
+ }
+
+
+ sub withGetConsoleOutputResult {
+ my ($self, $value) = @_;
+ $self->setGetConsoleOutputResult($value);
+ return $self;
+ }
+
+
+ sub isSetGetConsoleOutputResult {
+ return defined (shift->{_fields}->{GetConsoleOutputResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/GetConsoleOutputResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/GetConsoleOutputResponse.xslt
new file mode 100644
index 0000000..8530074
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/GetConsoleOutputResponse.xslt
@@ -0,0 +1,27 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/GetConsoleOutputResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/GetConsoleOutputResult.pm
new file mode 100644
index 0000000..184f437
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/GetConsoleOutputResult.pm
@@ -0,0 +1,84 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::GetConsoleOutputResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::GetConsoleOutputResult
+ #
+ # Properties:
+ #
+ #
+ # ConsoleOutput: Amazon::EC2::Model::ConsoleOutput
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ConsoleOutput => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ConsoleOutput"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getConsoleOutput {
+ return shift->{_fields}->{ConsoleOutput}->{FieldValue};
+ }
+
+
+ sub setConsoleOutput {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ConsoleOutput}->{FieldValue} = $value;
+ }
+
+
+ sub withConsoleOutput {
+ my ($self, $value) = @_;
+ $self->setConsoleOutput($value);
+ return $self;
+ }
+
+
+ sub isSetConsoleOutput {
+ return defined (shift->{_fields}->{ConsoleOutput}->{FieldValue});
+
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/GetPasswordDataRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/GetPasswordDataRequest.pm
new file mode 100644
index 0000000..ebf63c8
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/GetPasswordDataRequest.pm
@@ -0,0 +1,86 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::GetPasswordDataRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::GetPasswordDataRequest
+ #
+ # Properties:
+ #
+ #
+ # InstanceId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ InstanceId => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getInstanceId {
+ return shift->{_fields}->{InstanceId}->{FieldValue};
+ }
+
+
+ sub setInstanceId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceId {
+ my ($self, $value) = @_;
+ $self->setInstanceId($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceId {
+ return defined (shift->{_fields}->{InstanceId}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/GetPasswordDataResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/GetPasswordDataResponse.pm
new file mode 100644
index 0000000..bc778dc
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/GetPasswordDataResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::GetPasswordDataResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::GetPasswordDataResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # GetPasswordDataResult: Amazon::EC2::Model::GetPasswordDataResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ GetPasswordDataResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::GetPasswordDataResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::GetPasswordDataResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::GetPasswordDataResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getGetPasswordDataResult {
+ return shift->{_fields}->{GetPasswordDataResult}->{FieldValue};
+ }
+
+
+ sub setGetPasswordDataResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{GetPasswordDataResult}->{FieldValue} = $value;
+ }
+
+
+ sub withGetPasswordDataResult {
+ my ($self, $value) = @_;
+ $self->setGetPasswordDataResult($value);
+ return $self;
+ }
+
+
+ sub isSetGetPasswordDataResult {
+ return defined (shift->{_fields}->{GetPasswordDataResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/GetPasswordDataResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/GetPasswordDataResponse.xslt
new file mode 100644
index 0000000..ed6c9e3
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/GetPasswordDataResponse.xslt
@@ -0,0 +1,27 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/GetPasswordDataResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/GetPasswordDataResult.pm
new file mode 100644
index 0000000..91a391d
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/GetPasswordDataResult.pm
@@ -0,0 +1,84 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::GetPasswordDataResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::GetPasswordDataResult
+ #
+ # Properties:
+ #
+ #
+ # PasswordData: Amazon::EC2::Model::PasswordData
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ PasswordData => {FieldValue => undef, FieldType => "Amazon::EC2::Model::PasswordData"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getPasswordData {
+ return shift->{_fields}->{PasswordData}->{FieldValue};
+ }
+
+
+ sub setPasswordData {
+ my ($self, $value) = @_;
+ $self->{_fields}->{PasswordData}->{FieldValue} = $value;
+ }
+
+
+ sub withPasswordData {
+ my ($self, $value) = @_;
+ $self->setPasswordData($value);
+ return $self;
+ }
+
+
+ sub isSetPasswordData {
+ return defined (shift->{_fields}->{PasswordData}->{FieldValue});
+
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/Image.pm b/src/main/resources/project/lib/Amazon/EC2/Model/Image.pm
new file mode 100644
index 0000000..393c02e
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/Image.pm
@@ -0,0 +1,575 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::Image;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::Image
+ #
+ # Properties:
+ #
+ #
+ # ImageId: string
+ # ImageLocation: string
+ # ImageState: string
+ # OwnerId: string
+ # Visibility: string
+ # ProductCode: string
+ # Architecture: string
+ # ImageType: string
+ # KernelId: string
+ # RamdiskId: string
+ # Platform: string
+ # StateReason: Amazon::EC2::Model::StateReason
+ # ImageOwnerAlias: string
+ # Name: string
+ # Description: string
+ # RootDeviceType: string
+ # RootDeviceName: string
+ # BlockDeviceMapping: Amazon::EC2::Model::BlockDeviceMapping
+ # VirtualizationType: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ImageId => { FieldValue => undef, FieldType => "string"},
+ ImageLocation => { FieldValue => undef, FieldType => "string"},
+ ImageState => { FieldValue => undef, FieldType => "string"},
+ OwnerId => { FieldValue => undef, FieldType => "string"},
+ Visibility => { FieldValue => undef, FieldType => "string"},
+ ProductCode => {FieldValue => [], FieldType => ["string"]},
+ Architecture => { FieldValue => undef, FieldType => "string"},
+ ImageType => { FieldValue => undef, FieldType => "string"},
+ KernelId => { FieldValue => undef, FieldType => "string"},
+ RamdiskId => { FieldValue => undef, FieldType => "string"},
+ Platform => { FieldValue => undef, FieldType => "string"},
+ StateReason => {FieldValue => undef, FieldType => "Amazon::EC2::Model::StateReason"},
+ ImageOwnerAlias => { FieldValue => undef, FieldType => "string"},
+ Name => { FieldValue => undef, FieldType => "string"},
+ Description => { FieldValue => undef, FieldType => "string"},
+ RootDeviceType => { FieldValue => undef, FieldType => "string"},
+ RootDeviceName => { FieldValue => undef, FieldType => "string"},
+ BlockDeviceMapping => {FieldValue => [], FieldType => ["Amazon::EC2::Model::BlockDeviceMapping"]},
+ VirtualizationType => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getImageId {
+ return shift->{_fields}->{ImageId}->{FieldValue};
+ }
+
+
+ sub setImageId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ImageId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withImageId {
+ my ($self, $value) = @_;
+ $self->setImageId($value);
+ return $self;
+ }
+
+
+ sub isSetImageId {
+ return defined (shift->{_fields}->{ImageId}->{FieldValue});
+ }
+
+
+ sub getImageLocation {
+ return shift->{_fields}->{ImageLocation}->{FieldValue};
+ }
+
+
+ sub setImageLocation {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ImageLocation}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withImageLocation {
+ my ($self, $value) = @_;
+ $self->setImageLocation($value);
+ return $self;
+ }
+
+
+ sub isSetImageLocation {
+ return defined (shift->{_fields}->{ImageLocation}->{FieldValue});
+ }
+
+
+ sub getImageState {
+ return shift->{_fields}->{ImageState}->{FieldValue};
+ }
+
+
+ sub setImageState {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ImageState}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withImageState {
+ my ($self, $value) = @_;
+ $self->setImageState($value);
+ return $self;
+ }
+
+
+ sub isSetImageState {
+ return defined (shift->{_fields}->{ImageState}->{FieldValue});
+ }
+
+
+ sub getOwnerId {
+ return shift->{_fields}->{OwnerId}->{FieldValue};
+ }
+
+
+ sub setOwnerId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{OwnerId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withOwnerId {
+ my ($self, $value) = @_;
+ $self->setOwnerId($value);
+ return $self;
+ }
+
+
+ sub isSetOwnerId {
+ return defined (shift->{_fields}->{OwnerId}->{FieldValue});
+ }
+
+
+ sub getVisibility {
+ return shift->{_fields}->{Visibility}->{FieldValue};
+ }
+
+
+ sub setVisibility {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Visibility}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVisibility {
+ my ($self, $value) = @_;
+ $self->setVisibility($value);
+ return $self;
+ }
+
+
+ sub isSetVisibility {
+ return defined (shift->{_fields}->{Visibility}->{FieldValue});
+ }
+
+ sub getProductCode {
+ return shift->{_fields}->{ProductCode}->{FieldValue};
+ }
+
+
+ sub setProductCode {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ProductCode}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withProductCode {
+ my $self = shift;
+ my $list = $self->{_fields}->{ProductCode}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetProductCode {
+ return scalar (@{shift->{_fields}->{ProductCode}->{FieldValue}}) > 0;
+ }
+
+
+ sub getArchitecture {
+ return shift->{_fields}->{Architecture}->{FieldValue};
+ }
+
+
+ sub setArchitecture {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Architecture}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withArchitecture {
+ my ($self, $value) = @_;
+ $self->setArchitecture($value);
+ return $self;
+ }
+
+
+ sub isSetArchitecture {
+ return defined (shift->{_fields}->{Architecture}->{FieldValue});
+ }
+
+
+ sub getImageType {
+ return shift->{_fields}->{ImageType}->{FieldValue};
+ }
+
+
+ sub setImageType {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ImageType}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withImageType {
+ my ($self, $value) = @_;
+ $self->setImageType($value);
+ return $self;
+ }
+
+
+ sub isSetImageType {
+ return defined (shift->{_fields}->{ImageType}->{FieldValue});
+ }
+
+
+ sub getKernelId {
+ return shift->{_fields}->{KernelId}->{FieldValue};
+ }
+
+
+ sub setKernelId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{KernelId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withKernelId {
+ my ($self, $value) = @_;
+ $self->setKernelId($value);
+ return $self;
+ }
+
+
+ sub isSetKernelId {
+ return defined (shift->{_fields}->{KernelId}->{FieldValue});
+ }
+
+
+ sub getRamdiskId {
+ return shift->{_fields}->{RamdiskId}->{FieldValue};
+ }
+
+
+ sub setRamdiskId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{RamdiskId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withRamdiskId {
+ my ($self, $value) = @_;
+ $self->setRamdiskId($value);
+ return $self;
+ }
+
+
+ sub isSetRamdiskId {
+ return defined (shift->{_fields}->{RamdiskId}->{FieldValue});
+ }
+
+
+ sub getPlatform {
+ return shift->{_fields}->{Platform}->{FieldValue};
+ }
+
+
+ sub setPlatform {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Platform}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withPlatform {
+ my ($self, $value) = @_;
+ $self->setPlatform($value);
+ return $self;
+ }
+
+
+ sub isSetPlatform {
+ return defined (shift->{_fields}->{Platform}->{FieldValue});
+ }
+
+ sub getStateReason {
+ return shift->{_fields}->{StateReason}->{FieldValue};
+ }
+
+
+ sub setStateReason {
+ my ($self, $value) = @_;
+ $self->{_fields}->{StateReason}->{FieldValue} = $value;
+ }
+
+
+ sub withStateReason {
+ my ($self, $value) = @_;
+ $self->setStateReason($value);
+ return $self;
+ }
+
+
+ sub isSetStateReason {
+ return defined (shift->{_fields}->{StateReason}->{FieldValue});
+
+ }
+
+
+ sub getImageOwnerAlias {
+ return shift->{_fields}->{ImageOwnerAlias}->{FieldValue};
+ }
+
+
+ sub setImageOwnerAlias {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ImageOwnerAlias}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withImageOwnerAlias {
+ my ($self, $value) = @_;
+ $self->setImageOwnerAlias($value);
+ return $self;
+ }
+
+
+ sub isSetImageOwnerAlias {
+ return defined (shift->{_fields}->{ImageOwnerAlias}->{FieldValue});
+ }
+
+
+ sub getName {
+ return shift->{_fields}->{Name}->{FieldValue};
+ }
+
+
+ sub setName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Name}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withName {
+ my ($self, $value) = @_;
+ $self->setName($value);
+ return $self;
+ }
+
+
+ sub isSetName {
+ return defined (shift->{_fields}->{Name}->{FieldValue});
+ }
+
+
+ sub getDescription {
+ return shift->{_fields}->{Description}->{FieldValue};
+ }
+
+
+ sub setDescription {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Description}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withDescription {
+ my ($self, $value) = @_;
+ $self->setDescription($value);
+ return $self;
+ }
+
+
+ sub isSetDescription {
+ return defined (shift->{_fields}->{Description}->{FieldValue});
+ }
+
+
+ sub getRootDeviceType {
+ return shift->{_fields}->{RootDeviceType}->{FieldValue};
+ }
+
+
+ sub setRootDeviceType {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{RootDeviceType}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withRootDeviceType {
+ my ($self, $value) = @_;
+ $self->setRootDeviceType($value);
+ return $self;
+ }
+
+
+ sub isSetRootDeviceType {
+ return defined (shift->{_fields}->{RootDeviceType}->{FieldValue});
+ }
+
+
+ sub getRootDeviceName {
+ return shift->{_fields}->{RootDeviceName}->{FieldValue};
+ }
+
+
+ sub setRootDeviceName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{RootDeviceName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withRootDeviceName {
+ my ($self, $value) = @_;
+ $self->setRootDeviceName($value);
+ return $self;
+ }
+
+
+ sub isSetRootDeviceName {
+ return defined (shift->{_fields}->{RootDeviceName}->{FieldValue});
+ }
+
+ sub getBlockDeviceMapping {
+ return shift->{_fields}->{BlockDeviceMapping}->{FieldValue};
+ }
+
+ sub setBlockDeviceMapping {
+ my $self = shift;
+ foreach my $blockDeviceMapping (@_) {
+ if (not $self->_isArrayRef($blockDeviceMapping)) {
+ $blockDeviceMapping = [$blockDeviceMapping];
+ }
+ $self->{_fields}->{BlockDeviceMapping}->{FieldValue} = $blockDeviceMapping;
+ }
+ }
+
+
+ sub withBlockDeviceMapping {
+ my ($self, $blockDeviceMappingArgs) = @_;
+ foreach my $blockDeviceMapping (@$blockDeviceMappingArgs) {
+ $self->{_fields}->{BlockDeviceMapping}->{FieldValue} = $blockDeviceMapping;
+ }
+ return $self;
+ }
+
+
+ sub isSetBlockDeviceMapping {
+ return scalar (@{shift->{_fields}->{BlockDeviceMapping}->{FieldValue}}) > 0;
+ }
+
+
+ sub getVirtualizationType {
+ return shift->{_fields}->{VirtualizationType}->{FieldValue};
+ }
+
+
+ sub setVirtualizationType {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VirtualizationType}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVirtualizationType {
+ my ($self, $value) = @_;
+ $self->setVirtualizationType($value);
+ return $self;
+ }
+
+
+ sub isSetVirtualizationType {
+ return defined (shift->{_fields}->{VirtualizationType}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/ImageAttribute.pm b/src/main/resources/project/lib/Amazon/EC2/Model/ImageAttribute.pm
new file mode 100644
index 0000000..ff01277
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/ImageAttribute.pm
@@ -0,0 +1,251 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::ImageAttribute;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::ImageAttribute
+ #
+ # Properties:
+ #
+ #
+ # ImageId: string
+ # LaunchPermission: Amazon::EC2::Model::LaunchPermission
+ # ProductCode: string
+ # KernelId: string
+ # RamdiskId: string
+ # Description: string
+ # BlockDeviceMapping: Amazon::EC2::Model::BlockDeviceMapping
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ImageId => { FieldValue => undef, FieldType => "string"},
+ LaunchPermission => {FieldValue => [], FieldType => ["Amazon::EC2::Model::LaunchPermission"]},
+ ProductCode => {FieldValue => [], FieldType => ["string"]},
+ KernelId => { FieldValue => undef, FieldType => "string"},
+ RamdiskId => { FieldValue => undef, FieldType => "string"},
+ Description => { FieldValue => undef, FieldType => "string"},
+ BlockDeviceMapping => {FieldValue => undef, FieldType => "Amazon::EC2::Model::BlockDeviceMapping"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getImageId {
+ return shift->{_fields}->{ImageId}->{FieldValue};
+ }
+
+
+ sub setImageId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ImageId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withImageId {
+ my ($self, $value) = @_;
+ $self->setImageId($value);
+ return $self;
+ }
+
+
+ sub isSetImageId {
+ return defined (shift->{_fields}->{ImageId}->{FieldValue});
+ }
+
+ sub getLaunchPermission {
+ return shift->{_fields}->{LaunchPermission}->{FieldValue};
+ }
+
+ sub setLaunchPermission {
+ my $self = shift;
+ foreach my $launchPermission (@_) {
+ if (not $self->_isArrayRef($launchPermission)) {
+ $launchPermission = [$launchPermission];
+ }
+ $self->{_fields}->{LaunchPermission}->{FieldValue} = $launchPermission;
+ }
+ }
+
+
+ sub withLaunchPermission {
+ my ($self, $launchPermissionArgs) = @_;
+ foreach my $launchPermission (@$launchPermissionArgs) {
+ $self->{_fields}->{LaunchPermission}->{FieldValue} = $launchPermission;
+ }
+ return $self;
+ }
+
+
+ sub isSetLaunchPermission {
+ return scalar (@{shift->{_fields}->{LaunchPermission}->{FieldValue}}) > 0;
+ }
+
+ sub getProductCode {
+ return shift->{_fields}->{ProductCode}->{FieldValue};
+ }
+
+
+ sub setProductCode {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ProductCode}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withProductCode {
+ my $self = shift;
+ my $list = $self->{_fields}->{ProductCode}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetProductCode {
+ return scalar (@{shift->{_fields}->{ProductCode}->{FieldValue}}) > 0;
+ }
+
+
+ sub getKernelId {
+ return shift->{_fields}->{KernelId}->{FieldValue};
+ }
+
+
+ sub setKernelId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{KernelId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withKernelId {
+ my ($self, $value) = @_;
+ $self->setKernelId($value);
+ return $self;
+ }
+
+
+ sub isSetKernelId {
+ return defined (shift->{_fields}->{KernelId}->{FieldValue});
+ }
+
+
+ sub getRamdiskId {
+ return shift->{_fields}->{RamdiskId}->{FieldValue};
+ }
+
+
+ sub setRamdiskId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{RamdiskId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withRamdiskId {
+ my ($self, $value) = @_;
+ $self->setRamdiskId($value);
+ return $self;
+ }
+
+
+ sub isSetRamdiskId {
+ return defined (shift->{_fields}->{RamdiskId}->{FieldValue});
+ }
+
+
+ sub getDescription {
+ return shift->{_fields}->{Description}->{FieldValue};
+ }
+
+
+ sub setDescription {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Description}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withDescription {
+ my ($self, $value) = @_;
+ $self->setDescription($value);
+ return $self;
+ }
+
+
+ sub isSetDescription {
+ return defined (shift->{_fields}->{Description}->{FieldValue});
+ }
+
+ sub getBlockDeviceMapping {
+ return shift->{_fields}->{BlockDeviceMapping}->{FieldValue};
+ }
+
+
+ sub setBlockDeviceMapping {
+ my ($self, $value) = @_;
+ $self->{_fields}->{BlockDeviceMapping}->{FieldValue} = $value;
+ }
+
+
+ sub withBlockDeviceMapping {
+ my ($self, $value) = @_;
+ $self->setBlockDeviceMapping($value);
+ return $self;
+ }
+
+
+ sub isSetBlockDeviceMapping {
+ return defined (shift->{_fields}->{BlockDeviceMapping}->{FieldValue});
+
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/InstanceAttribute.pm b/src/main/resources/project/lib/Amazon/EC2/Model/InstanceAttribute.pm
new file mode 100644
index 0000000..5166ebf
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/InstanceAttribute.pm
@@ -0,0 +1,305 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::InstanceAttribute;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::InstanceAttribute
+ #
+ # Properties:
+ #
+ #
+ # InstanceId: string
+ # InstanceType: string
+ # KernelId: string
+ # RamdiskId: string
+ # UserData: string
+ # DisableApiTermination: bool
+ # InstanceInitiatedShutdownBehavior: string
+ # RootDeviceName: string
+ # BlockDeviceMapping: Amazon::EC2::Model::InstanceBlockDeviceMapping
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ InstanceId => { FieldValue => undef, FieldType => "string"},
+ InstanceType => { FieldValue => undef, FieldType => "string"},
+ KernelId => { FieldValue => undef, FieldType => "string"},
+ RamdiskId => { FieldValue => undef, FieldType => "string"},
+ UserData => { FieldValue => undef, FieldType => "string"},
+ DisableApiTermination => { FieldValue => undef, FieldType => "bool"},
+ InstanceInitiatedShutdownBehavior => { FieldValue => undef, FieldType => "string"},
+ RootDeviceName => { FieldValue => undef, FieldType => "string"},
+ BlockDeviceMapping => {FieldValue => [], FieldType => ["Amazon::EC2::Model::InstanceBlockDeviceMapping"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getInstanceId {
+ return shift->{_fields}->{InstanceId}->{FieldValue};
+ }
+
+
+ sub setInstanceId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceId {
+ my ($self, $value) = @_;
+ $self->setInstanceId($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceId {
+ return defined (shift->{_fields}->{InstanceId}->{FieldValue});
+ }
+
+
+ sub getInstanceType {
+ return shift->{_fields}->{InstanceType}->{FieldValue};
+ }
+
+
+ sub setInstanceType {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceType}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceType {
+ my ($self, $value) = @_;
+ $self->setInstanceType($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceType {
+ return defined (shift->{_fields}->{InstanceType}->{FieldValue});
+ }
+
+
+ sub getKernelId {
+ return shift->{_fields}->{KernelId}->{FieldValue};
+ }
+
+
+ sub setKernelId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{KernelId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withKernelId {
+ my ($self, $value) = @_;
+ $self->setKernelId($value);
+ return $self;
+ }
+
+
+ sub isSetKernelId {
+ return defined (shift->{_fields}->{KernelId}->{FieldValue});
+ }
+
+
+ sub getRamdiskId {
+ return shift->{_fields}->{RamdiskId}->{FieldValue};
+ }
+
+
+ sub setRamdiskId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{RamdiskId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withRamdiskId {
+ my ($self, $value) = @_;
+ $self->setRamdiskId($value);
+ return $self;
+ }
+
+
+ sub isSetRamdiskId {
+ return defined (shift->{_fields}->{RamdiskId}->{FieldValue});
+ }
+
+
+ sub getUserData {
+ return shift->{_fields}->{UserData}->{FieldValue};
+ }
+
+
+ sub setUserData {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{UserData}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withUserData {
+ my ($self, $value) = @_;
+ $self->setUserData($value);
+ return $self;
+ }
+
+
+ sub isSetUserData {
+ return defined (shift->{_fields}->{UserData}->{FieldValue});
+ }
+
+
+ sub getDisableApiTermination {
+ return shift->{_fields}->{DisableApiTermination}->{FieldValue};
+ }
+
+
+ sub setDisableApiTermination {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{DisableApiTermination}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withDisableApiTermination {
+ my ($self, $value) = @_;
+ $self->setDisableApiTermination($value);
+ return $self;
+ }
+
+
+ sub isSetDisableApiTermination {
+ return defined (shift->{_fields}->{DisableApiTermination}->{FieldValue});
+ }
+
+
+ sub getInstanceInitiatedShutdownBehavior {
+ return shift->{_fields}->{InstanceInitiatedShutdownBehavior}->{FieldValue};
+ }
+
+
+ sub setInstanceInitiatedShutdownBehavior {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceInitiatedShutdownBehavior}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceInitiatedShutdownBehavior {
+ my ($self, $value) = @_;
+ $self->setInstanceInitiatedShutdownBehavior($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceInitiatedShutdownBehavior {
+ return defined (shift->{_fields}->{InstanceInitiatedShutdownBehavior}->{FieldValue});
+ }
+
+
+ sub getRootDeviceName {
+ return shift->{_fields}->{RootDeviceName}->{FieldValue};
+ }
+
+
+ sub setRootDeviceName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{RootDeviceName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withRootDeviceName {
+ my ($self, $value) = @_;
+ $self->setRootDeviceName($value);
+ return $self;
+ }
+
+
+ sub isSetRootDeviceName {
+ return defined (shift->{_fields}->{RootDeviceName}->{FieldValue});
+ }
+
+ sub getBlockDeviceMapping {
+ return shift->{_fields}->{BlockDeviceMapping}->{FieldValue};
+ }
+
+ sub setBlockDeviceMapping {
+ my $self = shift;
+ foreach my $blockDeviceMapping (@_) {
+ if (not $self->_isArrayRef($blockDeviceMapping)) {
+ $blockDeviceMapping = [$blockDeviceMapping];
+ }
+ $self->{_fields}->{BlockDeviceMapping}->{FieldValue} = $blockDeviceMapping;
+ }
+ }
+
+
+ sub withBlockDeviceMapping {
+ my ($self, $blockDeviceMappingArgs) = @_;
+ foreach my $blockDeviceMapping (@$blockDeviceMappingArgs) {
+ $self->{_fields}->{BlockDeviceMapping}->{FieldValue} = $blockDeviceMapping;
+ }
+ return $self;
+ }
+
+
+ sub isSetBlockDeviceMapping {
+ return scalar (@{shift->{_fields}->{BlockDeviceMapping}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/InstanceBlockDeviceMapping.pm b/src/main/resources/project/lib/Amazon/EC2/Model/InstanceBlockDeviceMapping.pm
new file mode 100644
index 0000000..ddcc0d1
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/InstanceBlockDeviceMapping.pm
@@ -0,0 +1,111 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::InstanceBlockDeviceMapping;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::InstanceBlockDeviceMapping
+ #
+ # Properties:
+ #
+ #
+ # DeviceName: string
+ # Ebs: Amazon::EC2::Model::InstanceEbsBlockDevice
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ DeviceName => { FieldValue => undef, FieldType => "string"},
+ Ebs => {FieldValue => undef, FieldType => "Amazon::EC2::Model::InstanceEbsBlockDevice"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getDeviceName {
+ return shift->{_fields}->{DeviceName}->{FieldValue};
+ }
+
+
+ sub setDeviceName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{DeviceName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withDeviceName {
+ my ($self, $value) = @_;
+ $self->setDeviceName($value);
+ return $self;
+ }
+
+
+ sub isSetDeviceName {
+ return defined (shift->{_fields}->{DeviceName}->{FieldValue});
+ }
+
+ sub getEbs {
+ return shift->{_fields}->{Ebs}->{FieldValue};
+ }
+
+
+ sub setEbs {
+ my ($self, $value) = @_;
+ $self->{_fields}->{Ebs}->{FieldValue} = $value;
+ }
+
+
+ sub withEbs {
+ my ($self, $value) = @_;
+ $self->setEbs($value);
+ return $self;
+ }
+
+
+ sub isSetEbs {
+ return defined (shift->{_fields}->{Ebs}->{FieldValue});
+
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/InstanceBlockDeviceMappingParameter.pm b/src/main/resources/project/lib/Amazon/EC2/Model/InstanceBlockDeviceMappingParameter.pm
new file mode 100644
index 0000000..8e965b0
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/InstanceBlockDeviceMappingParameter.pm
@@ -0,0 +1,165 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::InstanceBlockDeviceMappingParameter;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::InstanceBlockDeviceMappingParameter
+ #
+ # Properties:
+ #
+ #
+ # DeviceName: string
+ # VirtualName: string
+ # Ebs: Amazon::EC2::Model::InstanceEbsBlockDeviceParameter
+ # NoDevice: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ DeviceName => { FieldValue => undef, FieldType => "string"},
+ VirtualName => { FieldValue => undef, FieldType => "string"},
+ Ebs => {FieldValue => undef, FieldType => "Amazon::EC2::Model::InstanceEbsBlockDeviceParameter"},
+ NoDevice => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getDeviceName {
+ return shift->{_fields}->{DeviceName}->{FieldValue};
+ }
+
+
+ sub setDeviceName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{DeviceName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withDeviceName {
+ my ($self, $value) = @_;
+ $self->setDeviceName($value);
+ return $self;
+ }
+
+
+ sub isSetDeviceName {
+ return defined (shift->{_fields}->{DeviceName}->{FieldValue});
+ }
+
+
+ sub getVirtualName {
+ return shift->{_fields}->{VirtualName}->{FieldValue};
+ }
+
+
+ sub setVirtualName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VirtualName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVirtualName {
+ my ($self, $value) = @_;
+ $self->setVirtualName($value);
+ return $self;
+ }
+
+
+ sub isSetVirtualName {
+ return defined (shift->{_fields}->{VirtualName}->{FieldValue});
+ }
+
+ sub getEbs {
+ return shift->{_fields}->{Ebs}->{FieldValue};
+ }
+
+
+ sub setEbs {
+ my ($self, $value) = @_;
+ $self->{_fields}->{Ebs}->{FieldValue} = $value;
+ }
+
+
+ sub withEbs {
+ my ($self, $value) = @_;
+ $self->setEbs($value);
+ return $self;
+ }
+
+
+ sub isSetEbs {
+ return defined (shift->{_fields}->{Ebs}->{FieldValue});
+
+ }
+
+
+ sub getNoDevice {
+ return shift->{_fields}->{NoDevice}->{FieldValue};
+ }
+
+
+ sub setNoDevice {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{NoDevice}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withNoDevice {
+ my ($self, $value) = @_;
+ $self->setNoDevice($value);
+ return $self;
+ }
+
+
+ sub isSetNoDevice {
+ return defined (shift->{_fields}->{NoDevice}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/InstanceEbsBlockDevice.pm b/src/main/resources/project/lib/Amazon/EC2/Model/InstanceEbsBlockDevice.pm
new file mode 100644
index 0000000..53152d2
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/InstanceEbsBlockDevice.pm
@@ -0,0 +1,167 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::InstanceEbsBlockDevice;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::InstanceEbsBlockDevice
+ #
+ # Properties:
+ #
+ #
+ # VolumeId: string
+ # Status: string
+ # AttachTime: string
+ # DeleteOnTermination: bool
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ VolumeId => { FieldValue => undef, FieldType => "string"},
+ Status => { FieldValue => undef, FieldType => "string"},
+ AttachTime => { FieldValue => undef, FieldType => "string"},
+ DeleteOnTermination => { FieldValue => undef, FieldType => "bool"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getVolumeId {
+ return shift->{_fields}->{VolumeId}->{FieldValue};
+ }
+
+
+ sub setVolumeId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VolumeId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVolumeId {
+ my ($self, $value) = @_;
+ $self->setVolumeId($value);
+ return $self;
+ }
+
+
+ sub isSetVolumeId {
+ return defined (shift->{_fields}->{VolumeId}->{FieldValue});
+ }
+
+
+ sub getStatus {
+ return shift->{_fields}->{Status}->{FieldValue};
+ }
+
+
+ sub setStatus {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Status}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withStatus {
+ my ($self, $value) = @_;
+ $self->setStatus($value);
+ return $self;
+ }
+
+
+ sub isSetStatus {
+ return defined (shift->{_fields}->{Status}->{FieldValue});
+ }
+
+
+ sub getAttachTime {
+ return shift->{_fields}->{AttachTime}->{FieldValue};
+ }
+
+
+ sub setAttachTime {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{AttachTime}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withAttachTime {
+ my ($self, $value) = @_;
+ $self->setAttachTime($value);
+ return $self;
+ }
+
+
+ sub isSetAttachTime {
+ return defined (shift->{_fields}->{AttachTime}->{FieldValue});
+ }
+
+
+ sub getDeleteOnTermination {
+ return shift->{_fields}->{DeleteOnTermination}->{FieldValue};
+ }
+
+
+ sub setDeleteOnTermination {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{DeleteOnTermination}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withDeleteOnTermination {
+ my ($self, $value) = @_;
+ $self->setDeleteOnTermination($value);
+ return $self;
+ }
+
+
+ sub isSetDeleteOnTermination {
+ return defined (shift->{_fields}->{DeleteOnTermination}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/InstanceEbsBlockDeviceParameter.pm b/src/main/resources/project/lib/Amazon/EC2/Model/InstanceEbsBlockDeviceParameter.pm
new file mode 100644
index 0000000..3cb6e6b
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/InstanceEbsBlockDeviceParameter.pm
@@ -0,0 +1,113 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::InstanceEbsBlockDeviceParameter;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::InstanceEbsBlockDeviceParameter
+ #
+ # Properties:
+ #
+ #
+ # VolumeId: string
+ # DeleteOnTermination: bool
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ VolumeId => { FieldValue => undef, FieldType => "string"},
+ DeleteOnTermination => { FieldValue => undef, FieldType => "bool"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getVolumeId {
+ return shift->{_fields}->{VolumeId}->{FieldValue};
+ }
+
+
+ sub setVolumeId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VolumeId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVolumeId {
+ my ($self, $value) = @_;
+ $self->setVolumeId($value);
+ return $self;
+ }
+
+
+ sub isSetVolumeId {
+ return defined (shift->{_fields}->{VolumeId}->{FieldValue});
+ }
+
+
+ sub getDeleteOnTermination {
+ return shift->{_fields}->{DeleteOnTermination}->{FieldValue};
+ }
+
+
+ sub setDeleteOnTermination {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{DeleteOnTermination}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withDeleteOnTermination {
+ my ($self, $value) = @_;
+ $self->setDeleteOnTermination($value);
+ return $self;
+ }
+
+
+ sub isSetDeleteOnTermination {
+ return defined (shift->{_fields}->{DeleteOnTermination}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/InstanceLicense.pm b/src/main/resources/project/lib/Amazon/EC2/Model/InstanceLicense.pm
new file mode 100644
index 0000000..9ed0062
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/InstanceLicense.pm
@@ -0,0 +1,86 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::InstanceLicense;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::InstanceLicense
+ #
+ # Properties:
+ #
+ #
+ # Pool: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ Pool => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getPool {
+ return shift->{_fields}->{Pool}->{FieldValue};
+ }
+
+
+ sub setPool {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Pool}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withPool {
+ my ($self, $value) = @_;
+ $self->setPool($value);
+ return $self;
+ }
+
+
+ sub isSetPool {
+ return defined (shift->{_fields}->{Pool}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/InstanceLicenseSpecification.pm b/src/main/resources/project/lib/Amazon/EC2/Model/InstanceLicenseSpecification.pm
new file mode 100644
index 0000000..ae8013b
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/InstanceLicenseSpecification.pm
@@ -0,0 +1,86 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::InstanceLicenseSpecification;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::InstanceLicenseSpecification
+ #
+ # Properties:
+ #
+ #
+ # Pool: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ Pool => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getPool {
+ return shift->{_fields}->{Pool}->{FieldValue};
+ }
+
+
+ sub setPool {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Pool}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withPool {
+ my ($self, $value) = @_;
+ $self->setPool($value);
+ return $self;
+ }
+
+
+ sub isSetPool {
+ return defined (shift->{_fields}->{Pool}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/InstanceMonitoring.pm b/src/main/resources/project/lib/Amazon/EC2/Model/InstanceMonitoring.pm
new file mode 100644
index 0000000..9af43e8
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/InstanceMonitoring.pm
@@ -0,0 +1,111 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::InstanceMonitoring;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::InstanceMonitoring
+ #
+ # Properties:
+ #
+ #
+ # InstanceId: string
+ # Monitoring: Amazon::EC2::Model::Monitoring
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ InstanceId => { FieldValue => undef, FieldType => "string"},
+ Monitoring => {FieldValue => undef, FieldType => "Amazon::EC2::Model::Monitoring"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getInstanceId {
+ return shift->{_fields}->{InstanceId}->{FieldValue};
+ }
+
+
+ sub setInstanceId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceId {
+ my ($self, $value) = @_;
+ $self->setInstanceId($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceId {
+ return defined (shift->{_fields}->{InstanceId}->{FieldValue});
+ }
+
+ sub getMonitoring {
+ return shift->{_fields}->{Monitoring}->{FieldValue};
+ }
+
+
+ sub setMonitoring {
+ my ($self, $value) = @_;
+ $self->{_fields}->{Monitoring}->{FieldValue} = $value;
+ }
+
+
+ sub withMonitoring {
+ my ($self, $value) = @_;
+ $self->setMonitoring($value);
+ return $self;
+ }
+
+
+ sub isSetMonitoring {
+ return defined (shift->{_fields}->{Monitoring}->{FieldValue});
+
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/InstanceState.pm b/src/main/resources/project/lib/Amazon/EC2/Model/InstanceState.pm
new file mode 100644
index 0000000..2848d98
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/InstanceState.pm
@@ -0,0 +1,113 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::InstanceState;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::InstanceState
+ #
+ # Properties:
+ #
+ #
+ # Code: int
+ # Name: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ Code => { FieldValue => undef, FieldType => "int"},
+ Name => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getCode {
+ return shift->{_fields}->{Code}->{FieldValue};
+ }
+
+
+ sub setCode {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Code}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withCode {
+ my ($self, $value) = @_;
+ $self->setCode($value);
+ return $self;
+ }
+
+
+ sub isSetCode {
+ return defined (shift->{_fields}->{Code}->{FieldValue});
+ }
+
+
+ sub getName {
+ return shift->{_fields}->{Name}->{FieldValue};
+ }
+
+
+ sub setName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Name}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withName {
+ my ($self, $value) = @_;
+ $self->setName($value);
+ return $self;
+ }
+
+
+ sub isSetName {
+ return defined (shift->{_fields}->{Name}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/InstanceStateChange.pm b/src/main/resources/project/lib/Amazon/EC2/Model/InstanceStateChange.pm
new file mode 100644
index 0000000..18d9926
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/InstanceStateChange.pm
@@ -0,0 +1,136 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::InstanceStateChange;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::InstanceStateChange
+ #
+ # Properties:
+ #
+ #
+ # InstanceId: string
+ # CurrentState: Amazon::EC2::Model::InstanceState
+ # PreviousState: Amazon::EC2::Model::InstanceState
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ InstanceId => { FieldValue => undef, FieldType => "string"},
+ CurrentState => {FieldValue => undef, FieldType => "Amazon::EC2::Model::InstanceState"},
+ PreviousState => {FieldValue => undef, FieldType => "Amazon::EC2::Model::InstanceState"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getInstanceId {
+ return shift->{_fields}->{InstanceId}->{FieldValue};
+ }
+
+
+ sub setInstanceId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceId {
+ my ($self, $value) = @_;
+ $self->setInstanceId($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceId {
+ return defined (shift->{_fields}->{InstanceId}->{FieldValue});
+ }
+
+ sub getCurrentState {
+ return shift->{_fields}->{CurrentState}->{FieldValue};
+ }
+
+
+ sub setCurrentState {
+ my ($self, $value) = @_;
+ $self->{_fields}->{CurrentState}->{FieldValue} = $value;
+ }
+
+
+ sub withCurrentState {
+ my ($self, $value) = @_;
+ $self->setCurrentState($value);
+ return $self;
+ }
+
+
+ sub isSetCurrentState {
+ return defined (shift->{_fields}->{CurrentState}->{FieldValue});
+
+ }
+
+ sub getPreviousState {
+ return shift->{_fields}->{PreviousState}->{FieldValue};
+ }
+
+
+ sub setPreviousState {
+ my ($self, $value) = @_;
+ $self->{_fields}->{PreviousState}->{FieldValue} = $value;
+ }
+
+
+ sub withPreviousState {
+ my ($self, $value) = @_;
+ $self->setPreviousState($value);
+ return $self;
+ }
+
+
+ sub isSetPreviousState {
+ return defined (shift->{_fields}->{PreviousState}->{FieldValue});
+
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/IpPermission.pm b/src/main/resources/project/lib/Amazon/EC2/Model/IpPermission.pm
new file mode 100644
index 0000000..8942d54
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/IpPermission.pm
@@ -0,0 +1,199 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::IpPermission;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::IpPermission
+ #
+ # Properties:
+ #
+ #
+ # IpProtocol: string
+ # FromPort: int
+ # ToPort: int
+ # UserIdGroupPair: Amazon::EC2::Model::UserIdGroupPair
+ # IpRange: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ IpProtocol => { FieldValue => undef, FieldType => "string"},
+ FromPort => { FieldValue => undef, FieldType => "int"},
+ ToPort => { FieldValue => undef, FieldType => "int"},
+ UserIdGroupPair => {FieldValue => [], FieldType => ["Amazon::EC2::Model::UserIdGroupPair"]},
+ IpRange => {FieldValue => [], FieldType => ["string"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getIpProtocol {
+ return shift->{_fields}->{IpProtocol}->{FieldValue};
+ }
+
+
+ sub setIpProtocol {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{IpProtocol}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withIpProtocol {
+ my ($self, $value) = @_;
+ $self->setIpProtocol($value);
+ return $self;
+ }
+
+
+ sub isSetIpProtocol {
+ return defined (shift->{_fields}->{IpProtocol}->{FieldValue});
+ }
+
+
+ sub getFromPort {
+ return shift->{_fields}->{FromPort}->{FieldValue};
+ }
+
+
+ sub setFromPort {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{FromPort}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withFromPort {
+ my ($self, $value) = @_;
+ $self->setFromPort($value);
+ return $self;
+ }
+
+
+ sub isSetFromPort {
+ return defined (shift->{_fields}->{FromPort}->{FieldValue});
+ }
+
+
+ sub getToPort {
+ return shift->{_fields}->{ToPort}->{FieldValue};
+ }
+
+
+ sub setToPort {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ToPort}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withToPort {
+ my ($self, $value) = @_;
+ $self->setToPort($value);
+ return $self;
+ }
+
+
+ sub isSetToPort {
+ return defined (shift->{_fields}->{ToPort}->{FieldValue});
+ }
+
+ sub getUserIdGroupPair {
+ return shift->{_fields}->{UserIdGroupPair}->{FieldValue};
+ }
+
+ sub setUserIdGroupPair {
+ my $self = shift;
+ foreach my $userIdGroupPair (@_) {
+ if (not $self->_isArrayRef($userIdGroupPair)) {
+ $userIdGroupPair = [$userIdGroupPair];
+ }
+ $self->{_fields}->{UserIdGroupPair}->{FieldValue} = $userIdGroupPair;
+ }
+ }
+
+
+ sub withUserIdGroupPair {
+ my ($self, $userIdGroupPairArgs) = @_;
+ foreach my $userIdGroupPair (@$userIdGroupPairArgs) {
+ $self->{_fields}->{UserIdGroupPair}->{FieldValue} = $userIdGroupPair;
+ }
+ return $self;
+ }
+
+
+ sub isSetUserIdGroupPair {
+ return scalar (@{shift->{_fields}->{UserIdGroupPair}->{FieldValue}}) > 0;
+ }
+
+ sub getIpRange {
+ return shift->{_fields}->{IpRange}->{FieldValue};
+ }
+
+
+ sub setIpRange {
+ my ($self, $value) = @_;
+ $self->{_fields}->{IpRange}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withIpRange {
+ my $self = shift;
+ my $list = $self->{_fields}->{IpRange}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetIpRange {
+ return scalar (@{shift->{_fields}->{IpRange}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/KeyPair.pm b/src/main/resources/project/lib/Amazon/EC2/Model/KeyPair.pm
new file mode 100644
index 0000000..a72ed97
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/KeyPair.pm
@@ -0,0 +1,140 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::KeyPair;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::KeyPair
+ #
+ # Properties:
+ #
+ #
+ # KeyName: string
+ # KeyFingerprint: string
+ # KeyMaterial: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ KeyName => { FieldValue => undef, FieldType => "string"},
+ KeyFingerprint => { FieldValue => undef, FieldType => "string"},
+ KeyMaterial => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getKeyName {
+ return shift->{_fields}->{KeyName}->{FieldValue};
+ }
+
+
+ sub setKeyName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{KeyName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withKeyName {
+ my ($self, $value) = @_;
+ $self->setKeyName($value);
+ return $self;
+ }
+
+
+ sub isSetKeyName {
+ return defined (shift->{_fields}->{KeyName}->{FieldValue});
+ }
+
+
+ sub getKeyFingerprint {
+ return shift->{_fields}->{KeyFingerprint}->{FieldValue};
+ }
+
+
+ sub setKeyFingerprint {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{KeyFingerprint}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withKeyFingerprint {
+ my ($self, $value) = @_;
+ $self->setKeyFingerprint($value);
+ return $self;
+ }
+
+
+ sub isSetKeyFingerprint {
+ return defined (shift->{_fields}->{KeyFingerprint}->{FieldValue});
+ }
+
+
+ sub getKeyMaterial {
+ return shift->{_fields}->{KeyMaterial}->{FieldValue};
+ }
+
+
+ sub setKeyMaterial {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{KeyMaterial}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withKeyMaterial {
+ my ($self, $value) = @_;
+ $self->setKeyMaterial($value);
+ return $self;
+ }
+
+
+ sub isSetKeyMaterial {
+ return defined (shift->{_fields}->{KeyMaterial}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/LaunchPermission.pm b/src/main/resources/project/lib/Amazon/EC2/Model/LaunchPermission.pm
new file mode 100644
index 0000000..112534d
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/LaunchPermission.pm
@@ -0,0 +1,113 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::LaunchPermission;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::LaunchPermission
+ #
+ # Properties:
+ #
+ #
+ # UserId: string
+ # GroupName: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ UserId => { FieldValue => undef, FieldType => "string"},
+ GroupName => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getUserId {
+ return shift->{_fields}->{UserId}->{FieldValue};
+ }
+
+
+ sub setUserId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{UserId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withUserId {
+ my ($self, $value) = @_;
+ $self->setUserId($value);
+ return $self;
+ }
+
+
+ sub isSetUserId {
+ return defined (shift->{_fields}->{UserId}->{FieldValue});
+ }
+
+
+ sub getGroupName {
+ return shift->{_fields}->{GroupName}->{FieldValue};
+ }
+
+
+ sub setGroupName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{GroupName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withGroupName {
+ my ($self, $value) = @_;
+ $self->setGroupName($value);
+ return $self;
+ }
+
+
+ sub isSetGroupName {
+ return defined (shift->{_fields}->{GroupName}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/LaunchSpecification.pm b/src/main/resources/project/lib/Amazon/EC2/Model/LaunchSpecification.pm
new file mode 100644
index 0000000..5e0a562
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/LaunchSpecification.pm
@@ -0,0 +1,384 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::LaunchSpecification;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::LaunchSpecification
+ #
+ # Properties:
+ #
+ #
+ # ImageId: string
+ # KeyName: string
+ # SecurityGroup: string
+ # UserData: string
+ # AddressingType: string
+ # InstanceType: string
+ # Placement: Amazon::EC2::Model::Placement
+ # KernelId: string
+ # RamdiskId: string
+ # BlockDeviceMapping: Amazon::EC2::Model::BlockDeviceMapping
+ # Monitoring: Amazon::EC2::Model::MonitoringSpecification
+ # SubnetId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ImageId => { FieldValue => undef, FieldType => "string"},
+ KeyName => { FieldValue => undef, FieldType => "string"},
+ SecurityGroup => {FieldValue => [], FieldType => ["string"]},
+ UserData => { FieldValue => undef, FieldType => "string"},
+ AddressingType => { FieldValue => undef, FieldType => "string"},
+ InstanceType => { FieldValue => undef, FieldType => "string"},
+ Placement => {FieldValue => undef, FieldType => "Amazon::EC2::Model::Placement"},
+ KernelId => { FieldValue => undef, FieldType => "string"},
+ RamdiskId => { FieldValue => undef, FieldType => "string"},
+ BlockDeviceMapping => {FieldValue => [], FieldType => ["Amazon::EC2::Model::BlockDeviceMapping"]},
+ Monitoring => {FieldValue => undef, FieldType => "Amazon::EC2::Model::MonitoringSpecification"},
+ SubnetId => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getImageId {
+ return shift->{_fields}->{ImageId}->{FieldValue};
+ }
+
+
+ sub setImageId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ImageId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withImageId {
+ my ($self, $value) = @_;
+ $self->setImageId($value);
+ return $self;
+ }
+
+
+ sub isSetImageId {
+ return defined (shift->{_fields}->{ImageId}->{FieldValue});
+ }
+
+
+ sub getKeyName {
+ return shift->{_fields}->{KeyName}->{FieldValue};
+ }
+
+
+ sub setKeyName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{KeyName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withKeyName {
+ my ($self, $value) = @_;
+ $self->setKeyName($value);
+ return $self;
+ }
+
+
+ sub isSetKeyName {
+ return defined (shift->{_fields}->{KeyName}->{FieldValue});
+ }
+
+ sub getSecurityGroup {
+ return shift->{_fields}->{SecurityGroup}->{FieldValue};
+ }
+
+
+ sub setSecurityGroup {
+ my ($self, $value) = @_;
+ $self->{_fields}->{SecurityGroup}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withSecurityGroup {
+ my $self = shift;
+ my $list = $self->{_fields}->{SecurityGroup}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetSecurityGroup {
+ return scalar (@{shift->{_fields}->{SecurityGroup}->{FieldValue}}) > 0;
+ }
+
+
+ sub getUserData {
+ return shift->{_fields}->{UserData}->{FieldValue};
+ }
+
+
+ sub setUserData {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{UserData}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withUserData {
+ my ($self, $value) = @_;
+ $self->setUserData($value);
+ return $self;
+ }
+
+
+ sub isSetUserData {
+ return defined (shift->{_fields}->{UserData}->{FieldValue});
+ }
+
+
+ sub getAddressingType {
+ return shift->{_fields}->{AddressingType}->{FieldValue};
+ }
+
+
+ sub setAddressingType {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{AddressingType}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withAddressingType {
+ my ($self, $value) = @_;
+ $self->setAddressingType($value);
+ return $self;
+ }
+
+
+ sub isSetAddressingType {
+ return defined (shift->{_fields}->{AddressingType}->{FieldValue});
+ }
+
+
+ sub getInstanceType {
+ return shift->{_fields}->{InstanceType}->{FieldValue};
+ }
+
+
+ sub setInstanceType {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceType}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceType {
+ my ($self, $value) = @_;
+ $self->setInstanceType($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceType {
+ return defined (shift->{_fields}->{InstanceType}->{FieldValue});
+ }
+
+ sub getPlacement {
+ return shift->{_fields}->{Placement}->{FieldValue};
+ }
+
+
+ sub setPlacement {
+ my ($self, $value) = @_;
+ $self->{_fields}->{Placement}->{FieldValue} = $value;
+ }
+
+
+ sub withPlacement {
+ my ($self, $value) = @_;
+ $self->setPlacement($value);
+ return $self;
+ }
+
+
+ sub isSetPlacement {
+ return defined (shift->{_fields}->{Placement}->{FieldValue});
+
+ }
+
+
+ sub getKernelId {
+ return shift->{_fields}->{KernelId}->{FieldValue};
+ }
+
+
+ sub setKernelId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{KernelId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withKernelId {
+ my ($self, $value) = @_;
+ $self->setKernelId($value);
+ return $self;
+ }
+
+
+ sub isSetKernelId {
+ return defined (shift->{_fields}->{KernelId}->{FieldValue});
+ }
+
+
+ sub getRamdiskId {
+ return shift->{_fields}->{RamdiskId}->{FieldValue};
+ }
+
+
+ sub setRamdiskId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{RamdiskId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withRamdiskId {
+ my ($self, $value) = @_;
+ $self->setRamdiskId($value);
+ return $self;
+ }
+
+
+ sub isSetRamdiskId {
+ return defined (shift->{_fields}->{RamdiskId}->{FieldValue});
+ }
+
+ sub getBlockDeviceMapping {
+ return shift->{_fields}->{BlockDeviceMapping}->{FieldValue};
+ }
+
+ sub setBlockDeviceMapping {
+ my $self = shift;
+ foreach my $blockDeviceMapping (@_) {
+ if (not $self->_isArrayRef($blockDeviceMapping)) {
+ $blockDeviceMapping = [$blockDeviceMapping];
+ }
+ $self->{_fields}->{BlockDeviceMapping}->{FieldValue} = $blockDeviceMapping;
+ }
+ }
+
+
+ sub withBlockDeviceMapping {
+ my ($self, $blockDeviceMappingArgs) = @_;
+ foreach my $blockDeviceMapping (@$blockDeviceMappingArgs) {
+ $self->{_fields}->{BlockDeviceMapping}->{FieldValue} = $blockDeviceMapping;
+ }
+ return $self;
+ }
+
+
+ sub isSetBlockDeviceMapping {
+ return scalar (@{shift->{_fields}->{BlockDeviceMapping}->{FieldValue}}) > 0;
+ }
+
+ sub getMonitoring {
+ return shift->{_fields}->{Monitoring}->{FieldValue};
+ }
+
+
+ sub setMonitoring {
+ my ($self, $value) = @_;
+ $self->{_fields}->{Monitoring}->{FieldValue} = $value;
+ }
+
+
+ sub withMonitoring {
+ my ($self, $value) = @_;
+ $self->setMonitoring($value);
+ return $self;
+ }
+
+
+ sub isSetMonitoring {
+ return defined (shift->{_fields}->{Monitoring}->{FieldValue});
+
+ }
+
+
+ sub getSubnetId {
+ return shift->{_fields}->{SubnetId}->{FieldValue};
+ }
+
+
+ sub setSubnetId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{SubnetId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withSubnetId {
+ my ($self, $value) = @_;
+ $self->setSubnetId($value);
+ return $self;
+ }
+
+
+ sub isSetSubnetId {
+ return defined (shift->{_fields}->{SubnetId}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/License.pm b/src/main/resources/project/lib/Amazon/EC2/Model/License.pm
new file mode 100644
index 0000000..c8a61c8
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/License.pm
@@ -0,0 +1,170 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::License;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::License
+ #
+ # Properties:
+ #
+ #
+ # LicenseId: string
+ # Type: string
+ # Pool: string
+ # LicenseCapacity: Amazon::EC2::Model::LicenseCapacity
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ LicenseId => { FieldValue => undef, FieldType => "string"},
+ Type => { FieldValue => undef, FieldType => "string"},
+ Pool => { FieldValue => undef, FieldType => "string"},
+ LicenseCapacity => {FieldValue => [], FieldType => ["Amazon::EC2::Model::LicenseCapacity"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getLicenseId {
+ return shift->{_fields}->{LicenseId}->{FieldValue};
+ }
+
+
+ sub setLicenseId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{LicenseId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withLicenseId {
+ my ($self, $value) = @_;
+ $self->setLicenseId($value);
+ return $self;
+ }
+
+
+ sub isSetLicenseId {
+ return defined (shift->{_fields}->{LicenseId}->{FieldValue});
+ }
+
+
+ sub getType {
+ return shift->{_fields}->{Type}->{FieldValue};
+ }
+
+
+ sub setType {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Type}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withType {
+ my ($self, $value) = @_;
+ $self->setType($value);
+ return $self;
+ }
+
+
+ sub isSetType {
+ return defined (shift->{_fields}->{Type}->{FieldValue});
+ }
+
+
+ sub getPool {
+ return shift->{_fields}->{Pool}->{FieldValue};
+ }
+
+
+ sub setPool {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Pool}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withPool {
+ my ($self, $value) = @_;
+ $self->setPool($value);
+ return $self;
+ }
+
+
+ sub isSetPool {
+ return defined (shift->{_fields}->{Pool}->{FieldValue});
+ }
+
+ sub getLicenseCapacity {
+ return shift->{_fields}->{LicenseCapacity}->{FieldValue};
+ }
+
+ sub setLicenseCapacity {
+ my $self = shift;
+ foreach my $licenseCapacity (@_) {
+ if (not $self->_isArrayRef($licenseCapacity)) {
+ $licenseCapacity = [$licenseCapacity];
+ }
+ $self->{_fields}->{LicenseCapacity}->{FieldValue} = $licenseCapacity;
+ }
+ }
+
+
+ sub withLicenseCapacity {
+ my ($self, $licenseCapacityArgs) = @_;
+ foreach my $licenseCapacity (@$licenseCapacityArgs) {
+ $self->{_fields}->{LicenseCapacity}->{FieldValue} = $licenseCapacity;
+ }
+ return $self;
+ }
+
+
+ sub isSetLicenseCapacity {
+ return scalar (@{shift->{_fields}->{LicenseCapacity}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/LicenseCapacity.pm b/src/main/resources/project/lib/Amazon/EC2/Model/LicenseCapacity.pm
new file mode 100644
index 0000000..1297d6f
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/LicenseCapacity.pm
@@ -0,0 +1,167 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::LicenseCapacity;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::LicenseCapacity
+ #
+ # Properties:
+ #
+ #
+ # Capacity: int
+ # InstanceCapacity: int
+ # State: string
+ # EarliestAllowedDeactivationTime: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ Capacity => { FieldValue => undef, FieldType => "int"},
+ InstanceCapacity => { FieldValue => undef, FieldType => "int"},
+ State => { FieldValue => undef, FieldType => "string"},
+ EarliestAllowedDeactivationTime => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getCapacity {
+ return shift->{_fields}->{Capacity}->{FieldValue};
+ }
+
+
+ sub setCapacity {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Capacity}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withCapacity {
+ my ($self, $value) = @_;
+ $self->setCapacity($value);
+ return $self;
+ }
+
+
+ sub isSetCapacity {
+ return defined (shift->{_fields}->{Capacity}->{FieldValue});
+ }
+
+
+ sub getInstanceCapacity {
+ return shift->{_fields}->{InstanceCapacity}->{FieldValue};
+ }
+
+
+ sub setInstanceCapacity {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceCapacity}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceCapacity {
+ my ($self, $value) = @_;
+ $self->setInstanceCapacity($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceCapacity {
+ return defined (shift->{_fields}->{InstanceCapacity}->{FieldValue});
+ }
+
+
+ sub getState {
+ return shift->{_fields}->{State}->{FieldValue};
+ }
+
+
+ sub setState {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{State}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withState {
+ my ($self, $value) = @_;
+ $self->setState($value);
+ return $self;
+ }
+
+
+ sub isSetState {
+ return defined (shift->{_fields}->{State}->{FieldValue});
+ }
+
+
+ sub getEarliestAllowedDeactivationTime {
+ return shift->{_fields}->{EarliestAllowedDeactivationTime}->{FieldValue};
+ }
+
+
+ sub setEarliestAllowedDeactivationTime {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{EarliestAllowedDeactivationTime}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withEarliestAllowedDeactivationTime {
+ my ($self, $value) = @_;
+ $self->setEarliestAllowedDeactivationTime($value);
+ return $self;
+ }
+
+
+ sub isSetEarliestAllowedDeactivationTime {
+ return defined (shift->{_fields}->{EarliestAllowedDeactivationTime}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/ModifyImageAttributeRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/ModifyImageAttributeRequest.pm
new file mode 100644
index 0000000..58d1263
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/ModifyImageAttributeRequest.pm
@@ -0,0 +1,254 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::ModifyImageAttributeRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::ModifyImageAttributeRequest
+ #
+ # Properties:
+ #
+ #
+ # ImageId: string
+ # Attribute: string
+ # OperationType: string
+ # UserId: string
+ # UserGroup: string
+ # ProductCode: string
+ # Description: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ImageId => { FieldValue => undef, FieldType => "string"},
+ Attribute => { FieldValue => undef, FieldType => "string"},
+ OperationType => { FieldValue => undef, FieldType => "string"},
+ UserId => {FieldValue => [], FieldType => ["string"]},
+ UserGroup => {FieldValue => [], FieldType => ["string"]},
+ ProductCode => {FieldValue => [], FieldType => ["string"]},
+ Description => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getImageId {
+ return shift->{_fields}->{ImageId}->{FieldValue};
+ }
+
+
+ sub setImageId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ImageId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withImageId {
+ my ($self, $value) = @_;
+ $self->setImageId($value);
+ return $self;
+ }
+
+
+ sub isSetImageId {
+ return defined (shift->{_fields}->{ImageId}->{FieldValue});
+ }
+
+
+ sub getAttribute {
+ return shift->{_fields}->{Attribute}->{FieldValue};
+ }
+
+
+ sub setAttribute {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Attribute}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withAttribute {
+ my ($self, $value) = @_;
+ $self->setAttribute($value);
+ return $self;
+ }
+
+
+ sub isSetAttribute {
+ return defined (shift->{_fields}->{Attribute}->{FieldValue});
+ }
+
+
+ sub getOperationType {
+ return shift->{_fields}->{OperationType}->{FieldValue};
+ }
+
+
+ sub setOperationType {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{OperationType}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withOperationType {
+ my ($self, $value) = @_;
+ $self->setOperationType($value);
+ return $self;
+ }
+
+
+ sub isSetOperationType {
+ return defined (shift->{_fields}->{OperationType}->{FieldValue});
+ }
+
+ sub getUserId {
+ return shift->{_fields}->{UserId}->{FieldValue};
+ }
+
+
+ sub setUserId {
+ my ($self, $value) = @_;
+ $self->{_fields}->{UserId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withUserId {
+ my $self = shift;
+ my $list = $self->{_fields}->{UserId}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetUserId {
+ return scalar (@{shift->{_fields}->{UserId}->{FieldValue}}) > 0;
+ }
+
+ sub getUserGroup {
+ return shift->{_fields}->{UserGroup}->{FieldValue};
+ }
+
+
+ sub setUserGroup {
+ my ($self, $value) = @_;
+ $self->{_fields}->{UserGroup}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withUserGroup {
+ my $self = shift;
+ my $list = $self->{_fields}->{UserGroup}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetUserGroup {
+ return scalar (@{shift->{_fields}->{UserGroup}->{FieldValue}}) > 0;
+ }
+
+ sub getProductCode {
+ return shift->{_fields}->{ProductCode}->{FieldValue};
+ }
+
+
+ sub setProductCode {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ProductCode}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withProductCode {
+ my $self = shift;
+ my $list = $self->{_fields}->{ProductCode}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetProductCode {
+ return scalar (@{shift->{_fields}->{ProductCode}->{FieldValue}}) > 0;
+ }
+
+
+ sub getDescription {
+ return shift->{_fields}->{Description}->{FieldValue};
+ }
+
+
+ sub setDescription {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Description}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withDescription {
+ my ($self, $value) = @_;
+ $self->setDescription($value);
+ return $self;
+ }
+
+
+ sub isSetDescription {
+ return defined (shift->{_fields}->{Description}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/ModifyImageAttributeResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/ModifyImageAttributeResponse.pm
new file mode 100644
index 0000000..bad3afa
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/ModifyImageAttributeResponse.pm
@@ -0,0 +1,112 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::ModifyImageAttributeResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::ModifyImageAttributeResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::ModifyImageAttributeResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::ModifyImageAttributeResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/ModifyImageAttributeResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/ModifyImageAttributeResponse.xslt
new file mode 100644
index 0000000..d4d6931
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/ModifyImageAttributeResponse.xslt
@@ -0,0 +1,17 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/ModifyInstanceAttributeRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/ModifyInstanceAttributeRequest.pm
new file mode 100644
index 0000000..f8c9c3a
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/ModifyInstanceAttributeRequest.pm
@@ -0,0 +1,170 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::ModifyInstanceAttributeRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::ModifyInstanceAttributeRequest
+ #
+ # Properties:
+ #
+ #
+ # InstanceId: string
+ # Attribute: string
+ # Value: string
+ # BlockDeviceMapping: Amazon::EC2::Model::InstanceBlockDeviceMappingParameter
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ InstanceId => { FieldValue => undef, FieldType => "string"},
+ Attribute => { FieldValue => undef, FieldType => "string"},
+ Value => { FieldValue => undef, FieldType => "string"},
+ BlockDeviceMapping => {FieldValue => [], FieldType => ["Amazon::EC2::Model::InstanceBlockDeviceMappingParameter"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getInstanceId {
+ return shift->{_fields}->{InstanceId}->{FieldValue};
+ }
+
+
+ sub setInstanceId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceId {
+ my ($self, $value) = @_;
+ $self->setInstanceId($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceId {
+ return defined (shift->{_fields}->{InstanceId}->{FieldValue});
+ }
+
+
+ sub getAttribute {
+ return shift->{_fields}->{Attribute}->{FieldValue};
+ }
+
+
+ sub setAttribute {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Attribute}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withAttribute {
+ my ($self, $value) = @_;
+ $self->setAttribute($value);
+ return $self;
+ }
+
+
+ sub isSetAttribute {
+ return defined (shift->{_fields}->{Attribute}->{FieldValue});
+ }
+
+
+ sub getValue {
+ return shift->{_fields}->{Value}->{FieldValue};
+ }
+
+
+ sub setValue {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Value}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withValue {
+ my ($self, $value) = @_;
+ $self->setValue($value);
+ return $self;
+ }
+
+
+ sub isSetValue {
+ return defined (shift->{_fields}->{Value}->{FieldValue});
+ }
+
+ sub getBlockDeviceMapping {
+ return shift->{_fields}->{BlockDeviceMapping}->{FieldValue};
+ }
+
+ sub setBlockDeviceMapping {
+ my $self = shift;
+ foreach my $blockDeviceMapping (@_) {
+ if (not $self->_isArrayRef($blockDeviceMapping)) {
+ $blockDeviceMapping = [$blockDeviceMapping];
+ }
+ $self->{_fields}->{BlockDeviceMapping}->{FieldValue} = $blockDeviceMapping;
+ }
+ }
+
+
+ sub withBlockDeviceMapping {
+ my ($self, $blockDeviceMappingArgs) = @_;
+ foreach my $blockDeviceMapping (@$blockDeviceMappingArgs) {
+ $self->{_fields}->{BlockDeviceMapping}->{FieldValue} = $blockDeviceMapping;
+ }
+ return $self;
+ }
+
+
+ sub isSetBlockDeviceMapping {
+ return scalar (@{shift->{_fields}->{BlockDeviceMapping}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/ModifyInstanceAttributeResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/ModifyInstanceAttributeResponse.pm
new file mode 100644
index 0000000..8f207ba
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/ModifyInstanceAttributeResponse.pm
@@ -0,0 +1,112 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::ModifyInstanceAttributeResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::ModifyInstanceAttributeResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::ModifyInstanceAttributeResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::ModifyInstanceAttributeResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/ModifyInstanceAttributeResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/ModifyInstanceAttributeResponse.xslt
new file mode 100644
index 0000000..2c8a628
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/ModifyInstanceAttributeResponse.xslt
@@ -0,0 +1,14 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/ModifySnapshotAttributeRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/ModifySnapshotAttributeRequest.pm
new file mode 100644
index 0000000..038953d
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/ModifySnapshotAttributeRequest.pm
@@ -0,0 +1,198 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::ModifySnapshotAttributeRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::ModifySnapshotAttributeRequest
+ #
+ # Properties:
+ #
+ #
+ # SnapshotId: string
+ # Attribute: string
+ # OperationType: string
+ # UserId: string
+ # UserGroup: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ SnapshotId => { FieldValue => undef, FieldType => "string"},
+ Attribute => { FieldValue => undef, FieldType => "string"},
+ OperationType => { FieldValue => undef, FieldType => "string"},
+ UserId => {FieldValue => [], FieldType => ["string"]},
+ UserGroup => {FieldValue => [], FieldType => ["string"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getSnapshotId {
+ return shift->{_fields}->{SnapshotId}->{FieldValue};
+ }
+
+
+ sub setSnapshotId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{SnapshotId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withSnapshotId {
+ my ($self, $value) = @_;
+ $self->setSnapshotId($value);
+ return $self;
+ }
+
+
+ sub isSetSnapshotId {
+ return defined (shift->{_fields}->{SnapshotId}->{FieldValue});
+ }
+
+
+ sub getAttribute {
+ return shift->{_fields}->{Attribute}->{FieldValue};
+ }
+
+
+ sub setAttribute {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Attribute}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withAttribute {
+ my ($self, $value) = @_;
+ $self->setAttribute($value);
+ return $self;
+ }
+
+
+ sub isSetAttribute {
+ return defined (shift->{_fields}->{Attribute}->{FieldValue});
+ }
+
+
+ sub getOperationType {
+ return shift->{_fields}->{OperationType}->{FieldValue};
+ }
+
+
+ sub setOperationType {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{OperationType}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withOperationType {
+ my ($self, $value) = @_;
+ $self->setOperationType($value);
+ return $self;
+ }
+
+
+ sub isSetOperationType {
+ return defined (shift->{_fields}->{OperationType}->{FieldValue});
+ }
+
+ sub getUserId {
+ return shift->{_fields}->{UserId}->{FieldValue};
+ }
+
+
+ sub setUserId {
+ my ($self, $value) = @_;
+ $self->{_fields}->{UserId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withUserId {
+ my $self = shift;
+ my $list = $self->{_fields}->{UserId}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetUserId {
+ return scalar (@{shift->{_fields}->{UserId}->{FieldValue}}) > 0;
+ }
+
+ sub getUserGroup {
+ return shift->{_fields}->{UserGroup}->{FieldValue};
+ }
+
+
+ sub setUserGroup {
+ my ($self, $value) = @_;
+ $self->{_fields}->{UserGroup}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withUserGroup {
+ my $self = shift;
+ my $list = $self->{_fields}->{UserGroup}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetUserGroup {
+ return scalar (@{shift->{_fields}->{UserGroup}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/ModifySnapshotAttributeResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/ModifySnapshotAttributeResponse.pm
new file mode 100644
index 0000000..a8d9d3b
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/ModifySnapshotAttributeResponse.pm
@@ -0,0 +1,112 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::ModifySnapshotAttributeResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::ModifySnapshotAttributeResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::ModifySnapshotAttributeResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::ModifySnapshotAttributeResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/ModifySnapshotAttributeResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/ModifySnapshotAttributeResponse.xslt
new file mode 100644
index 0000000..e613b71
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/ModifySnapshotAttributeResponse.xslt
@@ -0,0 +1,21 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/MonitorInstancesRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/MonitorInstancesRequest.pm
new file mode 100644
index 0000000..8e3c614
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/MonitorInstancesRequest.pm
@@ -0,0 +1,88 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::MonitorInstancesRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::MonitorInstancesRequest
+ #
+ # Properties:
+ #
+ #
+ # InstanceId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ InstanceId => {FieldValue => [], FieldType => ["string"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getInstanceId {
+ return shift->{_fields}->{InstanceId}->{FieldValue};
+ }
+
+
+ sub setInstanceId {
+ my ($self, $value) = @_;
+ $self->{_fields}->{InstanceId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withInstanceId {
+ my $self = shift;
+ my $list = $self->{_fields}->{InstanceId}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetInstanceId {
+ return scalar (@{shift->{_fields}->{InstanceId}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/MonitorInstancesResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/MonitorInstancesResponse.pm
new file mode 100644
index 0000000..65e0a24
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/MonitorInstancesResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::MonitorInstancesResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::MonitorInstancesResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # MonitorInstancesResult: Amazon::EC2::Model::MonitorInstancesResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ MonitorInstancesResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::MonitorInstancesResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::MonitorInstancesResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::MonitorInstancesResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getMonitorInstancesResult {
+ return shift->{_fields}->{MonitorInstancesResult}->{FieldValue};
+ }
+
+
+ sub setMonitorInstancesResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{MonitorInstancesResult}->{FieldValue} = $value;
+ }
+
+
+ sub withMonitorInstancesResult {
+ my ($self, $value) = @_;
+ $self->setMonitorInstancesResult($value);
+ return $self;
+ }
+
+
+ sub isSetMonitorInstancesResult {
+ return defined (shift->{_fields}->{MonitorInstancesResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/MonitorInstancesResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/MonitorInstancesResponse.xslt
new file mode 100644
index 0000000..28e01d7
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/MonitorInstancesResponse.xslt
@@ -0,0 +1,31 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/MonitorInstancesResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/MonitorInstancesResult.pm
new file mode 100644
index 0000000..ee9b23a
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/MonitorInstancesResult.pm
@@ -0,0 +1,89 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::MonitorInstancesResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::MonitorInstancesResult
+ #
+ # Properties:
+ #
+ #
+ # InstanceMonitoring: Amazon::EC2::Model::InstanceMonitoring
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ InstanceMonitoring => {FieldValue => [], FieldType => ["Amazon::EC2::Model::InstanceMonitoring"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getInstanceMonitoring {
+ return shift->{_fields}->{InstanceMonitoring}->{FieldValue};
+ }
+
+ sub setInstanceMonitoring {
+ my $self = shift;
+ foreach my $instanceMonitoring (@_) {
+ if (not $self->_isArrayRef($instanceMonitoring)) {
+ $instanceMonitoring = [$instanceMonitoring];
+ }
+ $self->{_fields}->{InstanceMonitoring}->{FieldValue} = $instanceMonitoring;
+ }
+ }
+
+
+ sub withInstanceMonitoring {
+ my ($self, $instanceMonitoringArgs) = @_;
+ foreach my $instanceMonitoring (@$instanceMonitoringArgs) {
+ $self->{_fields}->{InstanceMonitoring}->{FieldValue} = $instanceMonitoring;
+ }
+ return $self;
+ }
+
+
+ sub isSetInstanceMonitoring {
+ return scalar (@{shift->{_fields}->{InstanceMonitoring}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/Monitoring.pm b/src/main/resources/project/lib/Amazon/EC2/Model/Monitoring.pm
new file mode 100644
index 0000000..b07dabc
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/Monitoring.pm
@@ -0,0 +1,86 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::Monitoring;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::Monitoring
+ #
+ # Properties:
+ #
+ #
+ # MonitoringState: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ MonitoringState => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getMonitoringState {
+ return shift->{_fields}->{MonitoringState}->{FieldValue};
+ }
+
+
+ sub setMonitoringState {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{MonitoringState}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withMonitoringState {
+ my ($self, $value) = @_;
+ $self->setMonitoringState($value);
+ return $self;
+ }
+
+
+ sub isSetMonitoringState {
+ return defined (shift->{_fields}->{MonitoringState}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/MonitoringSpecification.pm b/src/main/resources/project/lib/Amazon/EC2/Model/MonitoringSpecification.pm
new file mode 100644
index 0000000..15bc534
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/MonitoringSpecification.pm
@@ -0,0 +1,86 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::MonitoringSpecification;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::MonitoringSpecification
+ #
+ # Properties:
+ #
+ #
+ # Enabled: bool
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ Enabled => { FieldValue => undef, FieldType => "bool"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getEnabled {
+ return shift->{_fields}->{Enabled}->{FieldValue};
+ }
+
+
+ sub setEnabled {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Enabled}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withEnabled {
+ my ($self, $value) = @_;
+ $self->setEnabled($value);
+ return $self;
+ }
+
+
+ sub isSetEnabled {
+ return defined (shift->{_fields}->{Enabled}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/PasswordData.pm b/src/main/resources/project/lib/Amazon/EC2/Model/PasswordData.pm
new file mode 100644
index 0000000..1b240e9
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/PasswordData.pm
@@ -0,0 +1,140 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::PasswordData;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::PasswordData
+ #
+ # Properties:
+ #
+ #
+ # InstanceId: string
+ # Timestamp: string
+ # Data: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ InstanceId => { FieldValue => undef, FieldType => "string"},
+ Timestamp => { FieldValue => undef, FieldType => "string"},
+ Data => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getInstanceId {
+ return shift->{_fields}->{InstanceId}->{FieldValue};
+ }
+
+
+ sub setInstanceId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceId {
+ my ($self, $value) = @_;
+ $self->setInstanceId($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceId {
+ return defined (shift->{_fields}->{InstanceId}->{FieldValue});
+ }
+
+
+ sub getTimestamp {
+ return shift->{_fields}->{Timestamp}->{FieldValue};
+ }
+
+
+ sub setTimestamp {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Timestamp}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withTimestamp {
+ my ($self, $value) = @_;
+ $self->setTimestamp($value);
+ return $self;
+ }
+
+
+ sub isSetTimestamp {
+ return defined (shift->{_fields}->{Timestamp}->{FieldValue});
+ }
+
+
+ sub getData {
+ return shift->{_fields}->{Data}->{FieldValue};
+ }
+
+
+ sub setData {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Data}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withData {
+ my ($self, $value) = @_;
+ $self->setData($value);
+ return $self;
+ }
+
+
+ sub isSetData {
+ return defined (shift->{_fields}->{Data}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/Placement.pm b/src/main/resources/project/lib/Amazon/EC2/Model/Placement.pm
new file mode 100644
index 0000000..a701574
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/Placement.pm
@@ -0,0 +1,113 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::Placement;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::Placement
+ #
+ # Properties:
+ #
+ #
+ # AvailabilityZone: string
+ # GroupName: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ AvailabilityZone => { FieldValue => undef, FieldType => "string"},
+ GroupName => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getAvailabilityZone {
+ return shift->{_fields}->{AvailabilityZone}->{FieldValue};
+ }
+
+
+ sub setAvailabilityZone {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{AvailabilityZone}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withAvailabilityZone {
+ my ($self, $value) = @_;
+ $self->setAvailabilityZone($value);
+ return $self;
+ }
+
+
+ sub isSetAvailabilityZone {
+ return defined (shift->{_fields}->{AvailabilityZone}->{FieldValue});
+ }
+
+
+ sub getGroupName {
+ return shift->{_fields}->{GroupName}->{FieldValue};
+ }
+
+
+ sub setGroupName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{GroupName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withGroupName {
+ my ($self, $value) = @_;
+ $self->setGroupName($value);
+ return $self;
+ }
+
+
+ sub isSetGroupName {
+ return defined (shift->{_fields}->{GroupName}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/PlacementGroupInfo.pm b/src/main/resources/project/lib/Amazon/EC2/Model/PlacementGroupInfo.pm
new file mode 100644
index 0000000..c3e7730
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/PlacementGroupInfo.pm
@@ -0,0 +1,140 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::PlacementGroupInfo;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::PlacementGroupInfo
+ #
+ # Properties:
+ #
+ #
+ # GroupName: string
+ # Strategy: string
+ # State: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ GroupName => { FieldValue => undef, FieldType => "string"},
+ Strategy => { FieldValue => undef, FieldType => "string"},
+ State => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getGroupName {
+ return shift->{_fields}->{GroupName}->{FieldValue};
+ }
+
+
+ sub setGroupName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{GroupName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withGroupName {
+ my ($self, $value) = @_;
+ $self->setGroupName($value);
+ return $self;
+ }
+
+
+ sub isSetGroupName {
+ return defined (shift->{_fields}->{GroupName}->{FieldValue});
+ }
+
+
+ sub getStrategy {
+ return shift->{_fields}->{Strategy}->{FieldValue};
+ }
+
+
+ sub setStrategy {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Strategy}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withStrategy {
+ my ($self, $value) = @_;
+ $self->setStrategy($value);
+ return $self;
+ }
+
+
+ sub isSetStrategy {
+ return defined (shift->{_fields}->{Strategy}->{FieldValue});
+ }
+
+
+ sub getState {
+ return shift->{_fields}->{State}->{FieldValue};
+ }
+
+
+ sub setState {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{State}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withState {
+ my ($self, $value) = @_;
+ $self->setState($value);
+ return $self;
+ }
+
+
+ sub isSetState {
+ return defined (shift->{_fields}->{State}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/PurchaseReservedInstancesOfferingRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/PurchaseReservedInstancesOfferingRequest.pm
new file mode 100644
index 0000000..56cee2d
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/PurchaseReservedInstancesOfferingRequest.pm
@@ -0,0 +1,113 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::PurchaseReservedInstancesOfferingRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::PurchaseReservedInstancesOfferingRequest
+ #
+ # Properties:
+ #
+ #
+ # ReservedInstancesOfferingId: string
+ # InstanceCount: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ReservedInstancesOfferingId => { FieldValue => undef, FieldType => "string"},
+ InstanceCount => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getReservedInstancesOfferingId {
+ return shift->{_fields}->{ReservedInstancesOfferingId}->{FieldValue};
+ }
+
+
+ sub setReservedInstancesOfferingId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ReservedInstancesOfferingId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withReservedInstancesOfferingId {
+ my ($self, $value) = @_;
+ $self->setReservedInstancesOfferingId($value);
+ return $self;
+ }
+
+
+ sub isSetReservedInstancesOfferingId {
+ return defined (shift->{_fields}->{ReservedInstancesOfferingId}->{FieldValue});
+ }
+
+
+ sub getInstanceCount {
+ return shift->{_fields}->{InstanceCount}->{FieldValue};
+ }
+
+
+ sub setInstanceCount {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceCount}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceCount {
+ my ($self, $value) = @_;
+ $self->setInstanceCount($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceCount {
+ return defined (shift->{_fields}->{InstanceCount}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/PurchaseReservedInstancesOfferingResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/PurchaseReservedInstancesOfferingResponse.pm
new file mode 100644
index 0000000..ea7324e
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/PurchaseReservedInstancesOfferingResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::PurchaseReservedInstancesOfferingResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::PurchaseReservedInstancesOfferingResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # PurchaseReservedInstancesOfferingResult: Amazon::EC2::Model::PurchaseReservedInstancesOfferingResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ PurchaseReservedInstancesOfferingResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::PurchaseReservedInstancesOfferingResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::PurchaseReservedInstancesOfferingResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::PurchaseReservedInstancesOfferingResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getPurchaseReservedInstancesOfferingResult {
+ return shift->{_fields}->{PurchaseReservedInstancesOfferingResult}->{FieldValue};
+ }
+
+
+ sub setPurchaseReservedInstancesOfferingResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{PurchaseReservedInstancesOfferingResult}->{FieldValue} = $value;
+ }
+
+
+ sub withPurchaseReservedInstancesOfferingResult {
+ my ($self, $value) = @_;
+ $self->setPurchaseReservedInstancesOfferingResult($value);
+ return $self;
+ }
+
+
+ sub isSetPurchaseReservedInstancesOfferingResult {
+ return defined (shift->{_fields}->{PurchaseReservedInstancesOfferingResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/PurchaseReservedInstancesOfferingResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/PurchaseReservedInstancesOfferingResponse.xslt
new file mode 100644
index 0000000..4bf8dac
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/PurchaseReservedInstancesOfferingResponse.xslt
@@ -0,0 +1,19 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/PurchaseReservedInstancesOfferingResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/PurchaseReservedInstancesOfferingResult.pm
new file mode 100644
index 0000000..f2fb10d
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/PurchaseReservedInstancesOfferingResult.pm
@@ -0,0 +1,86 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::PurchaseReservedInstancesOfferingResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::PurchaseReservedInstancesOfferingResult
+ #
+ # Properties:
+ #
+ #
+ # ReservedInstancesId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ReservedInstancesId => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getReservedInstancesId {
+ return shift->{_fields}->{ReservedInstancesId}->{FieldValue};
+ }
+
+
+ sub setReservedInstancesId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ReservedInstancesId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withReservedInstancesId {
+ my ($self, $value) = @_;
+ $self->setReservedInstancesId($value);
+ return $self;
+ }
+
+
+ sub isSetReservedInstancesId {
+ return defined (shift->{_fields}->{ReservedInstancesId}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/RebootInstancesRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/RebootInstancesRequest.pm
new file mode 100644
index 0000000..3ce8fbf
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/RebootInstancesRequest.pm
@@ -0,0 +1,88 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::RebootInstancesRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::RebootInstancesRequest
+ #
+ # Properties:
+ #
+ #
+ # InstanceId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ InstanceId => {FieldValue => [], FieldType => ["string"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getInstanceId {
+ return shift->{_fields}->{InstanceId}->{FieldValue};
+ }
+
+
+ sub setInstanceId {
+ my ($self, $value) = @_;
+ $self->{_fields}->{InstanceId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withInstanceId {
+ my $self = shift;
+ my $list = $self->{_fields}->{InstanceId}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetInstanceId {
+ return scalar (@{shift->{_fields}->{InstanceId}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/RebootInstancesResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/RebootInstancesResponse.pm
new file mode 100644
index 0000000..ce4b7ba
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/RebootInstancesResponse.pm
@@ -0,0 +1,112 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::RebootInstancesResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::RebootInstancesResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::RebootInstancesResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::RebootInstancesResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/RebootInstancesResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/RebootInstancesResponse.xslt
new file mode 100644
index 0000000..472f04c
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/RebootInstancesResponse.xslt
@@ -0,0 +1,17 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/Region.pm b/src/main/resources/project/lib/Amazon/EC2/Model/Region.pm
new file mode 100644
index 0000000..112f772
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/Region.pm
@@ -0,0 +1,113 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::Region;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::Region
+ #
+ # Properties:
+ #
+ #
+ # RegionName: string
+ # Endpoint: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ RegionName => { FieldValue => undef, FieldType => "string"},
+ Endpoint => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getRegionName {
+ return shift->{_fields}->{RegionName}->{FieldValue};
+ }
+
+
+ sub setRegionName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{RegionName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withRegionName {
+ my ($self, $value) = @_;
+ $self->setRegionName($value);
+ return $self;
+ }
+
+
+ sub isSetRegionName {
+ return defined (shift->{_fields}->{RegionName}->{FieldValue});
+ }
+
+
+ sub getEndpoint {
+ return shift->{_fields}->{Endpoint}->{FieldValue};
+ }
+
+
+ sub setEndpoint {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Endpoint}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withEndpoint {
+ my ($self, $value) = @_;
+ $self->setEndpoint($value);
+ return $self;
+ }
+
+
+ sub isSetEndpoint {
+ return defined (shift->{_fields}->{Endpoint}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/RegisterImageRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/RegisterImageRequest.pm
new file mode 100644
index 0000000..62139fc
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/RegisterImageRequest.pm
@@ -0,0 +1,278 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::RegisterImageRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::RegisterImageRequest
+ #
+ # Properties:
+ #
+ #
+ # ImageLocation: string
+ # Name: string
+ # Description: string
+ # Architecture: string
+ # KernelId: string
+ # RamdiskId: string
+ # RootDeviceName: string
+ # BlockDeviceMapping: Amazon::EC2::Model::BlockDeviceMapping
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ImageLocation => { FieldValue => undef, FieldType => "string"},
+ Name => { FieldValue => undef, FieldType => "string"},
+ Description => { FieldValue => undef, FieldType => "string"},
+ Architecture => { FieldValue => undef, FieldType => "string"},
+ KernelId => { FieldValue => undef, FieldType => "string"},
+ RamdiskId => { FieldValue => undef, FieldType => "string"},
+ RootDeviceName => { FieldValue => undef, FieldType => "string"},
+ BlockDeviceMapping => {FieldValue => [], FieldType => ["Amazon::EC2::Model::BlockDeviceMapping"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getImageLocation {
+ return shift->{_fields}->{ImageLocation}->{FieldValue};
+ }
+
+
+ sub setImageLocation {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ImageLocation}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withImageLocation {
+ my ($self, $value) = @_;
+ $self->setImageLocation($value);
+ return $self;
+ }
+
+
+ sub isSetImageLocation {
+ return defined (shift->{_fields}->{ImageLocation}->{FieldValue});
+ }
+
+
+ sub getName {
+ return shift->{_fields}->{Name}->{FieldValue};
+ }
+
+
+ sub setName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Name}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withName {
+ my ($self, $value) = @_;
+ $self->setName($value);
+ return $self;
+ }
+
+
+ sub isSetName {
+ return defined (shift->{_fields}->{Name}->{FieldValue});
+ }
+
+
+ sub getDescription {
+ return shift->{_fields}->{Description}->{FieldValue};
+ }
+
+
+ sub setDescription {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Description}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withDescription {
+ my ($self, $value) = @_;
+ $self->setDescription($value);
+ return $self;
+ }
+
+
+ sub isSetDescription {
+ return defined (shift->{_fields}->{Description}->{FieldValue});
+ }
+
+
+ sub getArchitecture {
+ return shift->{_fields}->{Architecture}->{FieldValue};
+ }
+
+
+ sub setArchitecture {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Architecture}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withArchitecture {
+ my ($self, $value) = @_;
+ $self->setArchitecture($value);
+ return $self;
+ }
+
+
+ sub isSetArchitecture {
+ return defined (shift->{_fields}->{Architecture}->{FieldValue});
+ }
+
+
+ sub getKernelId {
+ return shift->{_fields}->{KernelId}->{FieldValue};
+ }
+
+
+ sub setKernelId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{KernelId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withKernelId {
+ my ($self, $value) = @_;
+ $self->setKernelId($value);
+ return $self;
+ }
+
+
+ sub isSetKernelId {
+ return defined (shift->{_fields}->{KernelId}->{FieldValue});
+ }
+
+
+ sub getRamdiskId {
+ return shift->{_fields}->{RamdiskId}->{FieldValue};
+ }
+
+
+ sub setRamdiskId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{RamdiskId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withRamdiskId {
+ my ($self, $value) = @_;
+ $self->setRamdiskId($value);
+ return $self;
+ }
+
+
+ sub isSetRamdiskId {
+ return defined (shift->{_fields}->{RamdiskId}->{FieldValue});
+ }
+
+
+ sub getRootDeviceName {
+ return shift->{_fields}->{RootDeviceName}->{FieldValue};
+ }
+
+
+ sub setRootDeviceName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{RootDeviceName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withRootDeviceName {
+ my ($self, $value) = @_;
+ $self->setRootDeviceName($value);
+ return $self;
+ }
+
+
+ sub isSetRootDeviceName {
+ return defined (shift->{_fields}->{RootDeviceName}->{FieldValue});
+ }
+
+ sub getBlockDeviceMapping {
+ return shift->{_fields}->{BlockDeviceMapping}->{FieldValue};
+ }
+
+ sub setBlockDeviceMapping {
+ my $self = shift;
+ foreach my $blockDeviceMapping (@_) {
+ if (not $self->_isArrayRef($blockDeviceMapping)) {
+ $blockDeviceMapping = [$blockDeviceMapping];
+ }
+ $self->{_fields}->{BlockDeviceMapping}->{FieldValue} = $blockDeviceMapping;
+ }
+ }
+
+
+ sub withBlockDeviceMapping {
+ my ($self, $blockDeviceMappingArgs) = @_;
+ foreach my $blockDeviceMapping (@$blockDeviceMappingArgs) {
+ $self->{_fields}->{BlockDeviceMapping}->{FieldValue} = $blockDeviceMapping;
+ }
+ return $self;
+ }
+
+
+ sub isSetBlockDeviceMapping {
+ return scalar (@{shift->{_fields}->{BlockDeviceMapping}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/RegisterImageResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/RegisterImageResponse.pm
new file mode 100644
index 0000000..4e2b994
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/RegisterImageResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::RegisterImageResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::RegisterImageResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # RegisterImageResult: Amazon::EC2::Model::RegisterImageResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ RegisterImageResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::RegisterImageResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::RegisterImageResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::RegisterImageResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getRegisterImageResult {
+ return shift->{_fields}->{RegisterImageResult}->{FieldValue};
+ }
+
+
+ sub setRegisterImageResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{RegisterImageResult}->{FieldValue} = $value;
+ }
+
+
+ sub withRegisterImageResult {
+ my ($self, $value) = @_;
+ $self->setRegisterImageResult($value);
+ return $self;
+ }
+
+
+ sub isSetRegisterImageResult {
+ return defined (shift->{_fields}->{RegisterImageResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/RegisterImageResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/RegisterImageResponse.xslt
new file mode 100644
index 0000000..84b566a
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/RegisterImageResponse.xslt
@@ -0,0 +1,19 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/RegisterImageResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/RegisterImageResult.pm
new file mode 100644
index 0000000..16a1eb6
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/RegisterImageResult.pm
@@ -0,0 +1,86 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::RegisterImageResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::RegisterImageResult
+ #
+ # Properties:
+ #
+ #
+ # ImageId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ImageId => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getImageId {
+ return shift->{_fields}->{ImageId}->{FieldValue};
+ }
+
+
+ sub setImageId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ImageId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withImageId {
+ my ($self, $value) = @_;
+ $self->setImageId($value);
+ return $self;
+ }
+
+
+ sub isSetImageId {
+ return defined (shift->{_fields}->{ImageId}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/ReleaseAddressRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/ReleaseAddressRequest.pm
new file mode 100644
index 0000000..7face45
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/ReleaseAddressRequest.pm
@@ -0,0 +1,86 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::ReleaseAddressRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::ReleaseAddressRequest
+ #
+ # Properties:
+ #
+ #
+ # PublicIp: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ PublicIp => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getPublicIp {
+ return shift->{_fields}->{PublicIp}->{FieldValue};
+ }
+
+
+ sub setPublicIp {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{PublicIp}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withPublicIp {
+ my ($self, $value) = @_;
+ $self->setPublicIp($value);
+ return $self;
+ }
+
+
+ sub isSetPublicIp {
+ return defined (shift->{_fields}->{PublicIp}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/ReleaseAddressResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/ReleaseAddressResponse.pm
new file mode 100644
index 0000000..d298de4
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/ReleaseAddressResponse.pm
@@ -0,0 +1,112 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::ReleaseAddressResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::ReleaseAddressResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::ReleaseAddressResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::ReleaseAddressResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/ReleaseAddressResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/ReleaseAddressResponse.xslt
new file mode 100644
index 0000000..018b0b0
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/ReleaseAddressResponse.xslt
@@ -0,0 +1,17 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/RequestSpotInstancesRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/RequestSpotInstancesRequest.pm
new file mode 100644
index 0000000..e4adcb6
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/RequestSpotInstancesRequest.pm
@@ -0,0 +1,273 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::RequestSpotInstancesRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::RequestSpotInstancesRequest
+ #
+ # Properties:
+ #
+ #
+ # SpotPrice: string
+ # InstanceCount: int
+ # Type: string
+ # ValidFrom: string
+ # ValidUntil: string
+ # LaunchGroup: string
+ # AvailabilityZoneGroup: string
+ # LaunchSpecification: Amazon::EC2::Model::LaunchSpecification
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ SpotPrice => { FieldValue => undef, FieldType => "string"},
+ InstanceCount => { FieldValue => undef, FieldType => "int"},
+ Type => { FieldValue => undef, FieldType => "string"},
+ ValidFrom => { FieldValue => undef, FieldType => "string"},
+ ValidUntil => { FieldValue => undef, FieldType => "string"},
+ LaunchGroup => { FieldValue => undef, FieldType => "string"},
+ AvailabilityZoneGroup => { FieldValue => undef, FieldType => "string"},
+ LaunchSpecification => {FieldValue => undef, FieldType => "Amazon::EC2::Model::LaunchSpecification"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getSpotPrice {
+ return shift->{_fields}->{SpotPrice}->{FieldValue};
+ }
+
+
+ sub setSpotPrice {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{SpotPrice}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withSpotPrice {
+ my ($self, $value) = @_;
+ $self->setSpotPrice($value);
+ return $self;
+ }
+
+
+ sub isSetSpotPrice {
+ return defined (shift->{_fields}->{SpotPrice}->{FieldValue});
+ }
+
+
+ sub getInstanceCount {
+ return shift->{_fields}->{InstanceCount}->{FieldValue};
+ }
+
+
+ sub setInstanceCount {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceCount}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceCount {
+ my ($self, $value) = @_;
+ $self->setInstanceCount($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceCount {
+ return defined (shift->{_fields}->{InstanceCount}->{FieldValue});
+ }
+
+
+ sub getType {
+ return shift->{_fields}->{Type}->{FieldValue};
+ }
+
+
+ sub setType {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Type}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withType {
+ my ($self, $value) = @_;
+ $self->setType($value);
+ return $self;
+ }
+
+
+ sub isSetType {
+ return defined (shift->{_fields}->{Type}->{FieldValue});
+ }
+
+
+ sub getValidFrom {
+ return shift->{_fields}->{ValidFrom}->{FieldValue};
+ }
+
+
+ sub setValidFrom {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ValidFrom}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withValidFrom {
+ my ($self, $value) = @_;
+ $self->setValidFrom($value);
+ return $self;
+ }
+
+
+ sub isSetValidFrom {
+ return defined (shift->{_fields}->{ValidFrom}->{FieldValue});
+ }
+
+
+ sub getValidUntil {
+ return shift->{_fields}->{ValidUntil}->{FieldValue};
+ }
+
+
+ sub setValidUntil {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ValidUntil}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withValidUntil {
+ my ($self, $value) = @_;
+ $self->setValidUntil($value);
+ return $self;
+ }
+
+
+ sub isSetValidUntil {
+ return defined (shift->{_fields}->{ValidUntil}->{FieldValue});
+ }
+
+
+ sub getLaunchGroup {
+ return shift->{_fields}->{LaunchGroup}->{FieldValue};
+ }
+
+
+ sub setLaunchGroup {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{LaunchGroup}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withLaunchGroup {
+ my ($self, $value) = @_;
+ $self->setLaunchGroup($value);
+ return $self;
+ }
+
+
+ sub isSetLaunchGroup {
+ return defined (shift->{_fields}->{LaunchGroup}->{FieldValue});
+ }
+
+
+ sub getAvailabilityZoneGroup {
+ return shift->{_fields}->{AvailabilityZoneGroup}->{FieldValue};
+ }
+
+
+ sub setAvailabilityZoneGroup {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{AvailabilityZoneGroup}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withAvailabilityZoneGroup {
+ my ($self, $value) = @_;
+ $self->setAvailabilityZoneGroup($value);
+ return $self;
+ }
+
+
+ sub isSetAvailabilityZoneGroup {
+ return defined (shift->{_fields}->{AvailabilityZoneGroup}->{FieldValue});
+ }
+
+ sub getLaunchSpecification {
+ return shift->{_fields}->{LaunchSpecification}->{FieldValue};
+ }
+
+
+ sub setLaunchSpecification {
+ my ($self, $value) = @_;
+ $self->{_fields}->{LaunchSpecification}->{FieldValue} = $value;
+ }
+
+
+ sub withLaunchSpecification {
+ my ($self, $value) = @_;
+ $self->setLaunchSpecification($value);
+ return $self;
+ }
+
+
+ sub isSetLaunchSpecification {
+ return defined (shift->{_fields}->{LaunchSpecification}->{FieldValue});
+
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/RequestSpotInstancesResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/RequestSpotInstancesResponse.pm
new file mode 100644
index 0000000..7d0e952
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/RequestSpotInstancesResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::RequestSpotInstancesResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::RequestSpotInstancesResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # RequestSpotInstancesResult: Amazon::EC2::Model::RequestSpotInstancesResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ RequestSpotInstancesResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::RequestSpotInstancesResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::RequestSpotInstancesResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::RequestSpotInstancesResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getRequestSpotInstancesResult {
+ return shift->{_fields}->{RequestSpotInstancesResult}->{FieldValue};
+ }
+
+
+ sub setRequestSpotInstancesResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{RequestSpotInstancesResult}->{FieldValue} = $value;
+ }
+
+
+ sub withRequestSpotInstancesResult {
+ my ($self, $value) = @_;
+ $self->setRequestSpotInstancesResult($value);
+ return $self;
+ }
+
+
+ sub isSetRequestSpotInstancesResult {
+ return defined (shift->{_fields}->{RequestSpotInstancesResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/RequestSpotInstancesResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/RequestSpotInstancesResponse.xslt
new file mode 100644
index 0000000..f3e94a8
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/RequestSpotInstancesResponse.xslt
@@ -0,0 +1,147 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ false
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/RequestSpotInstancesResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/RequestSpotInstancesResult.pm
new file mode 100644
index 0000000..506272e
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/RequestSpotInstancesResult.pm
@@ -0,0 +1,89 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::RequestSpotInstancesResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::RequestSpotInstancesResult
+ #
+ # Properties:
+ #
+ #
+ # SpotInstanceRequest: Amazon::EC2::Model::SpotInstanceRequest
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ SpotInstanceRequest => {FieldValue => [], FieldType => ["Amazon::EC2::Model::SpotInstanceRequest"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getSpotInstanceRequest {
+ return shift->{_fields}->{SpotInstanceRequest}->{FieldValue};
+ }
+
+ sub setSpotInstanceRequest {
+ my $self = shift;
+ foreach my $spotInstanceRequest (@_) {
+ if (not $self->_isArrayRef($spotInstanceRequest)) {
+ $spotInstanceRequest = [$spotInstanceRequest];
+ }
+ $self->{_fields}->{SpotInstanceRequest}->{FieldValue} = $spotInstanceRequest;
+ }
+ }
+
+
+ sub withSpotInstanceRequest {
+ my ($self, $spotInstanceRequestArgs) = @_;
+ foreach my $spotInstanceRequest (@$spotInstanceRequestArgs) {
+ $self->{_fields}->{SpotInstanceRequest}->{FieldValue} = $spotInstanceRequest;
+ }
+ return $self;
+ }
+
+
+ sub isSetSpotInstanceRequest {
+ return scalar (@{shift->{_fields}->{SpotInstanceRequest}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/Reservation.pm b/src/main/resources/project/lib/Amazon/EC2/Model/Reservation.pm
new file mode 100644
index 0000000..b3e1cd0
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/Reservation.pm
@@ -0,0 +1,199 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::Reservation;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::Reservation
+ #
+ # Properties:
+ #
+ #
+ # ReservationId: string
+ # OwnerId: string
+ # RequesterId: string
+ # GroupName: string
+ # RunningInstance: Amazon::EC2::Model::RunningInstance
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ReservationId => { FieldValue => undef, FieldType => "string"},
+ OwnerId => { FieldValue => undef, FieldType => "string"},
+ RequesterId => { FieldValue => undef, FieldType => "string"},
+ GroupName => {FieldValue => [], FieldType => ["string"]},
+ RunningInstance => {FieldValue => [], FieldType => ["Amazon::EC2::Model::RunningInstance"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getReservationId {
+ return shift->{_fields}->{ReservationId}->{FieldValue};
+ }
+
+
+ sub setReservationId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ReservationId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withReservationId {
+ my ($self, $value) = @_;
+ $self->setReservationId($value);
+ return $self;
+ }
+
+
+ sub isSetReservationId {
+ return defined (shift->{_fields}->{ReservationId}->{FieldValue});
+ }
+
+
+ sub getOwnerId {
+ return shift->{_fields}->{OwnerId}->{FieldValue};
+ }
+
+
+ sub setOwnerId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{OwnerId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withOwnerId {
+ my ($self, $value) = @_;
+ $self->setOwnerId($value);
+ return $self;
+ }
+
+
+ sub isSetOwnerId {
+ return defined (shift->{_fields}->{OwnerId}->{FieldValue});
+ }
+
+
+ sub getRequesterId {
+ return shift->{_fields}->{RequesterId}->{FieldValue};
+ }
+
+
+ sub setRequesterId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{RequesterId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withRequesterId {
+ my ($self, $value) = @_;
+ $self->setRequesterId($value);
+ return $self;
+ }
+
+
+ sub isSetRequesterId {
+ return defined (shift->{_fields}->{RequesterId}->{FieldValue});
+ }
+
+ sub getGroupName {
+ return shift->{_fields}->{GroupName}->{FieldValue};
+ }
+
+
+ sub setGroupName {
+ my ($self, $value) = @_;
+ $self->{_fields}->{GroupName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withGroupName {
+ my $self = shift;
+ my $list = $self->{_fields}->{GroupName}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetGroupName {
+ return scalar (@{shift->{_fields}->{GroupName}->{FieldValue}}) > 0;
+ }
+
+ sub getRunningInstance {
+ return shift->{_fields}->{RunningInstance}->{FieldValue};
+ }
+
+ sub setRunningInstance {
+ my $self = shift;
+ foreach my $runningInstance (@_) {
+ if (not $self->_isArrayRef($runningInstance)) {
+ $runningInstance = [$runningInstance];
+ }
+ $self->{_fields}->{RunningInstance}->{FieldValue} = $runningInstance;
+ }
+ }
+
+
+ sub withRunningInstance {
+ my ($self, $runningInstanceArgs) = @_;
+ foreach my $runningInstance (@$runningInstanceArgs) {
+ $self->{_fields}->{RunningInstance}->{FieldValue} = $runningInstance;
+ }
+ return $self;
+ }
+
+
+ sub isSetRunningInstance {
+ return scalar (@{shift->{_fields}->{RunningInstance}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/ReservedInstances.pm b/src/main/resources/project/lib/Amazon/EC2/Model/ReservedInstances.pm
new file mode 100644
index 0000000..ef699b7
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/ReservedInstances.pm
@@ -0,0 +1,329 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::ReservedInstances;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::ReservedInstances
+ #
+ # Properties:
+ #
+ #
+ # ReservedInstancesId: string
+ # InstanceType: string
+ # AvailabilityZone: string
+ # Duration: int
+ # UsagePrice: string
+ # FixedPrice: string
+ # InstanceCount: int
+ # ProductDescription: string
+ # PurchaseState: string
+ # StartTime: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ReservedInstancesId => { FieldValue => undef, FieldType => "string"},
+ InstanceType => { FieldValue => undef, FieldType => "string"},
+ AvailabilityZone => { FieldValue => undef, FieldType => "string"},
+ Duration => { FieldValue => undef, FieldType => "int"},
+ UsagePrice => { FieldValue => undef, FieldType => "string"},
+ FixedPrice => { FieldValue => undef, FieldType => "string"},
+ InstanceCount => { FieldValue => undef, FieldType => "int"},
+ ProductDescription => { FieldValue => undef, FieldType => "string"},
+ PurchaseState => { FieldValue => undef, FieldType => "string"},
+ StartTime => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getReservedInstancesId {
+ return shift->{_fields}->{ReservedInstancesId}->{FieldValue};
+ }
+
+
+ sub setReservedInstancesId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ReservedInstancesId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withReservedInstancesId {
+ my ($self, $value) = @_;
+ $self->setReservedInstancesId($value);
+ return $self;
+ }
+
+
+ sub isSetReservedInstancesId {
+ return defined (shift->{_fields}->{ReservedInstancesId}->{FieldValue});
+ }
+
+
+ sub getInstanceType {
+ return shift->{_fields}->{InstanceType}->{FieldValue};
+ }
+
+
+ sub setInstanceType {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceType}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceType {
+ my ($self, $value) = @_;
+ $self->setInstanceType($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceType {
+ return defined (shift->{_fields}->{InstanceType}->{FieldValue});
+ }
+
+
+ sub getAvailabilityZone {
+ return shift->{_fields}->{AvailabilityZone}->{FieldValue};
+ }
+
+
+ sub setAvailabilityZone {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{AvailabilityZone}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withAvailabilityZone {
+ my ($self, $value) = @_;
+ $self->setAvailabilityZone($value);
+ return $self;
+ }
+
+
+ sub isSetAvailabilityZone {
+ return defined (shift->{_fields}->{AvailabilityZone}->{FieldValue});
+ }
+
+
+ sub getDuration {
+ return shift->{_fields}->{Duration}->{FieldValue};
+ }
+
+
+ sub setDuration {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Duration}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withDuration {
+ my ($self, $value) = @_;
+ $self->setDuration($value);
+ return $self;
+ }
+
+
+ sub isSetDuration {
+ return defined (shift->{_fields}->{Duration}->{FieldValue});
+ }
+
+
+ sub getUsagePrice {
+ return shift->{_fields}->{UsagePrice}->{FieldValue};
+ }
+
+
+ sub setUsagePrice {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{UsagePrice}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withUsagePrice {
+ my ($self, $value) = @_;
+ $self->setUsagePrice($value);
+ return $self;
+ }
+
+
+ sub isSetUsagePrice {
+ return defined (shift->{_fields}->{UsagePrice}->{FieldValue});
+ }
+
+
+ sub getFixedPrice {
+ return shift->{_fields}->{FixedPrice}->{FieldValue};
+ }
+
+
+ sub setFixedPrice {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{FixedPrice}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withFixedPrice {
+ my ($self, $value) = @_;
+ $self->setFixedPrice($value);
+ return $self;
+ }
+
+
+ sub isSetFixedPrice {
+ return defined (shift->{_fields}->{FixedPrice}->{FieldValue});
+ }
+
+
+ sub getInstanceCount {
+ return shift->{_fields}->{InstanceCount}->{FieldValue};
+ }
+
+
+ sub setInstanceCount {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceCount}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceCount {
+ my ($self, $value) = @_;
+ $self->setInstanceCount($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceCount {
+ return defined (shift->{_fields}->{InstanceCount}->{FieldValue});
+ }
+
+
+ sub getProductDescription {
+ return shift->{_fields}->{ProductDescription}->{FieldValue};
+ }
+
+
+ sub setProductDescription {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ProductDescription}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withProductDescription {
+ my ($self, $value) = @_;
+ $self->setProductDescription($value);
+ return $self;
+ }
+
+
+ sub isSetProductDescription {
+ return defined (shift->{_fields}->{ProductDescription}->{FieldValue});
+ }
+
+
+ sub getPurchaseState {
+ return shift->{_fields}->{PurchaseState}->{FieldValue};
+ }
+
+
+ sub setPurchaseState {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{PurchaseState}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withPurchaseState {
+ my ($self, $value) = @_;
+ $self->setPurchaseState($value);
+ return $self;
+ }
+
+
+ sub isSetPurchaseState {
+ return defined (shift->{_fields}->{PurchaseState}->{FieldValue});
+ }
+
+
+ sub getStartTime {
+ return shift->{_fields}->{StartTime}->{FieldValue};
+ }
+
+
+ sub setStartTime {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{StartTime}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withStartTime {
+ my ($self, $value) = @_;
+ $self->setStartTime($value);
+ return $self;
+ }
+
+
+ sub isSetStartTime {
+ return defined (shift->{_fields}->{StartTime}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/ReservedInstancesOffering.pm b/src/main/resources/project/lib/Amazon/EC2/Model/ReservedInstancesOffering.pm
new file mode 100644
index 0000000..7623f19
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/ReservedInstancesOffering.pm
@@ -0,0 +1,248 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::ReservedInstancesOffering;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::ReservedInstancesOffering
+ #
+ # Properties:
+ #
+ #
+ # ReservedInstancesOfferingId: string
+ # InstanceType: string
+ # AvailabilityZone: string
+ # Duration: int
+ # UsagePrice: string
+ # FixedPrice: string
+ # ProductDescription: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ReservedInstancesOfferingId => { FieldValue => undef, FieldType => "string"},
+ InstanceType => { FieldValue => undef, FieldType => "string"},
+ AvailabilityZone => { FieldValue => undef, FieldType => "string"},
+ Duration => { FieldValue => undef, FieldType => "int"},
+ UsagePrice => { FieldValue => undef, FieldType => "string"},
+ FixedPrice => { FieldValue => undef, FieldType => "string"},
+ ProductDescription => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getReservedInstancesOfferingId {
+ return shift->{_fields}->{ReservedInstancesOfferingId}->{FieldValue};
+ }
+
+
+ sub setReservedInstancesOfferingId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ReservedInstancesOfferingId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withReservedInstancesOfferingId {
+ my ($self, $value) = @_;
+ $self->setReservedInstancesOfferingId($value);
+ return $self;
+ }
+
+
+ sub isSetReservedInstancesOfferingId {
+ return defined (shift->{_fields}->{ReservedInstancesOfferingId}->{FieldValue});
+ }
+
+
+ sub getInstanceType {
+ return shift->{_fields}->{InstanceType}->{FieldValue};
+ }
+
+
+ sub setInstanceType {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceType}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceType {
+ my ($self, $value) = @_;
+ $self->setInstanceType($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceType {
+ return defined (shift->{_fields}->{InstanceType}->{FieldValue});
+ }
+
+
+ sub getAvailabilityZone {
+ return shift->{_fields}->{AvailabilityZone}->{FieldValue};
+ }
+
+
+ sub setAvailabilityZone {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{AvailabilityZone}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withAvailabilityZone {
+ my ($self, $value) = @_;
+ $self->setAvailabilityZone($value);
+ return $self;
+ }
+
+
+ sub isSetAvailabilityZone {
+ return defined (shift->{_fields}->{AvailabilityZone}->{FieldValue});
+ }
+
+
+ sub getDuration {
+ return shift->{_fields}->{Duration}->{FieldValue};
+ }
+
+
+ sub setDuration {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Duration}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withDuration {
+ my ($self, $value) = @_;
+ $self->setDuration($value);
+ return $self;
+ }
+
+
+ sub isSetDuration {
+ return defined (shift->{_fields}->{Duration}->{FieldValue});
+ }
+
+
+ sub getUsagePrice {
+ return shift->{_fields}->{UsagePrice}->{FieldValue};
+ }
+
+
+ sub setUsagePrice {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{UsagePrice}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withUsagePrice {
+ my ($self, $value) = @_;
+ $self->setUsagePrice($value);
+ return $self;
+ }
+
+
+ sub isSetUsagePrice {
+ return defined (shift->{_fields}->{UsagePrice}->{FieldValue});
+ }
+
+
+ sub getFixedPrice {
+ return shift->{_fields}->{FixedPrice}->{FieldValue};
+ }
+
+
+ sub setFixedPrice {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{FixedPrice}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withFixedPrice {
+ my ($self, $value) = @_;
+ $self->setFixedPrice($value);
+ return $self;
+ }
+
+
+ sub isSetFixedPrice {
+ return defined (shift->{_fields}->{FixedPrice}->{FieldValue});
+ }
+
+
+ sub getProductDescription {
+ return shift->{_fields}->{ProductDescription}->{FieldValue};
+ }
+
+
+ sub setProductDescription {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ProductDescription}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withProductDescription {
+ my ($self, $value) = @_;
+ $self->setProductDescription($value);
+ return $self;
+ }
+
+
+ sub isSetProductDescription {
+ return defined (shift->{_fields}->{ProductDescription}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/ResetImageAttributeRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/ResetImageAttributeRequest.pm
new file mode 100644
index 0000000..7eddc36
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/ResetImageAttributeRequest.pm
@@ -0,0 +1,113 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::ResetImageAttributeRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::ResetImageAttributeRequest
+ #
+ # Properties:
+ #
+ #
+ # ImageId: string
+ # Attribute: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ImageId => { FieldValue => undef, FieldType => "string"},
+ Attribute => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getImageId {
+ return shift->{_fields}->{ImageId}->{FieldValue};
+ }
+
+
+ sub setImageId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ImageId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withImageId {
+ my ($self, $value) = @_;
+ $self->setImageId($value);
+ return $self;
+ }
+
+
+ sub isSetImageId {
+ return defined (shift->{_fields}->{ImageId}->{FieldValue});
+ }
+
+
+ sub getAttribute {
+ return shift->{_fields}->{Attribute}->{FieldValue};
+ }
+
+
+ sub setAttribute {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Attribute}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withAttribute {
+ my ($self, $value) = @_;
+ $self->setAttribute($value);
+ return $self;
+ }
+
+
+ sub isSetAttribute {
+ return defined (shift->{_fields}->{Attribute}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/ResetImageAttributeResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/ResetImageAttributeResponse.pm
new file mode 100644
index 0000000..4221984
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/ResetImageAttributeResponse.pm
@@ -0,0 +1,112 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::ResetImageAttributeResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::ResetImageAttributeResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::ResetImageAttributeResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::ResetImageAttributeResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/ResetImageAttributeResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/ResetImageAttributeResponse.xslt
new file mode 100644
index 0000000..c6fb594
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/ResetImageAttributeResponse.xslt
@@ -0,0 +1,17 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/ResetInstanceAttributeRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/ResetInstanceAttributeRequest.pm
new file mode 100644
index 0000000..4a9e249
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/ResetInstanceAttributeRequest.pm
@@ -0,0 +1,113 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::ResetInstanceAttributeRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::ResetInstanceAttributeRequest
+ #
+ # Properties:
+ #
+ #
+ # InstanceId: string
+ # Attribute: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ InstanceId => { FieldValue => undef, FieldType => "string"},
+ Attribute => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getInstanceId {
+ return shift->{_fields}->{InstanceId}->{FieldValue};
+ }
+
+
+ sub setInstanceId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceId {
+ my ($self, $value) = @_;
+ $self->setInstanceId($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceId {
+ return defined (shift->{_fields}->{InstanceId}->{FieldValue});
+ }
+
+
+ sub getAttribute {
+ return shift->{_fields}->{Attribute}->{FieldValue};
+ }
+
+
+ sub setAttribute {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Attribute}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withAttribute {
+ my ($self, $value) = @_;
+ $self->setAttribute($value);
+ return $self;
+ }
+
+
+ sub isSetAttribute {
+ return defined (shift->{_fields}->{Attribute}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/ResetInstanceAttributeResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/ResetInstanceAttributeResponse.pm
new file mode 100644
index 0000000..b840e51
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/ResetInstanceAttributeResponse.pm
@@ -0,0 +1,112 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::ResetInstanceAttributeResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::ResetInstanceAttributeResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::ResetInstanceAttributeResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::ResetInstanceAttributeResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/ResetInstanceAttributeResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/ResetInstanceAttributeResponse.xslt
new file mode 100644
index 0000000..53917b6
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/ResetInstanceAttributeResponse.xslt
@@ -0,0 +1,14 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/ResetSnapshotAttributeRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/ResetSnapshotAttributeRequest.pm
new file mode 100644
index 0000000..011c022
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/ResetSnapshotAttributeRequest.pm
@@ -0,0 +1,113 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::ResetSnapshotAttributeRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::ResetSnapshotAttributeRequest
+ #
+ # Properties:
+ #
+ #
+ # SnapshotId: string
+ # Attribute: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ SnapshotId => { FieldValue => undef, FieldType => "string"},
+ Attribute => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getSnapshotId {
+ return shift->{_fields}->{SnapshotId}->{FieldValue};
+ }
+
+
+ sub setSnapshotId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{SnapshotId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withSnapshotId {
+ my ($self, $value) = @_;
+ $self->setSnapshotId($value);
+ return $self;
+ }
+
+
+ sub isSetSnapshotId {
+ return defined (shift->{_fields}->{SnapshotId}->{FieldValue});
+ }
+
+
+ sub getAttribute {
+ return shift->{_fields}->{Attribute}->{FieldValue};
+ }
+
+
+ sub setAttribute {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Attribute}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withAttribute {
+ my ($self, $value) = @_;
+ $self->setAttribute($value);
+ return $self;
+ }
+
+
+ sub isSetAttribute {
+ return defined (shift->{_fields}->{Attribute}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/ResetSnapshotAttributeResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/ResetSnapshotAttributeResponse.pm
new file mode 100644
index 0000000..c1a4215
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/ResetSnapshotAttributeResponse.pm
@@ -0,0 +1,112 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::ResetSnapshotAttributeResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::ResetSnapshotAttributeResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::ResetSnapshotAttributeResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::ResetSnapshotAttributeResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/ResetSnapshotAttributeResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/ResetSnapshotAttributeResponse.xslt
new file mode 100644
index 0000000..42985c0
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/ResetSnapshotAttributeResponse.xslt
@@ -0,0 +1,21 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/ResponseMetadata.pm b/src/main/resources/project/lib/Amazon/EC2/Model/ResponseMetadata.pm
new file mode 100644
index 0000000..5c39258
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/ResponseMetadata.pm
@@ -0,0 +1,86 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::ResponseMetadata;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::ResponseMetadata
+ #
+ # Properties:
+ #
+ #
+ # RequestId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ RequestId => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getRequestId {
+ return shift->{_fields}->{RequestId}->{FieldValue};
+ }
+
+
+ sub setRequestId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{RequestId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withRequestId {
+ my ($self, $value) = @_;
+ $self->setRequestId($value);
+ return $self;
+ }
+
+
+ sub isSetRequestId {
+ return defined (shift->{_fields}->{RequestId}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/RevokeSecurityGroupIngressRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/RevokeSecurityGroupIngressRequest.pm
new file mode 100644
index 0000000..ad8c54d
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/RevokeSecurityGroupIngressRequest.pm
@@ -0,0 +1,275 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::RevokeSecurityGroupIngressRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::RevokeSecurityGroupIngressRequest
+ #
+ # Properties:
+ #
+ #
+ # UserId: string
+ # GroupName: string
+ # SourceSecurityGroupName: string
+ # SourceSecurityGroupOwnerId: string
+ # IpProtocol: string
+ # FromPort: int
+ # ToPort: int
+ # CidrIp: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ UserId => { FieldValue => undef, FieldType => "string"},
+ GroupName => { FieldValue => undef, FieldType => "string"},
+ SourceSecurityGroupName => { FieldValue => undef, FieldType => "string"},
+ SourceSecurityGroupOwnerId => { FieldValue => undef, FieldType => "string"},
+ IpProtocol => { FieldValue => undef, FieldType => "string"},
+ FromPort => { FieldValue => undef, FieldType => "int"},
+ ToPort => { FieldValue => undef, FieldType => "int"},
+ CidrIp => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getUserId {
+ return shift->{_fields}->{UserId}->{FieldValue};
+ }
+
+
+ sub setUserId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{UserId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withUserId {
+ my ($self, $value) = @_;
+ $self->setUserId($value);
+ return $self;
+ }
+
+
+ sub isSetUserId {
+ return defined (shift->{_fields}->{UserId}->{FieldValue});
+ }
+
+
+ sub getGroupName {
+ return shift->{_fields}->{GroupName}->{FieldValue};
+ }
+
+
+ sub setGroupName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{GroupName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withGroupName {
+ my ($self, $value) = @_;
+ $self->setGroupName($value);
+ return $self;
+ }
+
+
+ sub isSetGroupName {
+ return defined (shift->{_fields}->{GroupName}->{FieldValue});
+ }
+
+
+ sub getSourceSecurityGroupName {
+ return shift->{_fields}->{SourceSecurityGroupName}->{FieldValue};
+ }
+
+
+ sub setSourceSecurityGroupName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{SourceSecurityGroupName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withSourceSecurityGroupName {
+ my ($self, $value) = @_;
+ $self->setSourceSecurityGroupName($value);
+ return $self;
+ }
+
+
+ sub isSetSourceSecurityGroupName {
+ return defined (shift->{_fields}->{SourceSecurityGroupName}->{FieldValue});
+ }
+
+
+ sub getSourceSecurityGroupOwnerId {
+ return shift->{_fields}->{SourceSecurityGroupOwnerId}->{FieldValue};
+ }
+
+
+ sub setSourceSecurityGroupOwnerId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{SourceSecurityGroupOwnerId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withSourceSecurityGroupOwnerId {
+ my ($self, $value) = @_;
+ $self->setSourceSecurityGroupOwnerId($value);
+ return $self;
+ }
+
+
+ sub isSetSourceSecurityGroupOwnerId {
+ return defined (shift->{_fields}->{SourceSecurityGroupOwnerId}->{FieldValue});
+ }
+
+
+ sub getIpProtocol {
+ return shift->{_fields}->{IpProtocol}->{FieldValue};
+ }
+
+
+ sub setIpProtocol {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{IpProtocol}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withIpProtocol {
+ my ($self, $value) = @_;
+ $self->setIpProtocol($value);
+ return $self;
+ }
+
+
+ sub isSetIpProtocol {
+ return defined (shift->{_fields}->{IpProtocol}->{FieldValue});
+ }
+
+
+ sub getFromPort {
+ return shift->{_fields}->{FromPort}->{FieldValue};
+ }
+
+
+ sub setFromPort {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{FromPort}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withFromPort {
+ my ($self, $value) = @_;
+ $self->setFromPort($value);
+ return $self;
+ }
+
+
+ sub isSetFromPort {
+ return defined (shift->{_fields}->{FromPort}->{FieldValue});
+ }
+
+
+ sub getToPort {
+ return shift->{_fields}->{ToPort}->{FieldValue};
+ }
+
+
+ sub setToPort {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ToPort}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withToPort {
+ my ($self, $value) = @_;
+ $self->setToPort($value);
+ return $self;
+ }
+
+
+ sub isSetToPort {
+ return defined (shift->{_fields}->{ToPort}->{FieldValue});
+ }
+
+
+ sub getCidrIp {
+ return shift->{_fields}->{CidrIp}->{FieldValue};
+ }
+
+
+ sub setCidrIp {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{CidrIp}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withCidrIp {
+ my ($self, $value) = @_;
+ $self->setCidrIp($value);
+ return $self;
+ }
+
+
+ sub isSetCidrIp {
+ return defined (shift->{_fields}->{CidrIp}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/RevokeSecurityGroupIngressResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/RevokeSecurityGroupIngressResponse.pm
new file mode 100644
index 0000000..bcdba24
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/RevokeSecurityGroupIngressResponse.pm
@@ -0,0 +1,112 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::RevokeSecurityGroupIngressResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::RevokeSecurityGroupIngressResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::RevokeSecurityGroupIngressResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::RevokeSecurityGroupIngressResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/RevokeSecurityGroupIngressResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/RevokeSecurityGroupIngressResponse.xslt
new file mode 100644
index 0000000..cf000ac
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/RevokeSecurityGroupIngressResponse.xslt
@@ -0,0 +1,17 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/RunInstancesRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/RunInstancesRequest.pm
new file mode 100644
index 0000000..021233e
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/RunInstancesRequest.pm
@@ -0,0 +1,544 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::RunInstancesRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::RunInstancesRequest
+ #
+ # Properties:
+ #
+ #
+ # ImageId: string
+ # MinCount: int
+ # MaxCount: int
+ # KeyName: string
+ # SecurityGroup: string
+ # UserData: string
+ # InstanceType: string
+ # Placement: Amazon::EC2::Model::Placement
+ # KernelId: string
+ # RamdiskId: string
+ # BlockDeviceMapping: Amazon::EC2::Model::BlockDeviceMapping
+ # Monitoring: Amazon::EC2::Model::MonitoringSpecification
+ # SubnetId: string
+ # AdditionalInfo: string
+ # DisableApiTermination: bool
+ # InstanceInitiatedShutdownBehavior: string
+ # License: Amazon::EC2::Model::InstanceLicenseSpecification
+ # PrivateIpAddress: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ImageId => { FieldValue => undef, FieldType => "string"},
+ MinCount => { FieldValue => undef, FieldType => "int"},
+ MaxCount => { FieldValue => undef, FieldType => "int"},
+ KeyName => { FieldValue => undef, FieldType => "string"},
+ SecurityGroup => {FieldValue => [], FieldType => ["string"]},
+ UserData => { FieldValue => undef, FieldType => "string"},
+ InstanceType => { FieldValue => undef, FieldType => "string"},
+ Placement => {FieldValue => undef, FieldType => "Amazon::EC2::Model::Placement"},
+ KernelId => { FieldValue => undef, FieldType => "string"},
+ RamdiskId => { FieldValue => undef, FieldType => "string"},
+ BlockDeviceMapping => {FieldValue => [], FieldType => ["Amazon::EC2::Model::BlockDeviceMapping"]},
+ Monitoring => {FieldValue => undef, FieldType => "Amazon::EC2::Model::MonitoringSpecification"},
+ SubnetId => { FieldValue => undef, FieldType => "string"},
+ AdditionalInfo => { FieldValue => undef, FieldType => "string"},
+ DisableApiTermination => { FieldValue => undef, FieldType => "bool"},
+ InstanceInitiatedShutdownBehavior => { FieldValue => undef, FieldType => "string"},
+ License => {FieldValue => undef, FieldType => "Amazon::EC2::Model::InstanceLicenseSpecification"},
+ PrivateIpAddress => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getImageId {
+ return shift->{_fields}->{ImageId}->{FieldValue};
+ }
+
+
+ sub setImageId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ImageId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withImageId {
+ my ($self, $value) = @_;
+ $self->setImageId($value);
+ return $self;
+ }
+
+
+ sub isSetImageId {
+ return defined (shift->{_fields}->{ImageId}->{FieldValue});
+ }
+
+
+ sub getMinCount {
+ return shift->{_fields}->{MinCount}->{FieldValue};
+ }
+
+
+ sub setMinCount {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{MinCount}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withMinCount {
+ my ($self, $value) = @_;
+ $self->setMinCount($value);
+ return $self;
+ }
+
+
+ sub isSetMinCount {
+ return defined (shift->{_fields}->{MinCount}->{FieldValue});
+ }
+
+
+ sub getMaxCount {
+ return shift->{_fields}->{MaxCount}->{FieldValue};
+ }
+
+
+ sub setMaxCount {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{MaxCount}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withMaxCount {
+ my ($self, $value) = @_;
+ $self->setMaxCount($value);
+ return $self;
+ }
+
+
+ sub isSetMaxCount {
+ return defined (shift->{_fields}->{MaxCount}->{FieldValue});
+ }
+
+
+ sub getKeyName {
+ return shift->{_fields}->{KeyName}->{FieldValue};
+ }
+
+
+ sub setKeyName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{KeyName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withKeyName {
+ my ($self, $value) = @_;
+ $self->setKeyName($value);
+ return $self;
+ }
+
+
+ sub isSetKeyName {
+ return defined (shift->{_fields}->{KeyName}->{FieldValue});
+ }
+
+ sub getSecurityGroup {
+ return shift->{_fields}->{SecurityGroup}->{FieldValue};
+ }
+
+
+ sub setSecurityGroup {
+ my ($self, $value) = @_;
+ $self->{_fields}->{SecurityGroup}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withSecurityGroup {
+ my $self = shift;
+ my $list = $self->{_fields}->{SecurityGroup}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetSecurityGroup {
+ return scalar (@{shift->{_fields}->{SecurityGroup}->{FieldValue}}) > 0;
+ }
+
+
+ sub getUserData {
+ return shift->{_fields}->{UserData}->{FieldValue};
+ }
+
+
+ sub setUserData {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{UserData}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withUserData {
+ my ($self, $value) = @_;
+ $self->setUserData($value);
+ return $self;
+ }
+
+
+ sub isSetUserData {
+ return defined (shift->{_fields}->{UserData}->{FieldValue});
+ }
+
+
+ sub getInstanceType {
+ return shift->{_fields}->{InstanceType}->{FieldValue};
+ }
+
+
+ sub setInstanceType {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceType}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceType {
+ my ($self, $value) = @_;
+ $self->setInstanceType($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceType {
+ return defined (shift->{_fields}->{InstanceType}->{FieldValue});
+ }
+
+ sub getPlacement {
+ return shift->{_fields}->{Placement}->{FieldValue};
+ }
+
+
+ sub setPlacement {
+ my ($self, $value) = @_;
+ $self->{_fields}->{Placement}->{FieldValue} = $value;
+ }
+
+
+ sub withPlacement {
+ my ($self, $value) = @_;
+ $self->setPlacement($value);
+ return $self;
+ }
+
+
+ sub isSetPlacement {
+ return defined (shift->{_fields}->{Placement}->{FieldValue});
+
+ }
+
+
+ sub getKernelId {
+ return shift->{_fields}->{KernelId}->{FieldValue};
+ }
+
+
+ sub setKernelId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{KernelId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withKernelId {
+ my ($self, $value) = @_;
+ $self->setKernelId($value);
+ return $self;
+ }
+
+
+ sub isSetKernelId {
+ return defined (shift->{_fields}->{KernelId}->{FieldValue});
+ }
+
+
+ sub getRamdiskId {
+ return shift->{_fields}->{RamdiskId}->{FieldValue};
+ }
+
+
+ sub setRamdiskId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{RamdiskId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withRamdiskId {
+ my ($self, $value) = @_;
+ $self->setRamdiskId($value);
+ return $self;
+ }
+
+
+ sub isSetRamdiskId {
+ return defined (shift->{_fields}->{RamdiskId}->{FieldValue});
+ }
+
+ sub getBlockDeviceMapping {
+ return shift->{_fields}->{BlockDeviceMapping}->{FieldValue};
+ }
+
+ sub setBlockDeviceMapping {
+ my $self = shift;
+ foreach my $blockDeviceMapping (@_) {
+ if (not $self->_isArrayRef($blockDeviceMapping)) {
+ $blockDeviceMapping = [$blockDeviceMapping];
+ }
+ $self->{_fields}->{BlockDeviceMapping}->{FieldValue} = $blockDeviceMapping;
+ }
+ }
+
+
+ sub withBlockDeviceMapping {
+ my ($self, $blockDeviceMappingArgs) = @_;
+ foreach my $blockDeviceMapping (@$blockDeviceMappingArgs) {
+ $self->{_fields}->{BlockDeviceMapping}->{FieldValue} = $blockDeviceMapping;
+ }
+ return $self;
+ }
+
+
+ sub isSetBlockDeviceMapping {
+ return scalar (@{shift->{_fields}->{BlockDeviceMapping}->{FieldValue}}) > 0;
+ }
+
+ sub getMonitoring {
+ return shift->{_fields}->{Monitoring}->{FieldValue};
+ }
+
+
+ sub setMonitoring {
+ my ($self, $value) = @_;
+ $self->{_fields}->{Monitoring}->{FieldValue} = $value;
+ }
+
+
+ sub withMonitoring {
+ my ($self, $value) = @_;
+ $self->setMonitoring($value);
+ return $self;
+ }
+
+
+ sub isSetMonitoring {
+ return defined (shift->{_fields}->{Monitoring}->{FieldValue});
+
+ }
+
+
+ sub getSubnetId {
+ return shift->{_fields}->{SubnetId}->{FieldValue};
+ }
+
+
+ sub setSubnetId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{SubnetId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withSubnetId {
+ my ($self, $value) = @_;
+ $self->setSubnetId($value);
+ return $self;
+ }
+
+
+ sub isSetSubnetId {
+ return defined (shift->{_fields}->{SubnetId}->{FieldValue});
+ }
+
+
+ sub getAdditionalInfo {
+ return shift->{_fields}->{AdditionalInfo}->{FieldValue};
+ }
+
+
+ sub setAdditionalInfo {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{AdditionalInfo}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withAdditionalInfo {
+ my ($self, $value) = @_;
+ $self->setAdditionalInfo($value);
+ return $self;
+ }
+
+
+ sub isSetAdditionalInfo {
+ return defined (shift->{_fields}->{AdditionalInfo}->{FieldValue});
+ }
+
+
+ sub getDisableApiTermination {
+ return shift->{_fields}->{DisableApiTermination}->{FieldValue};
+ }
+
+
+ sub setDisableApiTermination {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{DisableApiTermination}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withDisableApiTermination {
+ my ($self, $value) = @_;
+ $self->setDisableApiTermination($value);
+ return $self;
+ }
+
+
+ sub isSetDisableApiTermination {
+ return defined (shift->{_fields}->{DisableApiTermination}->{FieldValue});
+ }
+
+
+ sub getInstanceInitiatedShutdownBehavior {
+ return shift->{_fields}->{InstanceInitiatedShutdownBehavior}->{FieldValue};
+ }
+
+
+ sub setInstanceInitiatedShutdownBehavior {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceInitiatedShutdownBehavior}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceInitiatedShutdownBehavior {
+ my ($self, $value) = @_;
+ $self->setInstanceInitiatedShutdownBehavior($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceInitiatedShutdownBehavior {
+ return defined (shift->{_fields}->{InstanceInitiatedShutdownBehavior}->{FieldValue});
+ }
+
+ sub getLicense {
+ return shift->{_fields}->{License}->{FieldValue};
+ }
+
+
+ sub setLicense {
+ my ($self, $value) = @_;
+ $self->{_fields}->{License}->{FieldValue} = $value;
+ }
+
+
+ sub withLicense {
+ my ($self, $value) = @_;
+ $self->setLicense($value);
+ return $self;
+ }
+
+
+ sub isSetLicense {
+ return defined (shift->{_fields}->{License}->{FieldValue});
+
+ }
+
+
+ sub getPrivateIpAddress {
+ return shift->{_fields}->{PrivateIpAddress}->{FieldValue};
+ }
+
+
+ sub setPrivateIpAddress {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{PrivateIpAddress}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withPrivateIpAddress {
+ my ($self, $value) = @_;
+ $self->setPrivateIpAddress($value);
+ return $self;
+ }
+
+
+ sub isSetPrivateIpAddress {
+ return defined (shift->{_fields}->{PrivateIpAddress}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/RunInstancesResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/RunInstancesResponse.pm
new file mode 100644
index 0000000..458ff30
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/RunInstancesResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::RunInstancesResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::RunInstancesResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # RunInstancesResult: Amazon::EC2::Model::RunInstancesResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ RunInstancesResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::RunInstancesResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::RunInstancesResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::RunInstancesResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getRunInstancesResult {
+ return shift->{_fields}->{RunInstancesResult}->{FieldValue};
+ }
+
+
+ sub setRunInstancesResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{RunInstancesResult}->{FieldValue} = $value;
+ }
+
+
+ sub withRunInstancesResult {
+ my ($self, $value) = @_;
+ $self->setRunInstancesResult($value);
+ return $self;
+ }
+
+
+ sub isSetRunInstancesResult {
+ return defined (shift->{_fields}->{RunInstancesResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/RunInstancesResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/RunInstancesResponse.xslt
new file mode 100644
index 0000000..5ec2d7a
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/RunInstancesResponse.xslt
@@ -0,0 +1,189 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ false
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/RunInstancesResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/RunInstancesResult.pm
new file mode 100644
index 0000000..83b99e2
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/RunInstancesResult.pm
@@ -0,0 +1,84 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::RunInstancesResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::RunInstancesResult
+ #
+ # Properties:
+ #
+ #
+ # Reservation: Amazon::EC2::Model::Reservation
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ Reservation => {FieldValue => undef, FieldType => "Amazon::EC2::Model::Reservation"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getReservation {
+ return shift->{_fields}->{Reservation}->{FieldValue};
+ }
+
+
+ sub setReservation {
+ my ($self, $value) = @_;
+ $self->{_fields}->{Reservation}->{FieldValue} = $value;
+ }
+
+
+ sub withReservation {
+ my ($self, $value) = @_;
+ $self->setReservation($value);
+ return $self;
+ }
+
+
+ sub isSetReservation {
+ return defined (shift->{_fields}->{Reservation}->{FieldValue});
+
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/RunningInstance.pm b/src/main/resources/project/lib/Amazon/EC2/Model/RunningInstance.pm
new file mode 100644
index 0000000..f560b10
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/RunningInstance.pm
@@ -0,0 +1,837 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::RunningInstance;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::RunningInstance
+ #
+ # Properties:
+ #
+ #
+ # InstanceId: string
+ # ImageId: string
+ # InstanceState: Amazon::EC2::Model::InstanceState
+ # PrivateDnsName: string
+ # PublicDnsName: string
+ # StateTransitionReason: string
+ # KeyName: string
+ # AmiLaunchIndex: string
+ # ProductCode: string
+ # InstanceType: string
+ # LaunchTime: string
+ # Placement: Amazon::EC2::Model::Placement
+ # KernelId: string
+ # RamdiskId: string
+ # Platform: string
+ # Monitoring: Amazon::EC2::Model::Monitoring
+ # SubnetId: string
+ # VpcId: string
+ # PrivateIpAddress: string
+ # IpAddress: string
+ # StateReason: Amazon::EC2::Model::StateReason
+ # Architecture: string
+ # RootDeviceType: string
+ # RootDeviceName: string
+ # BlockDeviceMapping: Amazon::EC2::Model::InstanceBlockDeviceMapping
+ # InstanceLifecycle: string
+ # SpotInstanceRequestId: string
+ # License: Amazon::EC2::Model::InstanceLicense
+ # VirtualizationType: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ InstanceId => { FieldValue => undef, FieldType => "string"},
+ ImageId => { FieldValue => undef, FieldType => "string"},
+ InstanceState => {FieldValue => undef, FieldType => "Amazon::EC2::Model::InstanceState"},
+ PrivateDnsName => { FieldValue => undef, FieldType => "string"},
+ PublicDnsName => { FieldValue => undef, FieldType => "string"},
+ StateTransitionReason => { FieldValue => undef, FieldType => "string"},
+ KeyName => { FieldValue => undef, FieldType => "string"},
+ AmiLaunchIndex => { FieldValue => undef, FieldType => "string"},
+ ProductCode => {FieldValue => [], FieldType => ["string"]},
+ InstanceType => { FieldValue => undef, FieldType => "string"},
+ LaunchTime => { FieldValue => undef, FieldType => "string"},
+ Placement => {FieldValue => undef, FieldType => "Amazon::EC2::Model::Placement"},
+ KernelId => { FieldValue => undef, FieldType => "string"},
+ RamdiskId => { FieldValue => undef, FieldType => "string"},
+ Platform => { FieldValue => undef, FieldType => "string"},
+ Monitoring => {FieldValue => undef, FieldType => "Amazon::EC2::Model::Monitoring"},
+ SubnetId => { FieldValue => undef, FieldType => "string"},
+ VpcId => { FieldValue => undef, FieldType => "string"},
+ PrivateIpAddress => { FieldValue => undef, FieldType => "string"},
+ IpAddress => { FieldValue => undef, FieldType => "string"},
+ StateReason => {FieldValue => undef, FieldType => "Amazon::EC2::Model::StateReason"},
+ Architecture => { FieldValue => undef, FieldType => "string"},
+ RootDeviceType => { FieldValue => undef, FieldType => "string"},
+ RootDeviceName => { FieldValue => undef, FieldType => "string"},
+ BlockDeviceMapping => {FieldValue => [], FieldType => ["Amazon::EC2::Model::InstanceBlockDeviceMapping"]},
+ InstanceLifecycle => { FieldValue => undef, FieldType => "string"},
+ SpotInstanceRequestId => { FieldValue => undef, FieldType => "string"},
+ License => {FieldValue => undef, FieldType => "Amazon::EC2::Model::InstanceLicense"},
+ VirtualizationType => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getInstanceId {
+ return shift->{_fields}->{InstanceId}->{FieldValue};
+ }
+
+
+ sub setInstanceId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceId {
+ my ($self, $value) = @_;
+ $self->setInstanceId($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceId {
+ return defined (shift->{_fields}->{InstanceId}->{FieldValue});
+ }
+
+
+ sub getImageId {
+ return shift->{_fields}->{ImageId}->{FieldValue};
+ }
+
+
+ sub setImageId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ImageId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withImageId {
+ my ($self, $value) = @_;
+ $self->setImageId($value);
+ return $self;
+ }
+
+
+ sub isSetImageId {
+ return defined (shift->{_fields}->{ImageId}->{FieldValue});
+ }
+
+ sub getInstanceState {
+ return shift->{_fields}->{InstanceState}->{FieldValue};
+ }
+
+
+ sub setInstanceState {
+ my ($self, $value) = @_;
+ $self->{_fields}->{InstanceState}->{FieldValue} = $value;
+ }
+
+
+ sub withInstanceState {
+ my ($self, $value) = @_;
+ $self->setInstanceState($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceState {
+ return defined (shift->{_fields}->{InstanceState}->{FieldValue});
+
+ }
+
+
+ sub getPrivateDnsName {
+ return shift->{_fields}->{PrivateDnsName}->{FieldValue};
+ }
+
+
+ sub setPrivateDnsName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{PrivateDnsName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withPrivateDnsName {
+ my ($self, $value) = @_;
+ $self->setPrivateDnsName($value);
+ return $self;
+ }
+
+
+ sub isSetPrivateDnsName {
+ return defined (shift->{_fields}->{PrivateDnsName}->{FieldValue});
+ }
+
+
+ sub getPublicDnsName {
+ return shift->{_fields}->{PublicDnsName}->{FieldValue};
+ }
+
+
+ sub setPublicDnsName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{PublicDnsName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withPublicDnsName {
+ my ($self, $value) = @_;
+ $self->setPublicDnsName($value);
+ return $self;
+ }
+
+
+ sub isSetPublicDnsName {
+ return defined (shift->{_fields}->{PublicDnsName}->{FieldValue});
+ }
+
+
+ sub getStateTransitionReason {
+ return shift->{_fields}->{StateTransitionReason}->{FieldValue};
+ }
+
+
+ sub setStateTransitionReason {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{StateTransitionReason}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withStateTransitionReason {
+ my ($self, $value) = @_;
+ $self->setStateTransitionReason($value);
+ return $self;
+ }
+
+
+ sub isSetStateTransitionReason {
+ return defined (shift->{_fields}->{StateTransitionReason}->{FieldValue});
+ }
+
+
+ sub getKeyName {
+ return shift->{_fields}->{KeyName}->{FieldValue};
+ }
+
+
+ sub setKeyName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{KeyName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withKeyName {
+ my ($self, $value) = @_;
+ $self->setKeyName($value);
+ return $self;
+ }
+
+
+ sub isSetKeyName {
+ return defined (shift->{_fields}->{KeyName}->{FieldValue});
+ }
+
+
+ sub getAmiLaunchIndex {
+ return shift->{_fields}->{AmiLaunchIndex}->{FieldValue};
+ }
+
+
+ sub setAmiLaunchIndex {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{AmiLaunchIndex}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withAmiLaunchIndex {
+ my ($self, $value) = @_;
+ $self->setAmiLaunchIndex($value);
+ return $self;
+ }
+
+
+ sub isSetAmiLaunchIndex {
+ return defined (shift->{_fields}->{AmiLaunchIndex}->{FieldValue});
+ }
+
+ sub getProductCode {
+ return shift->{_fields}->{ProductCode}->{FieldValue};
+ }
+
+
+ sub setProductCode {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ProductCode}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withProductCode {
+ my $self = shift;
+ my $list = $self->{_fields}->{ProductCode}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetProductCode {
+ return scalar (@{shift->{_fields}->{ProductCode}->{FieldValue}}) > 0;
+ }
+
+
+ sub getInstanceType {
+ return shift->{_fields}->{InstanceType}->{FieldValue};
+ }
+
+
+ sub setInstanceType {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceType}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceType {
+ my ($self, $value) = @_;
+ $self->setInstanceType($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceType {
+ return defined (shift->{_fields}->{InstanceType}->{FieldValue});
+ }
+
+
+ sub getLaunchTime {
+ return shift->{_fields}->{LaunchTime}->{FieldValue};
+ }
+
+
+ sub setLaunchTime {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{LaunchTime}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withLaunchTime {
+ my ($self, $value) = @_;
+ $self->setLaunchTime($value);
+ return $self;
+ }
+
+
+ sub isSetLaunchTime {
+ return defined (shift->{_fields}->{LaunchTime}->{FieldValue});
+ }
+
+ sub getPlacement {
+ return shift->{_fields}->{Placement}->{FieldValue};
+ }
+
+
+ sub setPlacement {
+ my ($self, $value) = @_;
+ $self->{_fields}->{Placement}->{FieldValue} = $value;
+ }
+
+
+ sub withPlacement {
+ my ($self, $value) = @_;
+ $self->setPlacement($value);
+ return $self;
+ }
+
+
+ sub isSetPlacement {
+ return defined (shift->{_fields}->{Placement}->{FieldValue});
+
+ }
+
+
+ sub getKernelId {
+ return shift->{_fields}->{KernelId}->{FieldValue};
+ }
+
+
+ sub setKernelId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{KernelId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withKernelId {
+ my ($self, $value) = @_;
+ $self->setKernelId($value);
+ return $self;
+ }
+
+
+ sub isSetKernelId {
+ return defined (shift->{_fields}->{KernelId}->{FieldValue});
+ }
+
+
+ sub getRamdiskId {
+ return shift->{_fields}->{RamdiskId}->{FieldValue};
+ }
+
+
+ sub setRamdiskId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{RamdiskId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withRamdiskId {
+ my ($self, $value) = @_;
+ $self->setRamdiskId($value);
+ return $self;
+ }
+
+
+ sub isSetRamdiskId {
+ return defined (shift->{_fields}->{RamdiskId}->{FieldValue});
+ }
+
+
+ sub getPlatform {
+ return shift->{_fields}->{Platform}->{FieldValue};
+ }
+
+
+ sub setPlatform {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Platform}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withPlatform {
+ my ($self, $value) = @_;
+ $self->setPlatform($value);
+ return $self;
+ }
+
+
+ sub isSetPlatform {
+ return defined (shift->{_fields}->{Platform}->{FieldValue});
+ }
+
+ sub getMonitoring {
+ return shift->{_fields}->{Monitoring}->{FieldValue};
+ }
+
+
+ sub setMonitoring {
+ my ($self, $value) = @_;
+ $self->{_fields}->{Monitoring}->{FieldValue} = $value;
+ }
+
+
+ sub withMonitoring {
+ my ($self, $value) = @_;
+ $self->setMonitoring($value);
+ return $self;
+ }
+
+
+ sub isSetMonitoring {
+ return defined (shift->{_fields}->{Monitoring}->{FieldValue});
+
+ }
+
+
+ sub getSubnetId {
+ return shift->{_fields}->{SubnetId}->{FieldValue};
+ }
+
+
+ sub setSubnetId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{SubnetId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withSubnetId {
+ my ($self, $value) = @_;
+ $self->setSubnetId($value);
+ return $self;
+ }
+
+
+ sub isSetSubnetId {
+ return defined (shift->{_fields}->{SubnetId}->{FieldValue});
+ }
+
+
+ sub getVpcId {
+ return shift->{_fields}->{VpcId}->{FieldValue};
+ }
+
+
+ sub setVpcId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VpcId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVpcId {
+ my ($self, $value) = @_;
+ $self->setVpcId($value);
+ return $self;
+ }
+
+
+ sub isSetVpcId {
+ return defined (shift->{_fields}->{VpcId}->{FieldValue});
+ }
+
+
+ sub getPrivateIpAddress {
+ return shift->{_fields}->{PrivateIpAddress}->{FieldValue};
+ }
+
+
+ sub setPrivateIpAddress {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{PrivateIpAddress}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withPrivateIpAddress {
+ my ($self, $value) = @_;
+ $self->setPrivateIpAddress($value);
+ return $self;
+ }
+
+
+ sub isSetPrivateIpAddress {
+ return defined (shift->{_fields}->{PrivateIpAddress}->{FieldValue});
+ }
+
+
+ sub getIpAddress {
+ return shift->{_fields}->{IpAddress}->{FieldValue};
+ }
+
+
+ sub setIpAddress {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{IpAddress}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withIpAddress {
+ my ($self, $value) = @_;
+ $self->setIpAddress($value);
+ return $self;
+ }
+
+
+ sub isSetIpAddress {
+ return defined (shift->{_fields}->{IpAddress}->{FieldValue});
+ }
+
+ sub getStateReason {
+ return shift->{_fields}->{StateReason}->{FieldValue};
+ }
+
+
+ sub setStateReason {
+ my ($self, $value) = @_;
+ $self->{_fields}->{StateReason}->{FieldValue} = $value;
+ }
+
+
+ sub withStateReason {
+ my ($self, $value) = @_;
+ $self->setStateReason($value);
+ return $self;
+ }
+
+
+ sub isSetStateReason {
+ return defined (shift->{_fields}->{StateReason}->{FieldValue});
+
+ }
+
+
+ sub getArchitecture {
+ return shift->{_fields}->{Architecture}->{FieldValue};
+ }
+
+
+ sub setArchitecture {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Architecture}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withArchitecture {
+ my ($self, $value) = @_;
+ $self->setArchitecture($value);
+ return $self;
+ }
+
+
+ sub isSetArchitecture {
+ return defined (shift->{_fields}->{Architecture}->{FieldValue});
+ }
+
+
+ sub getRootDeviceType {
+ return shift->{_fields}->{RootDeviceType}->{FieldValue};
+ }
+
+
+ sub setRootDeviceType {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{RootDeviceType}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withRootDeviceType {
+ my ($self, $value) = @_;
+ $self->setRootDeviceType($value);
+ return $self;
+ }
+
+
+ sub isSetRootDeviceType {
+ return defined (shift->{_fields}->{RootDeviceType}->{FieldValue});
+ }
+
+
+ sub getRootDeviceName {
+ return shift->{_fields}->{RootDeviceName}->{FieldValue};
+ }
+
+
+ sub setRootDeviceName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{RootDeviceName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withRootDeviceName {
+ my ($self, $value) = @_;
+ $self->setRootDeviceName($value);
+ return $self;
+ }
+
+
+ sub isSetRootDeviceName {
+ return defined (shift->{_fields}->{RootDeviceName}->{FieldValue});
+ }
+
+ sub getBlockDeviceMapping {
+ return shift->{_fields}->{BlockDeviceMapping}->{FieldValue};
+ }
+
+ sub setBlockDeviceMapping {
+ my $self = shift;
+ foreach my $blockDeviceMapping (@_) {
+ if (not $self->_isArrayRef($blockDeviceMapping)) {
+ $blockDeviceMapping = [$blockDeviceMapping];
+ }
+ $self->{_fields}->{BlockDeviceMapping}->{FieldValue} = $blockDeviceMapping;
+ }
+ }
+
+
+ sub withBlockDeviceMapping {
+ my ($self, $blockDeviceMappingArgs) = @_;
+ foreach my $blockDeviceMapping (@$blockDeviceMappingArgs) {
+ $self->{_fields}->{BlockDeviceMapping}->{FieldValue} = $blockDeviceMapping;
+ }
+ return $self;
+ }
+
+
+ sub isSetBlockDeviceMapping {
+ return scalar (@{shift->{_fields}->{BlockDeviceMapping}->{FieldValue}}) > 0;
+ }
+
+
+ sub getInstanceLifecycle {
+ return shift->{_fields}->{InstanceLifecycle}->{FieldValue};
+ }
+
+
+ sub setInstanceLifecycle {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceLifecycle}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceLifecycle {
+ my ($self, $value) = @_;
+ $self->setInstanceLifecycle($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceLifecycle {
+ return defined (shift->{_fields}->{InstanceLifecycle}->{FieldValue});
+ }
+
+
+ sub getSpotInstanceRequestId {
+ return shift->{_fields}->{SpotInstanceRequestId}->{FieldValue};
+ }
+
+
+ sub setSpotInstanceRequestId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{SpotInstanceRequestId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withSpotInstanceRequestId {
+ my ($self, $value) = @_;
+ $self->setSpotInstanceRequestId($value);
+ return $self;
+ }
+
+
+ sub isSetSpotInstanceRequestId {
+ return defined (shift->{_fields}->{SpotInstanceRequestId}->{FieldValue});
+ }
+
+ sub getLicense {
+ return shift->{_fields}->{License}->{FieldValue};
+ }
+
+
+ sub setLicense {
+ my ($self, $value) = @_;
+ $self->{_fields}->{License}->{FieldValue} = $value;
+ }
+
+
+ sub withLicense {
+ my ($self, $value) = @_;
+ $self->setLicense($value);
+ return $self;
+ }
+
+
+ sub isSetLicense {
+ return defined (shift->{_fields}->{License}->{FieldValue});
+
+ }
+
+
+ sub getVirtualizationType {
+ return shift->{_fields}->{VirtualizationType}->{FieldValue};
+ }
+
+
+ sub setVirtualizationType {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VirtualizationType}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVirtualizationType {
+ my ($self, $value) = @_;
+ $self->setVirtualizationType($value);
+ return $self;
+ }
+
+
+ sub isSetVirtualizationType {
+ return defined (shift->{_fields}->{VirtualizationType}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/S3Storage.pm b/src/main/resources/project/lib/Amazon/EC2/Model/S3Storage.pm
new file mode 100644
index 0000000..8ffe0c6
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/S3Storage.pm
@@ -0,0 +1,194 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::S3Storage;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::S3Storage
+ #
+ # Properties:
+ #
+ #
+ # Bucket: string
+ # Prefix: string
+ # AWSAccessKeyId: string
+ # UploadPolicy: string
+ # UploadPolicySignature: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ Bucket => { FieldValue => undef, FieldType => "string"},
+ Prefix => { FieldValue => undef, FieldType => "string"},
+ AWSAccessKeyId => { FieldValue => undef, FieldType => "string"},
+ UploadPolicy => { FieldValue => undef, FieldType => "string"},
+ UploadPolicySignature => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getBucket {
+ return shift->{_fields}->{Bucket}->{FieldValue};
+ }
+
+
+ sub setBucket {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Bucket}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withBucket {
+ my ($self, $value) = @_;
+ $self->setBucket($value);
+ return $self;
+ }
+
+
+ sub isSetBucket {
+ return defined (shift->{_fields}->{Bucket}->{FieldValue});
+ }
+
+
+ sub getPrefix {
+ return shift->{_fields}->{Prefix}->{FieldValue};
+ }
+
+
+ sub setPrefix {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Prefix}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withPrefix {
+ my ($self, $value) = @_;
+ $self->setPrefix($value);
+ return $self;
+ }
+
+
+ sub isSetPrefix {
+ return defined (shift->{_fields}->{Prefix}->{FieldValue});
+ }
+
+
+ sub getAWSAccessKeyId {
+ return shift->{_fields}->{AWSAccessKeyId}->{FieldValue};
+ }
+
+
+ sub setAWSAccessKeyId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{AWSAccessKeyId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withAWSAccessKeyId {
+ my ($self, $value) = @_;
+ $self->setAWSAccessKeyId($value);
+ return $self;
+ }
+
+
+ sub isSetAWSAccessKeyId {
+ return defined (shift->{_fields}->{AWSAccessKeyId}->{FieldValue});
+ }
+
+
+ sub getUploadPolicy {
+ return shift->{_fields}->{UploadPolicy}->{FieldValue};
+ }
+
+
+ sub setUploadPolicy {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{UploadPolicy}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withUploadPolicy {
+ my ($self, $value) = @_;
+ $self->setUploadPolicy($value);
+ return $self;
+ }
+
+
+ sub isSetUploadPolicy {
+ return defined (shift->{_fields}->{UploadPolicy}->{FieldValue});
+ }
+
+
+ sub getUploadPolicySignature {
+ return shift->{_fields}->{UploadPolicySignature}->{FieldValue};
+ }
+
+
+ sub setUploadPolicySignature {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{UploadPolicySignature}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withUploadPolicySignature {
+ my ($self, $value) = @_;
+ $self->setUploadPolicySignature($value);
+ return $self;
+ }
+
+
+ sub isSetUploadPolicySignature {
+ return defined (shift->{_fields}->{UploadPolicySignature}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/SecurityGroup.pm b/src/main/resources/project/lib/Amazon/EC2/Model/SecurityGroup.pm
new file mode 100644
index 0000000..db740f5
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/SecurityGroup.pm
@@ -0,0 +1,170 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::SecurityGroup;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::SecurityGroup
+ #
+ # Properties:
+ #
+ #
+ # OwnerId: string
+ # GroupName: string
+ # GroupDescription: string
+ # IpPermission: Amazon::EC2::Model::IpPermission
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ OwnerId => { FieldValue => undef, FieldType => "string"},
+ GroupName => { FieldValue => undef, FieldType => "string"},
+ GroupDescription => { FieldValue => undef, FieldType => "string"},
+ IpPermission => {FieldValue => [], FieldType => ["Amazon::EC2::Model::IpPermission"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getOwnerId {
+ return shift->{_fields}->{OwnerId}->{FieldValue};
+ }
+
+
+ sub setOwnerId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{OwnerId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withOwnerId {
+ my ($self, $value) = @_;
+ $self->setOwnerId($value);
+ return $self;
+ }
+
+
+ sub isSetOwnerId {
+ return defined (shift->{_fields}->{OwnerId}->{FieldValue});
+ }
+
+
+ sub getGroupName {
+ return shift->{_fields}->{GroupName}->{FieldValue};
+ }
+
+
+ sub setGroupName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{GroupName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withGroupName {
+ my ($self, $value) = @_;
+ $self->setGroupName($value);
+ return $self;
+ }
+
+
+ sub isSetGroupName {
+ return defined (shift->{_fields}->{GroupName}->{FieldValue});
+ }
+
+
+ sub getGroupDescription {
+ return shift->{_fields}->{GroupDescription}->{FieldValue};
+ }
+
+
+ sub setGroupDescription {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{GroupDescription}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withGroupDescription {
+ my ($self, $value) = @_;
+ $self->setGroupDescription($value);
+ return $self;
+ }
+
+
+ sub isSetGroupDescription {
+ return defined (shift->{_fields}->{GroupDescription}->{FieldValue});
+ }
+
+ sub getIpPermission {
+ return shift->{_fields}->{IpPermission}->{FieldValue};
+ }
+
+ sub setIpPermission {
+ my $self = shift;
+ foreach my $ipPermission (@_) {
+ if (not $self->_isArrayRef($ipPermission)) {
+ $ipPermission = [$ipPermission];
+ }
+ $self->{_fields}->{IpPermission}->{FieldValue} = $ipPermission;
+ }
+ }
+
+
+ sub withIpPermission {
+ my ($self, $ipPermissionArgs) = @_;
+ foreach my $ipPermission (@$ipPermissionArgs) {
+ $self->{_fields}->{IpPermission}->{FieldValue} = $ipPermission;
+ }
+ return $self;
+ }
+
+
+ sub isSetIpPermission {
+ return scalar (@{shift->{_fields}->{IpPermission}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/Snapshot.pm b/src/main/resources/project/lib/Amazon/EC2/Model/Snapshot.pm
new file mode 100644
index 0000000..69eac40
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/Snapshot.pm
@@ -0,0 +1,302 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::Snapshot;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::Snapshot
+ #
+ # Properties:
+ #
+ #
+ # SnapshotId: string
+ # VolumeId: string
+ # Status: string
+ # StartTime: string
+ # Progress: string
+ # OwnerId: string
+ # VolumeSize: string
+ # Description: string
+ # OwnerAlias: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ SnapshotId => { FieldValue => undef, FieldType => "string"},
+ VolumeId => { FieldValue => undef, FieldType => "string"},
+ Status => { FieldValue => undef, FieldType => "string"},
+ StartTime => { FieldValue => undef, FieldType => "string"},
+ Progress => { FieldValue => undef, FieldType => "string"},
+ OwnerId => { FieldValue => undef, FieldType => "string"},
+ VolumeSize => { FieldValue => undef, FieldType => "string"},
+ Description => { FieldValue => undef, FieldType => "string"},
+ OwnerAlias => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getSnapshotId {
+ return shift->{_fields}->{SnapshotId}->{FieldValue};
+ }
+
+
+ sub setSnapshotId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{SnapshotId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withSnapshotId {
+ my ($self, $value) = @_;
+ $self->setSnapshotId($value);
+ return $self;
+ }
+
+
+ sub isSetSnapshotId {
+ return defined (shift->{_fields}->{SnapshotId}->{FieldValue});
+ }
+
+
+ sub getVolumeId {
+ return shift->{_fields}->{VolumeId}->{FieldValue};
+ }
+
+
+ sub setVolumeId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VolumeId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVolumeId {
+ my ($self, $value) = @_;
+ $self->setVolumeId($value);
+ return $self;
+ }
+
+
+ sub isSetVolumeId {
+ return defined (shift->{_fields}->{VolumeId}->{FieldValue});
+ }
+
+
+ sub getStatus {
+ return shift->{_fields}->{Status}->{FieldValue};
+ }
+
+
+ sub setStatus {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Status}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withStatus {
+ my ($self, $value) = @_;
+ $self->setStatus($value);
+ return $self;
+ }
+
+
+ sub isSetStatus {
+ return defined (shift->{_fields}->{Status}->{FieldValue});
+ }
+
+
+ sub getStartTime {
+ return shift->{_fields}->{StartTime}->{FieldValue};
+ }
+
+
+ sub setStartTime {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{StartTime}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withStartTime {
+ my ($self, $value) = @_;
+ $self->setStartTime($value);
+ return $self;
+ }
+
+
+ sub isSetStartTime {
+ return defined (shift->{_fields}->{StartTime}->{FieldValue});
+ }
+
+
+ sub getProgress {
+ return shift->{_fields}->{Progress}->{FieldValue};
+ }
+
+
+ sub setProgress {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Progress}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withProgress {
+ my ($self, $value) = @_;
+ $self->setProgress($value);
+ return $self;
+ }
+
+
+ sub isSetProgress {
+ return defined (shift->{_fields}->{Progress}->{FieldValue});
+ }
+
+
+ sub getOwnerId {
+ return shift->{_fields}->{OwnerId}->{FieldValue};
+ }
+
+
+ sub setOwnerId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{OwnerId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withOwnerId {
+ my ($self, $value) = @_;
+ $self->setOwnerId($value);
+ return $self;
+ }
+
+
+ sub isSetOwnerId {
+ return defined (shift->{_fields}->{OwnerId}->{FieldValue});
+ }
+
+
+ sub getVolumeSize {
+ return shift->{_fields}->{VolumeSize}->{FieldValue};
+ }
+
+
+ sub setVolumeSize {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VolumeSize}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVolumeSize {
+ my ($self, $value) = @_;
+ $self->setVolumeSize($value);
+ return $self;
+ }
+
+
+ sub isSetVolumeSize {
+ return defined (shift->{_fields}->{VolumeSize}->{FieldValue});
+ }
+
+
+ sub getDescription {
+ return shift->{_fields}->{Description}->{FieldValue};
+ }
+
+
+ sub setDescription {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Description}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withDescription {
+ my ($self, $value) = @_;
+ $self->setDescription($value);
+ return $self;
+ }
+
+
+ sub isSetDescription {
+ return defined (shift->{_fields}->{Description}->{FieldValue});
+ }
+
+
+ sub getOwnerAlias {
+ return shift->{_fields}->{OwnerAlias}->{FieldValue};
+ }
+
+
+ sub setOwnerAlias {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{OwnerAlias}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withOwnerAlias {
+ my ($self, $value) = @_;
+ $self->setOwnerAlias($value);
+ return $self;
+ }
+
+
+ sub isSetOwnerAlias {
+ return defined (shift->{_fields}->{OwnerAlias}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/SnapshotAttribute.pm b/src/main/resources/project/lib/Amazon/EC2/Model/SnapshotAttribute.pm
new file mode 100644
index 0000000..14ba7f8
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/SnapshotAttribute.pm
@@ -0,0 +1,116 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::SnapshotAttribute;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::SnapshotAttribute
+ #
+ # Properties:
+ #
+ #
+ # SnapshotId: string
+ # CreateVolumePermission: Amazon::EC2::Model::CreateVolumePermission
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ SnapshotId => { FieldValue => undef, FieldType => "string"},
+ CreateVolumePermission => {FieldValue => [], FieldType => ["Amazon::EC2::Model::CreateVolumePermission"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getSnapshotId {
+ return shift->{_fields}->{SnapshotId}->{FieldValue};
+ }
+
+
+ sub setSnapshotId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{SnapshotId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withSnapshotId {
+ my ($self, $value) = @_;
+ $self->setSnapshotId($value);
+ return $self;
+ }
+
+
+ sub isSetSnapshotId {
+ return defined (shift->{_fields}->{SnapshotId}->{FieldValue});
+ }
+
+ sub getCreateVolumePermission {
+ return shift->{_fields}->{CreateVolumePermission}->{FieldValue};
+ }
+
+ sub setCreateVolumePermission {
+ my $self = shift;
+ foreach my $createVolumePermission (@_) {
+ if (not $self->_isArrayRef($createVolumePermission)) {
+ $createVolumePermission = [$createVolumePermission];
+ }
+ $self->{_fields}->{CreateVolumePermission}->{FieldValue} = $createVolumePermission;
+ }
+ }
+
+
+ sub withCreateVolumePermission {
+ my ($self, $createVolumePermissionArgs) = @_;
+ foreach my $createVolumePermission (@$createVolumePermissionArgs) {
+ $self->{_fields}->{CreateVolumePermission}->{FieldValue} = $createVolumePermission;
+ }
+ return $self;
+ }
+
+
+ sub isSetCreateVolumePermission {
+ return scalar (@{shift->{_fields}->{CreateVolumePermission}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/SpotDatafeedSubscription.pm b/src/main/resources/project/lib/Amazon/EC2/Model/SpotDatafeedSubscription.pm
new file mode 100644
index 0000000..0229431
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/SpotDatafeedSubscription.pm
@@ -0,0 +1,192 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::SpotDatafeedSubscription;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::SpotDatafeedSubscription
+ #
+ # Properties:
+ #
+ #
+ # OwnerId: string
+ # Bucket: string
+ # Prefix: string
+ # State: string
+ # Fault: Amazon::EC2::Model::SpotInstanceStateFault
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ OwnerId => { FieldValue => undef, FieldType => "string"},
+ Bucket => { FieldValue => undef, FieldType => "string"},
+ Prefix => { FieldValue => undef, FieldType => "string"},
+ State => { FieldValue => undef, FieldType => "string"},
+ Fault => {FieldValue => undef, FieldType => "Amazon::EC2::Model::SpotInstanceStateFault"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getOwnerId {
+ return shift->{_fields}->{OwnerId}->{FieldValue};
+ }
+
+
+ sub setOwnerId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{OwnerId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withOwnerId {
+ my ($self, $value) = @_;
+ $self->setOwnerId($value);
+ return $self;
+ }
+
+
+ sub isSetOwnerId {
+ return defined (shift->{_fields}->{OwnerId}->{FieldValue});
+ }
+
+
+ sub getBucket {
+ return shift->{_fields}->{Bucket}->{FieldValue};
+ }
+
+
+ sub setBucket {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Bucket}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withBucket {
+ my ($self, $value) = @_;
+ $self->setBucket($value);
+ return $self;
+ }
+
+
+ sub isSetBucket {
+ return defined (shift->{_fields}->{Bucket}->{FieldValue});
+ }
+
+
+ sub getPrefix {
+ return shift->{_fields}->{Prefix}->{FieldValue};
+ }
+
+
+ sub setPrefix {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Prefix}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withPrefix {
+ my ($self, $value) = @_;
+ $self->setPrefix($value);
+ return $self;
+ }
+
+
+ sub isSetPrefix {
+ return defined (shift->{_fields}->{Prefix}->{FieldValue});
+ }
+
+
+ sub getState {
+ return shift->{_fields}->{State}->{FieldValue};
+ }
+
+
+ sub setState {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{State}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withState {
+ my ($self, $value) = @_;
+ $self->setState($value);
+ return $self;
+ }
+
+
+ sub isSetState {
+ return defined (shift->{_fields}->{State}->{FieldValue});
+ }
+
+ sub getFault {
+ return shift->{_fields}->{Fault}->{FieldValue};
+ }
+
+
+ sub setFault {
+ my ($self, $value) = @_;
+ $self->{_fields}->{Fault}->{FieldValue} = $value;
+ }
+
+
+ sub withFault {
+ my ($self, $value) = @_;
+ $self->setFault($value);
+ return $self;
+ }
+
+
+ sub isSetFault {
+ return defined (shift->{_fields}->{Fault}->{FieldValue});
+
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/SpotInstanceRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/SpotInstanceRequest.pm
new file mode 100644
index 0000000..7582562
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/SpotInstanceRequest.pm
@@ -0,0 +1,406 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::SpotInstanceRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::SpotInstanceRequest
+ #
+ # Properties:
+ #
+ #
+ # SpotInstanceRequestId: string
+ # SpotPrice: string
+ # Type: string
+ # State: string
+ # Fault: Amazon::EC2::Model::SpotInstanceStateFault
+ # ValidFrom: string
+ # ValidUntil: string
+ # LaunchGroup: string
+ # AvailabilityZoneGroup: string
+ # LaunchSpecification: Amazon::EC2::Model::LaunchSpecification
+ # InstanceId: string
+ # CreateTime: string
+ # ProductDescription: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ SpotInstanceRequestId => { FieldValue => undef, FieldType => "string"},
+ SpotPrice => { FieldValue => undef, FieldType => "string"},
+ Type => { FieldValue => undef, FieldType => "string"},
+ State => { FieldValue => undef, FieldType => "string"},
+ Fault => {FieldValue => undef, FieldType => "Amazon::EC2::Model::SpotInstanceStateFault"},
+ ValidFrom => { FieldValue => undef, FieldType => "string"},
+ ValidUntil => { FieldValue => undef, FieldType => "string"},
+ LaunchGroup => { FieldValue => undef, FieldType => "string"},
+ AvailabilityZoneGroup => { FieldValue => undef, FieldType => "string"},
+ LaunchSpecification => {FieldValue => undef, FieldType => "Amazon::EC2::Model::LaunchSpecification"},
+ InstanceId => { FieldValue => undef, FieldType => "string"},
+ CreateTime => { FieldValue => undef, FieldType => "string"},
+ ProductDescription => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getSpotInstanceRequestId {
+ return shift->{_fields}->{SpotInstanceRequestId}->{FieldValue};
+ }
+
+
+ sub setSpotInstanceRequestId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{SpotInstanceRequestId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withSpotInstanceRequestId {
+ my ($self, $value) = @_;
+ $self->setSpotInstanceRequestId($value);
+ return $self;
+ }
+
+
+ sub isSetSpotInstanceRequestId {
+ return defined (shift->{_fields}->{SpotInstanceRequestId}->{FieldValue});
+ }
+
+
+ sub getSpotPrice {
+ return shift->{_fields}->{SpotPrice}->{FieldValue};
+ }
+
+
+ sub setSpotPrice {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{SpotPrice}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withSpotPrice {
+ my ($self, $value) = @_;
+ $self->setSpotPrice($value);
+ return $self;
+ }
+
+
+ sub isSetSpotPrice {
+ return defined (shift->{_fields}->{SpotPrice}->{FieldValue});
+ }
+
+
+ sub getType {
+ return shift->{_fields}->{Type}->{FieldValue};
+ }
+
+
+ sub setType {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Type}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withType {
+ my ($self, $value) = @_;
+ $self->setType($value);
+ return $self;
+ }
+
+
+ sub isSetType {
+ return defined (shift->{_fields}->{Type}->{FieldValue});
+ }
+
+
+ sub getState {
+ return shift->{_fields}->{State}->{FieldValue};
+ }
+
+
+ sub setState {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{State}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withState {
+ my ($self, $value) = @_;
+ $self->setState($value);
+ return $self;
+ }
+
+
+ sub isSetState {
+ return defined (shift->{_fields}->{State}->{FieldValue});
+ }
+
+ sub getFault {
+ return shift->{_fields}->{Fault}->{FieldValue};
+ }
+
+
+ sub setFault {
+ my ($self, $value) = @_;
+ $self->{_fields}->{Fault}->{FieldValue} = $value;
+ }
+
+
+ sub withFault {
+ my ($self, $value) = @_;
+ $self->setFault($value);
+ return $self;
+ }
+
+
+ sub isSetFault {
+ return defined (shift->{_fields}->{Fault}->{FieldValue});
+
+ }
+
+
+ sub getValidFrom {
+ return shift->{_fields}->{ValidFrom}->{FieldValue};
+ }
+
+
+ sub setValidFrom {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ValidFrom}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withValidFrom {
+ my ($self, $value) = @_;
+ $self->setValidFrom($value);
+ return $self;
+ }
+
+
+ sub isSetValidFrom {
+ return defined (shift->{_fields}->{ValidFrom}->{FieldValue});
+ }
+
+
+ sub getValidUntil {
+ return shift->{_fields}->{ValidUntil}->{FieldValue};
+ }
+
+
+ sub setValidUntil {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ValidUntil}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withValidUntil {
+ my ($self, $value) = @_;
+ $self->setValidUntil($value);
+ return $self;
+ }
+
+
+ sub isSetValidUntil {
+ return defined (shift->{_fields}->{ValidUntil}->{FieldValue});
+ }
+
+
+ sub getLaunchGroup {
+ return shift->{_fields}->{LaunchGroup}->{FieldValue};
+ }
+
+
+ sub setLaunchGroup {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{LaunchGroup}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withLaunchGroup {
+ my ($self, $value) = @_;
+ $self->setLaunchGroup($value);
+ return $self;
+ }
+
+
+ sub isSetLaunchGroup {
+ return defined (shift->{_fields}->{LaunchGroup}->{FieldValue});
+ }
+
+
+ sub getAvailabilityZoneGroup {
+ return shift->{_fields}->{AvailabilityZoneGroup}->{FieldValue};
+ }
+
+
+ sub setAvailabilityZoneGroup {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{AvailabilityZoneGroup}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withAvailabilityZoneGroup {
+ my ($self, $value) = @_;
+ $self->setAvailabilityZoneGroup($value);
+ return $self;
+ }
+
+
+ sub isSetAvailabilityZoneGroup {
+ return defined (shift->{_fields}->{AvailabilityZoneGroup}->{FieldValue});
+ }
+
+ sub getLaunchSpecification {
+ return shift->{_fields}->{LaunchSpecification}->{FieldValue};
+ }
+
+
+ sub setLaunchSpecification {
+ my ($self, $value) = @_;
+ $self->{_fields}->{LaunchSpecification}->{FieldValue} = $value;
+ }
+
+
+ sub withLaunchSpecification {
+ my ($self, $value) = @_;
+ $self->setLaunchSpecification($value);
+ return $self;
+ }
+
+
+ sub isSetLaunchSpecification {
+ return defined (shift->{_fields}->{LaunchSpecification}->{FieldValue});
+
+ }
+
+
+ sub getInstanceId {
+ return shift->{_fields}->{InstanceId}->{FieldValue};
+ }
+
+
+ sub setInstanceId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceId {
+ my ($self, $value) = @_;
+ $self->setInstanceId($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceId {
+ return defined (shift->{_fields}->{InstanceId}->{FieldValue});
+ }
+
+
+ sub getCreateTime {
+ return shift->{_fields}->{CreateTime}->{FieldValue};
+ }
+
+
+ sub setCreateTime {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{CreateTime}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withCreateTime {
+ my ($self, $value) = @_;
+ $self->setCreateTime($value);
+ return $self;
+ }
+
+
+ sub isSetCreateTime {
+ return defined (shift->{_fields}->{CreateTime}->{FieldValue});
+ }
+
+
+ sub getProductDescription {
+ return shift->{_fields}->{ProductDescription}->{FieldValue};
+ }
+
+
+ sub setProductDescription {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ProductDescription}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withProductDescription {
+ my ($self, $value) = @_;
+ $self->setProductDescription($value);
+ return $self;
+ }
+
+
+ sub isSetProductDescription {
+ return defined (shift->{_fields}->{ProductDescription}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/SpotInstanceStateFault.pm b/src/main/resources/project/lib/Amazon/EC2/Model/SpotInstanceStateFault.pm
new file mode 100644
index 0000000..e57d3d5
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/SpotInstanceStateFault.pm
@@ -0,0 +1,113 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::SpotInstanceStateFault;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::SpotInstanceStateFault
+ #
+ # Properties:
+ #
+ #
+ # Code: string
+ # Message: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ Code => { FieldValue => undef, FieldType => "string"},
+ Message => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getCode {
+ return shift->{_fields}->{Code}->{FieldValue};
+ }
+
+
+ sub setCode {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Code}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withCode {
+ my ($self, $value) = @_;
+ $self->setCode($value);
+ return $self;
+ }
+
+
+ sub isSetCode {
+ return defined (shift->{_fields}->{Code}->{FieldValue});
+ }
+
+
+ sub getMessage {
+ return shift->{_fields}->{Message}->{FieldValue};
+ }
+
+
+ sub setMessage {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Message}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withMessage {
+ my ($self, $value) = @_;
+ $self->setMessage($value);
+ return $self;
+ }
+
+
+ sub isSetMessage {
+ return defined (shift->{_fields}->{Message}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/SpotPriceHistory.pm b/src/main/resources/project/lib/Amazon/EC2/Model/SpotPriceHistory.pm
new file mode 100644
index 0000000..ef5f88e
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/SpotPriceHistory.pm
@@ -0,0 +1,167 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::SpotPriceHistory;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::SpotPriceHistory
+ #
+ # Properties:
+ #
+ #
+ # InstanceType: string
+ # ProductDescription: string
+ # SpotPrice: string
+ # Timestamp: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ InstanceType => { FieldValue => undef, FieldType => "string"},
+ ProductDescription => { FieldValue => undef, FieldType => "string"},
+ SpotPrice => { FieldValue => undef, FieldType => "string"},
+ Timestamp => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getInstanceType {
+ return shift->{_fields}->{InstanceType}->{FieldValue};
+ }
+
+
+ sub setInstanceType {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{InstanceType}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withInstanceType {
+ my ($self, $value) = @_;
+ $self->setInstanceType($value);
+ return $self;
+ }
+
+
+ sub isSetInstanceType {
+ return defined (shift->{_fields}->{InstanceType}->{FieldValue});
+ }
+
+
+ sub getProductDescription {
+ return shift->{_fields}->{ProductDescription}->{FieldValue};
+ }
+
+
+ sub setProductDescription {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{ProductDescription}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withProductDescription {
+ my ($self, $value) = @_;
+ $self->setProductDescription($value);
+ return $self;
+ }
+
+
+ sub isSetProductDescription {
+ return defined (shift->{_fields}->{ProductDescription}->{FieldValue});
+ }
+
+
+ sub getSpotPrice {
+ return shift->{_fields}->{SpotPrice}->{FieldValue};
+ }
+
+
+ sub setSpotPrice {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{SpotPrice}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withSpotPrice {
+ my ($self, $value) = @_;
+ $self->setSpotPrice($value);
+ return $self;
+ }
+
+
+ sub isSetSpotPrice {
+ return defined (shift->{_fields}->{SpotPrice}->{FieldValue});
+ }
+
+
+ sub getTimestamp {
+ return shift->{_fields}->{Timestamp}->{FieldValue};
+ }
+
+
+ sub setTimestamp {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Timestamp}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withTimestamp {
+ my ($self, $value) = @_;
+ $self->setTimestamp($value);
+ return $self;
+ }
+
+
+ sub isSetTimestamp {
+ return defined (shift->{_fields}->{Timestamp}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/StartInstancesRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/StartInstancesRequest.pm
new file mode 100644
index 0000000..5cb0c8a
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/StartInstancesRequest.pm
@@ -0,0 +1,88 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::StartInstancesRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::StartInstancesRequest
+ #
+ # Properties:
+ #
+ #
+ # InstanceId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ InstanceId => {FieldValue => [], FieldType => ["string"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getInstanceId {
+ return shift->{_fields}->{InstanceId}->{FieldValue};
+ }
+
+
+ sub setInstanceId {
+ my ($self, $value) = @_;
+ $self->{_fields}->{InstanceId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withInstanceId {
+ my $self = shift;
+ my $list = $self->{_fields}->{InstanceId}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetInstanceId {
+ return scalar (@{shift->{_fields}->{InstanceId}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/StartInstancesResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/StartInstancesResponse.pm
new file mode 100644
index 0000000..d6e64d3
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/StartInstancesResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::StartInstancesResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::StartInstancesResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # StartInstancesResult: Amazon::EC2::Model::StartInstancesResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ StartInstancesResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::StartInstancesResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::StartInstancesResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::StartInstancesResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getStartInstancesResult {
+ return shift->{_fields}->{StartInstancesResult}->{FieldValue};
+ }
+
+
+ sub setStartInstancesResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{StartInstancesResult}->{FieldValue} = $value;
+ }
+
+
+ sub withStartInstancesResult {
+ my ($self, $value) = @_;
+ $self->setStartInstancesResult($value);
+ return $self;
+ }
+
+
+ sub isSetStartInstancesResult {
+ return defined (shift->{_fields}->{StartInstancesResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/StartInstancesResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/StartInstancesResponse.xslt
new file mode 100644
index 0000000..9ff45d6
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/StartInstancesResponse.xslt
@@ -0,0 +1,42 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/StartInstancesResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/StartInstancesResult.pm
new file mode 100644
index 0000000..e0b4ef8
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/StartInstancesResult.pm
@@ -0,0 +1,89 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::StartInstancesResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::StartInstancesResult
+ #
+ # Properties:
+ #
+ #
+ # StartingInstances: Amazon::EC2::Model::InstanceStateChange
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ StartingInstances => {FieldValue => [], FieldType => ["Amazon::EC2::Model::InstanceStateChange"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getStartingInstances {
+ return shift->{_fields}->{StartingInstances}->{FieldValue};
+ }
+
+ sub setStartingInstances {
+ my $self = shift;
+ foreach my $startingInstances (@_) {
+ if (not $self->_isArrayRef($startingInstances)) {
+ $startingInstances = [$startingInstances];
+ }
+ $self->{_fields}->{StartingInstances}->{FieldValue} = $startingInstances;
+ }
+ }
+
+
+ sub withStartingInstances {
+ my ($self, $startingInstancesArgs) = @_;
+ foreach my $startingInstances (@$startingInstancesArgs) {
+ $self->{_fields}->{StartingInstances}->{FieldValue} = $startingInstances;
+ }
+ return $self;
+ }
+
+
+ sub isSetStartingInstances {
+ return scalar (@{shift->{_fields}->{StartingInstances}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/StateReason.pm b/src/main/resources/project/lib/Amazon/EC2/Model/StateReason.pm
new file mode 100644
index 0000000..0baf82d
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/StateReason.pm
@@ -0,0 +1,113 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::StateReason;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::StateReason
+ #
+ # Properties:
+ #
+ #
+ # Code: string
+ # Message: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ Code => { FieldValue => undef, FieldType => "string"},
+ Message => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getCode {
+ return shift->{_fields}->{Code}->{FieldValue};
+ }
+
+
+ sub setCode {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Code}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withCode {
+ my ($self, $value) = @_;
+ $self->setCode($value);
+ return $self;
+ }
+
+
+ sub isSetCode {
+ return defined (shift->{_fields}->{Code}->{FieldValue});
+ }
+
+
+ sub getMessage {
+ return shift->{_fields}->{Message}->{FieldValue};
+ }
+
+
+ sub setMessage {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Message}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withMessage {
+ my ($self, $value) = @_;
+ $self->setMessage($value);
+ return $self;
+ }
+
+
+ sub isSetMessage {
+ return defined (shift->{_fields}->{Message}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/StopInstancesRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/StopInstancesRequest.pm
new file mode 100644
index 0000000..cc46b2b
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/StopInstancesRequest.pm
@@ -0,0 +1,115 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::StopInstancesRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::StopInstancesRequest
+ #
+ # Properties:
+ #
+ #
+ # InstanceId: string
+ # Force: bool
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ InstanceId => {FieldValue => [], FieldType => ["string"]},
+ Force => { FieldValue => undef, FieldType => "bool"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getInstanceId {
+ return shift->{_fields}->{InstanceId}->{FieldValue};
+ }
+
+
+ sub setInstanceId {
+ my ($self, $value) = @_;
+ $self->{_fields}->{InstanceId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withInstanceId {
+ my $self = shift;
+ my $list = $self->{_fields}->{InstanceId}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetInstanceId {
+ return scalar (@{shift->{_fields}->{InstanceId}->{FieldValue}}) > 0;
+ }
+
+
+ sub getForce {
+ return shift->{_fields}->{Force}->{FieldValue};
+ }
+
+
+ sub setForce {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Force}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withForce {
+ my ($self, $value) = @_;
+ $self->setForce($value);
+ return $self;
+ }
+
+
+ sub isSetForce {
+ return defined (shift->{_fields}->{Force}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/StopInstancesResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/StopInstancesResponse.pm
new file mode 100644
index 0000000..54d35b9
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/StopInstancesResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::StopInstancesResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::StopInstancesResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # StopInstancesResult: Amazon::EC2::Model::StopInstancesResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ StopInstancesResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::StopInstancesResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::StopInstancesResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::StopInstancesResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getStopInstancesResult {
+ return shift->{_fields}->{StopInstancesResult}->{FieldValue};
+ }
+
+
+ sub setStopInstancesResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{StopInstancesResult}->{FieldValue} = $value;
+ }
+
+
+ sub withStopInstancesResult {
+ my ($self, $value) = @_;
+ $self->setStopInstancesResult($value);
+ return $self;
+ }
+
+
+ sub isSetStopInstancesResult {
+ return defined (shift->{_fields}->{StopInstancesResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/StopInstancesResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/StopInstancesResponse.xslt
new file mode 100644
index 0000000..feddd49
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/StopInstancesResponse.xslt
@@ -0,0 +1,42 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/StopInstancesResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/StopInstancesResult.pm
new file mode 100644
index 0000000..633d7cf
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/StopInstancesResult.pm
@@ -0,0 +1,89 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::StopInstancesResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::StopInstancesResult
+ #
+ # Properties:
+ #
+ #
+ # StoppingInstances: Amazon::EC2::Model::InstanceStateChange
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ StoppingInstances => {FieldValue => [], FieldType => ["Amazon::EC2::Model::InstanceStateChange"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getStoppingInstances {
+ return shift->{_fields}->{StoppingInstances}->{FieldValue};
+ }
+
+ sub setStoppingInstances {
+ my $self = shift;
+ foreach my $stoppingInstances (@_) {
+ if (not $self->_isArrayRef($stoppingInstances)) {
+ $stoppingInstances = [$stoppingInstances];
+ }
+ $self->{_fields}->{StoppingInstances}->{FieldValue} = $stoppingInstances;
+ }
+ }
+
+
+ sub withStoppingInstances {
+ my ($self, $stoppingInstancesArgs) = @_;
+ foreach my $stoppingInstances (@$stoppingInstancesArgs) {
+ $self->{_fields}->{StoppingInstances}->{FieldValue} = $stoppingInstances;
+ }
+ return $self;
+ }
+
+
+ sub isSetStoppingInstances {
+ return scalar (@{shift->{_fields}->{StoppingInstances}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/Storage.pm b/src/main/resources/project/lib/Amazon/EC2/Model/Storage.pm
new file mode 100644
index 0000000..63cbfd7
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/Storage.pm
@@ -0,0 +1,84 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::Storage;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::Storage
+ #
+ # Properties:
+ #
+ #
+ # S3: Amazon::EC2::Model::S3Storage
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ S3 => {FieldValue => undef, FieldType => "Amazon::EC2::Model::S3Storage"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getS3 {
+ return shift->{_fields}->{S3}->{FieldValue};
+ }
+
+
+ sub setS3 {
+ my ($self, $value) = @_;
+ $self->{_fields}->{S3}->{FieldValue} = $value;
+ }
+
+
+ sub withS3 {
+ my ($self, $value) = @_;
+ $self->setS3($value);
+ return $self;
+ }
+
+
+ sub isSetS3 {
+ return defined (shift->{_fields}->{S3}->{FieldValue});
+
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/Subnet.pm b/src/main/resources/project/lib/Amazon/EC2/Model/Subnet.pm
new file mode 100644
index 0000000..ad8db2b
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/Subnet.pm
@@ -0,0 +1,221 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::Subnet;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::Subnet
+ #
+ # Properties:
+ #
+ #
+ # SubnetId: string
+ # SubnetState: string
+ # VpcId: string
+ # CidrBlock: string
+ # AvailableIpAddressCount: int
+ # AvailabilityZone: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ SubnetId => { FieldValue => undef, FieldType => "string"},
+ SubnetState => { FieldValue => undef, FieldType => "string"},
+ VpcId => { FieldValue => undef, FieldType => "string"},
+ CidrBlock => { FieldValue => undef, FieldType => "string"},
+ AvailableIpAddressCount => { FieldValue => undef, FieldType => "int"},
+ AvailabilityZone => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getSubnetId {
+ return shift->{_fields}->{SubnetId}->{FieldValue};
+ }
+
+
+ sub setSubnetId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{SubnetId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withSubnetId {
+ my ($self, $value) = @_;
+ $self->setSubnetId($value);
+ return $self;
+ }
+
+
+ sub isSetSubnetId {
+ return defined (shift->{_fields}->{SubnetId}->{FieldValue});
+ }
+
+
+ sub getSubnetState {
+ return shift->{_fields}->{SubnetState}->{FieldValue};
+ }
+
+
+ sub setSubnetState {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{SubnetState}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withSubnetState {
+ my ($self, $value) = @_;
+ $self->setSubnetState($value);
+ return $self;
+ }
+
+
+ sub isSetSubnetState {
+ return defined (shift->{_fields}->{SubnetState}->{FieldValue});
+ }
+
+
+ sub getVpcId {
+ return shift->{_fields}->{VpcId}->{FieldValue};
+ }
+
+
+ sub setVpcId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VpcId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVpcId {
+ my ($self, $value) = @_;
+ $self->setVpcId($value);
+ return $self;
+ }
+
+
+ sub isSetVpcId {
+ return defined (shift->{_fields}->{VpcId}->{FieldValue});
+ }
+
+
+ sub getCidrBlock {
+ return shift->{_fields}->{CidrBlock}->{FieldValue};
+ }
+
+
+ sub setCidrBlock {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{CidrBlock}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withCidrBlock {
+ my ($self, $value) = @_;
+ $self->setCidrBlock($value);
+ return $self;
+ }
+
+
+ sub isSetCidrBlock {
+ return defined (shift->{_fields}->{CidrBlock}->{FieldValue});
+ }
+
+
+ sub getAvailableIpAddressCount {
+ return shift->{_fields}->{AvailableIpAddressCount}->{FieldValue};
+ }
+
+
+ sub setAvailableIpAddressCount {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{AvailableIpAddressCount}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withAvailableIpAddressCount {
+ my ($self, $value) = @_;
+ $self->setAvailableIpAddressCount($value);
+ return $self;
+ }
+
+
+ sub isSetAvailableIpAddressCount {
+ return defined (shift->{_fields}->{AvailableIpAddressCount}->{FieldValue});
+ }
+
+
+ sub getAvailabilityZone {
+ return shift->{_fields}->{AvailabilityZone}->{FieldValue};
+ }
+
+
+ sub setAvailabilityZone {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{AvailabilityZone}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withAvailabilityZone {
+ my ($self, $value) = @_;
+ $self->setAvailabilityZone($value);
+ return $self;
+ }
+
+
+ sub isSetAvailabilityZone {
+ return defined (shift->{_fields}->{AvailabilityZone}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/Tag.pm b/src/main/resources/project/lib/Amazon/EC2/Model/Tag.pm
new file mode 100644
index 0000000..5497398
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/Tag.pm
@@ -0,0 +1,41 @@
+
+package Amazon::EC2::Model::Tag;
+
+use base qw (Amazon::EC2::Model);
+
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ Key => {FieldValue => undef, FieldType => "string"},
+ Value => {FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub setKey {
+ my ($self, $value) = @_;
+ $self->{_fields}->{Key}->{FieldValue} = $value;
+ }
+
+ sub setValue {
+ my ($self, $value) = @_;
+ $self->{_fields}->{Value}->{FieldValue} = $value;
+ }
+
+ sub getKey {
+ return shift->{_fields}->{Key}->{FieldValue};
+ }
+
+ sub getValue {
+ return shift->{_fields}->{Value}->{FieldValue};
+ }
+
+1;
\ No newline at end of file
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/TerminateInstancesRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/TerminateInstancesRequest.pm
new file mode 100644
index 0000000..9d40316
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/TerminateInstancesRequest.pm
@@ -0,0 +1,88 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::TerminateInstancesRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::TerminateInstancesRequest
+ #
+ # Properties:
+ #
+ #
+ # InstanceId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ InstanceId => {FieldValue => [], FieldType => ["string"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getInstanceId {
+ return shift->{_fields}->{InstanceId}->{FieldValue};
+ }
+
+
+ sub setInstanceId {
+ my ($self, $value) = @_;
+ $self->{_fields}->{InstanceId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withInstanceId {
+ my $self = shift;
+ my $list = $self->{_fields}->{InstanceId}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetInstanceId {
+ return scalar (@{shift->{_fields}->{InstanceId}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/TerminateInstancesResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/TerminateInstancesResponse.pm
new file mode 100644
index 0000000..3333f31
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/TerminateInstancesResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::TerminateInstancesResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::TerminateInstancesResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # TerminateInstancesResult: Amazon::EC2::Model::TerminateInstancesResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ TerminateInstancesResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::TerminateInstancesResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::TerminateInstancesResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::TerminateInstancesResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getTerminateInstancesResult {
+ return shift->{_fields}->{TerminateInstancesResult}->{FieldValue};
+ }
+
+
+ sub setTerminateInstancesResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{TerminateInstancesResult}->{FieldValue} = $value;
+ }
+
+
+ sub withTerminateInstancesResult {
+ my ($self, $value) = @_;
+ $self->setTerminateInstancesResult($value);
+ return $self;
+ }
+
+
+ sub isSetTerminateInstancesResult {
+ return defined (shift->{_fields}->{TerminateInstancesResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/TerminateInstancesResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/TerminateInstancesResponse.xslt
new file mode 100644
index 0000000..5de77b8
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/TerminateInstancesResponse.xslt
@@ -0,0 +1,42 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/TerminateInstancesResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/TerminateInstancesResult.pm
new file mode 100644
index 0000000..bfe5027
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/TerminateInstancesResult.pm
@@ -0,0 +1,89 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::TerminateInstancesResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::TerminateInstancesResult
+ #
+ # Properties:
+ #
+ #
+ # TerminatingInstance: Amazon::EC2::Model::InstanceStateChange
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ TerminatingInstance => {FieldValue => [], FieldType => ["Amazon::EC2::Model::InstanceStateChange"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getTerminatingInstance {
+ return shift->{_fields}->{TerminatingInstance}->{FieldValue};
+ }
+
+ sub setTerminatingInstance {
+ my $self = shift;
+ foreach my $terminatingInstance (@_) {
+ if (not $self->_isArrayRef($terminatingInstance)) {
+ $terminatingInstance = [$terminatingInstance];
+ }
+ $self->{_fields}->{TerminatingInstance}->{FieldValue} = $terminatingInstance;
+ }
+ }
+
+
+ sub withTerminatingInstance {
+ my ($self, $terminatingInstanceArgs) = @_;
+ foreach my $terminatingInstance (@$terminatingInstanceArgs) {
+ $self->{_fields}->{TerminatingInstance}->{FieldValue} = $terminatingInstance;
+ }
+ return $self;
+ }
+
+
+ sub isSetTerminatingInstance {
+ return scalar (@{shift->{_fields}->{TerminatingInstance}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/UnmonitorInstancesRequest.pm b/src/main/resources/project/lib/Amazon/EC2/Model/UnmonitorInstancesRequest.pm
new file mode 100644
index 0000000..f52a223
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/UnmonitorInstancesRequest.pm
@@ -0,0 +1,88 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::UnmonitorInstancesRequest;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::UnmonitorInstancesRequest
+ #
+ # Properties:
+ #
+ #
+ # InstanceId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ InstanceId => {FieldValue => [], FieldType => ["string"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getInstanceId {
+ return shift->{_fields}->{InstanceId}->{FieldValue};
+ }
+
+
+ sub setInstanceId {
+ my ($self, $value) = @_;
+ $self->{_fields}->{InstanceId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+
+ sub withInstanceId {
+ my $self = shift;
+ my $list = $self->{_fields}->{InstanceId}->{FieldValue};
+ for (@_) {
+ push (@$list, $_);
+ }
+ return $self;
+ }
+
+
+ sub isSetInstanceId {
+ return scalar (@{shift->{_fields}->{InstanceId}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/UnmonitorInstancesResponse.pm b/src/main/resources/project/lib/Amazon/EC2/Model/UnmonitorInstancesResponse.pm
new file mode 100644
index 0000000..9f08a6a
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/UnmonitorInstancesResponse.pm
@@ -0,0 +1,137 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::UnmonitorInstancesResponse;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::UnmonitorInstancesResponse
+ #
+ # Properties:
+ #
+ #
+ # ResponseMetadata: Amazon::EC2::Model::ResponseMetadata
+ # UnmonitorInstancesResult: Amazon::EC2::Model::UnmonitorInstancesResult
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ ResponseMetadata => {FieldValue => undef, FieldType => "Amazon::EC2::Model::ResponseMetadata"},
+ UnmonitorInstancesResult => {FieldValue => undef, FieldType => "Amazon::EC2::Model::UnmonitorInstancesResult"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ #
+ # Construct Amazon::EC2::Model::UnmonitorInstancesResponse from XML string
+ #
+ sub fromXML {
+ my ($self, $xml) = @_;
+ eval "use XML::Simple";
+ my $tree = XML::Simple::XMLin ($xml);
+
+ # TODO: check valid XML (is this a response XML?)
+
+ return new Amazon::EC2::Model::UnmonitorInstancesResponse($tree);
+
+ }
+
+ sub getResponseMetadata {
+ return shift->{_fields}->{ResponseMetadata}->{FieldValue};
+ }
+
+
+ sub setResponseMetadata {
+ my ($self, $value) = @_;
+ $self->{_fields}->{ResponseMetadata}->{FieldValue} = $value;
+ }
+
+
+ sub withResponseMetadata {
+ my ($self, $value) = @_;
+ $self->setResponseMetadata($value);
+ return $self;
+ }
+
+
+ sub isSetResponseMetadata {
+ return defined (shift->{_fields}->{ResponseMetadata}->{FieldValue});
+
+ }
+
+ sub getUnmonitorInstancesResult {
+ return shift->{_fields}->{UnmonitorInstancesResult}->{FieldValue};
+ }
+
+
+ sub setUnmonitorInstancesResult {
+ my ($self, $value) = @_;
+ $self->{_fields}->{UnmonitorInstancesResult}->{FieldValue} = $value;
+ }
+
+
+ sub withUnmonitorInstancesResult {
+ my ($self, $value) = @_;
+ $self->setUnmonitorInstancesResult($value);
+ return $self;
+ }
+
+
+ sub isSetUnmonitorInstancesResult {
+ return defined (shift->{_fields}->{UnmonitorInstancesResult}->{FieldValue});
+
+ }
+
+
+
+ #
+ # XML Representation for this object
+ #
+ # Returns string XML for this object
+ #
+ sub toXML {
+ my $self = shift;
+ my $xml = "";
+ $xml .= "";
+ $xml .= $self->_toXMLFragment();
+ $xml .= "";
+ return $xml;
+ }
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/UnmonitorInstancesResponse.xslt b/src/main/resources/project/lib/Amazon/EC2/Model/UnmonitorInstancesResponse.xslt
new file mode 100644
index 0000000..74061b8
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/UnmonitorInstancesResponse.xslt
@@ -0,0 +1,31 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/UnmonitorInstancesResult.pm b/src/main/resources/project/lib/Amazon/EC2/Model/UnmonitorInstancesResult.pm
new file mode 100644
index 0000000..d80b251
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/UnmonitorInstancesResult.pm
@@ -0,0 +1,89 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::UnmonitorInstancesResult;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::UnmonitorInstancesResult
+ #
+ # Properties:
+ #
+ #
+ # InstanceMonitoring: Amazon::EC2::Model::InstanceMonitoring
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ InstanceMonitoring => {FieldValue => [], FieldType => ["Amazon::EC2::Model::InstanceMonitoring"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+ sub getInstanceMonitoring {
+ return shift->{_fields}->{InstanceMonitoring}->{FieldValue};
+ }
+
+ sub setInstanceMonitoring {
+ my $self = shift;
+ foreach my $instanceMonitoring (@_) {
+ if (not $self->_isArrayRef($instanceMonitoring)) {
+ $instanceMonitoring = [$instanceMonitoring];
+ }
+ $self->{_fields}->{InstanceMonitoring}->{FieldValue} = $instanceMonitoring;
+ }
+ }
+
+
+ sub withInstanceMonitoring {
+ my ($self, $instanceMonitoringArgs) = @_;
+ foreach my $instanceMonitoring (@$instanceMonitoringArgs) {
+ $self->{_fields}->{InstanceMonitoring}->{FieldValue} = $instanceMonitoring;
+ }
+ return $self;
+ }
+
+
+ sub isSetInstanceMonitoring {
+ return scalar (@{shift->{_fields}->{InstanceMonitoring}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/UserIdGroupPair.pm b/src/main/resources/project/lib/Amazon/EC2/Model/UserIdGroupPair.pm
new file mode 100644
index 0000000..3026f56
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/UserIdGroupPair.pm
@@ -0,0 +1,113 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::UserIdGroupPair;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::UserIdGroupPair
+ #
+ # Properties:
+ #
+ #
+ # UserId: string
+ # GroupName: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ UserId => { FieldValue => undef, FieldType => "string"},
+ GroupName => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getUserId {
+ return shift->{_fields}->{UserId}->{FieldValue};
+ }
+
+
+ sub setUserId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{UserId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withUserId {
+ my ($self, $value) = @_;
+ $self->setUserId($value);
+ return $self;
+ }
+
+
+ sub isSetUserId {
+ return defined (shift->{_fields}->{UserId}->{FieldValue});
+ }
+
+
+ sub getGroupName {
+ return shift->{_fields}->{GroupName}->{FieldValue};
+ }
+
+
+ sub setGroupName {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{GroupName}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withGroupName {
+ my ($self, $value) = @_;
+ $self->setGroupName($value);
+ return $self;
+ }
+
+
+ sub isSetGroupName {
+ return defined (shift->{_fields}->{GroupName}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/Volume.pm b/src/main/resources/project/lib/Amazon/EC2/Model/Volume.pm
new file mode 100644
index 0000000..b88ad7f
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/Volume.pm
@@ -0,0 +1,251 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::Volume;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::Volume
+ #
+ # Properties:
+ #
+ #
+ # VolumeId: string
+ # Size: string
+ # SnapshotId: string
+ # AvailabilityZone: string
+ # Status: string
+ # CreateTime: string
+ # Attachment: Amazon::EC2::Model::Attachment
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ VolumeId => { FieldValue => undef, FieldType => "string"},
+ Size => { FieldValue => undef, FieldType => "string"},
+ SnapshotId => { FieldValue => undef, FieldType => "string"},
+ AvailabilityZone => { FieldValue => undef, FieldType => "string"},
+ Status => { FieldValue => undef, FieldType => "string"},
+ CreateTime => { FieldValue => undef, FieldType => "string"},
+ Attachment => {FieldValue => [], FieldType => ["Amazon::EC2::Model::Attachment"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getVolumeId {
+ return shift->{_fields}->{VolumeId}->{FieldValue};
+ }
+
+
+ sub setVolumeId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VolumeId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVolumeId {
+ my ($self, $value) = @_;
+ $self->setVolumeId($value);
+ return $self;
+ }
+
+
+ sub isSetVolumeId {
+ return defined (shift->{_fields}->{VolumeId}->{FieldValue});
+ }
+
+
+ sub getSize {
+ return shift->{_fields}->{Size}->{FieldValue};
+ }
+
+
+ sub setSize {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Size}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withSize {
+ my ($self, $value) = @_;
+ $self->setSize($value);
+ return $self;
+ }
+
+
+ sub isSetSize {
+ return defined (shift->{_fields}->{Size}->{FieldValue});
+ }
+
+
+ sub getSnapshotId {
+ return shift->{_fields}->{SnapshotId}->{FieldValue};
+ }
+
+
+ sub setSnapshotId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{SnapshotId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withSnapshotId {
+ my ($self, $value) = @_;
+ $self->setSnapshotId($value);
+ return $self;
+ }
+
+
+ sub isSetSnapshotId {
+ return defined (shift->{_fields}->{SnapshotId}->{FieldValue});
+ }
+
+
+ sub getAvailabilityZone {
+ return shift->{_fields}->{AvailabilityZone}->{FieldValue};
+ }
+
+
+ sub setAvailabilityZone {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{AvailabilityZone}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withAvailabilityZone {
+ my ($self, $value) = @_;
+ $self->setAvailabilityZone($value);
+ return $self;
+ }
+
+
+ sub isSetAvailabilityZone {
+ return defined (shift->{_fields}->{AvailabilityZone}->{FieldValue});
+ }
+
+
+ sub getStatus {
+ return shift->{_fields}->{Status}->{FieldValue};
+ }
+
+
+ sub setStatus {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Status}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withStatus {
+ my ($self, $value) = @_;
+ $self->setStatus($value);
+ return $self;
+ }
+
+
+ sub isSetStatus {
+ return defined (shift->{_fields}->{Status}->{FieldValue});
+ }
+
+
+ sub getCreateTime {
+ return shift->{_fields}->{CreateTime}->{FieldValue};
+ }
+
+
+ sub setCreateTime {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{CreateTime}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withCreateTime {
+ my ($self, $value) = @_;
+ $self->setCreateTime($value);
+ return $self;
+ }
+
+
+ sub isSetCreateTime {
+ return defined (shift->{_fields}->{CreateTime}->{FieldValue});
+ }
+
+ sub getAttachment {
+ return shift->{_fields}->{Attachment}->{FieldValue};
+ }
+
+ sub setAttachment {
+ my $self = shift;
+ foreach my $attachment (@_) {
+ if (not $self->_isArrayRef($attachment)) {
+ $attachment = [$attachment];
+ }
+ $self->{_fields}->{Attachment}->{FieldValue} = $attachment;
+ }
+ }
+
+
+ sub withAttachment {
+ my ($self, $attachmentArgs) = @_;
+ foreach my $attachment (@$attachmentArgs) {
+ $self->{_fields}->{Attachment}->{FieldValue} = $attachment;
+ }
+ return $self;
+ }
+
+
+ sub isSetAttachment {
+ return scalar (@{shift->{_fields}->{Attachment}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/Vpc.pm b/src/main/resources/project/lib/Amazon/EC2/Model/Vpc.pm
new file mode 100644
index 0000000..a6e3118
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/Vpc.pm
@@ -0,0 +1,167 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::Vpc;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::Vpc
+ #
+ # Properties:
+ #
+ #
+ # VpcId: string
+ # VpcState: string
+ # CidrBlock: string
+ # DhcpOptionsId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ VpcId => { FieldValue => undef, FieldType => "string"},
+ VpcState => { FieldValue => undef, FieldType => "string"},
+ CidrBlock => { FieldValue => undef, FieldType => "string"},
+ DhcpOptionsId => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getVpcId {
+ return shift->{_fields}->{VpcId}->{FieldValue};
+ }
+
+
+ sub setVpcId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VpcId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVpcId {
+ my ($self, $value) = @_;
+ $self->setVpcId($value);
+ return $self;
+ }
+
+
+ sub isSetVpcId {
+ return defined (shift->{_fields}->{VpcId}->{FieldValue});
+ }
+
+
+ sub getVpcState {
+ return shift->{_fields}->{VpcState}->{FieldValue};
+ }
+
+
+ sub setVpcState {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VpcState}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVpcState {
+ my ($self, $value) = @_;
+ $self->setVpcState($value);
+ return $self;
+ }
+
+
+ sub isSetVpcState {
+ return defined (shift->{_fields}->{VpcState}->{FieldValue});
+ }
+
+
+ sub getCidrBlock {
+ return shift->{_fields}->{CidrBlock}->{FieldValue};
+ }
+
+
+ sub setCidrBlock {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{CidrBlock}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withCidrBlock {
+ my ($self, $value) = @_;
+ $self->setCidrBlock($value);
+ return $self;
+ }
+
+
+ sub isSetCidrBlock {
+ return defined (shift->{_fields}->{CidrBlock}->{FieldValue});
+ }
+
+
+ sub getDhcpOptionsId {
+ return shift->{_fields}->{DhcpOptionsId}->{FieldValue};
+ }
+
+
+ sub setDhcpOptionsId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{DhcpOptionsId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withDhcpOptionsId {
+ my ($self, $value) = @_;
+ $self->setDhcpOptionsId($value);
+ return $self;
+ }
+
+
+ sub isSetDhcpOptionsId {
+ return defined (shift->{_fields}->{DhcpOptionsId}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/VpcAttachment.pm b/src/main/resources/project/lib/Amazon/EC2/Model/VpcAttachment.pm
new file mode 100644
index 0000000..9c810da
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/VpcAttachment.pm
@@ -0,0 +1,113 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::VpcAttachment;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::VpcAttachment
+ #
+ # Properties:
+ #
+ #
+ # VpcId: string
+ # VpcAttachmentState: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ VpcId => { FieldValue => undef, FieldType => "string"},
+ VpcAttachmentState => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getVpcId {
+ return shift->{_fields}->{VpcId}->{FieldValue};
+ }
+
+
+ sub setVpcId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VpcId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVpcId {
+ my ($self, $value) = @_;
+ $self->setVpcId($value);
+ return $self;
+ }
+
+
+ sub isSetVpcId {
+ return defined (shift->{_fields}->{VpcId}->{FieldValue});
+ }
+
+
+ sub getVpcAttachmentState {
+ return shift->{_fields}->{VpcAttachmentState}->{FieldValue};
+ }
+
+
+ sub setVpcAttachmentState {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VpcAttachmentState}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVpcAttachmentState {
+ my ($self, $value) = @_;
+ $self->setVpcAttachmentState($value);
+ return $self;
+ }
+
+
+ sub isSetVpcAttachmentState {
+ return defined (shift->{_fields}->{VpcAttachmentState}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/VpnConnection.pm b/src/main/resources/project/lib/Amazon/EC2/Model/VpnConnection.pm
new file mode 100644
index 0000000..cdf058d
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/VpnConnection.pm
@@ -0,0 +1,221 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::VpnConnection;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::VpnConnection
+ #
+ # Properties:
+ #
+ #
+ # VpnConnectionId: string
+ # VpnConnectionState: string
+ # CustomerGatewayConfiguration: string
+ # Type: string
+ # CustomerGatewayId: string
+ # VpnGatewayId: string
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ VpnConnectionId => { FieldValue => undef, FieldType => "string"},
+ VpnConnectionState => { FieldValue => undef, FieldType => "string"},
+ CustomerGatewayConfiguration => { FieldValue => undef, FieldType => "string"},
+ Type => { FieldValue => undef, FieldType => "string"},
+ CustomerGatewayId => { FieldValue => undef, FieldType => "string"},
+ VpnGatewayId => { FieldValue => undef, FieldType => "string"},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getVpnConnectionId {
+ return shift->{_fields}->{VpnConnectionId}->{FieldValue};
+ }
+
+
+ sub setVpnConnectionId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VpnConnectionId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVpnConnectionId {
+ my ($self, $value) = @_;
+ $self->setVpnConnectionId($value);
+ return $self;
+ }
+
+
+ sub isSetVpnConnectionId {
+ return defined (shift->{_fields}->{VpnConnectionId}->{FieldValue});
+ }
+
+
+ sub getVpnConnectionState {
+ return shift->{_fields}->{VpnConnectionState}->{FieldValue};
+ }
+
+
+ sub setVpnConnectionState {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VpnConnectionState}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVpnConnectionState {
+ my ($self, $value) = @_;
+ $self->setVpnConnectionState($value);
+ return $self;
+ }
+
+
+ sub isSetVpnConnectionState {
+ return defined (shift->{_fields}->{VpnConnectionState}->{FieldValue});
+ }
+
+
+ sub getCustomerGatewayConfiguration {
+ return shift->{_fields}->{CustomerGatewayConfiguration}->{FieldValue};
+ }
+
+
+ sub setCustomerGatewayConfiguration {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{CustomerGatewayConfiguration}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withCustomerGatewayConfiguration {
+ my ($self, $value) = @_;
+ $self->setCustomerGatewayConfiguration($value);
+ return $self;
+ }
+
+
+ sub isSetCustomerGatewayConfiguration {
+ return defined (shift->{_fields}->{CustomerGatewayConfiguration}->{FieldValue});
+ }
+
+
+ sub getType {
+ return shift->{_fields}->{Type}->{FieldValue};
+ }
+
+
+ sub setType {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Type}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withType {
+ my ($self, $value) = @_;
+ $self->setType($value);
+ return $self;
+ }
+
+
+ sub isSetType {
+ return defined (shift->{_fields}->{Type}->{FieldValue});
+ }
+
+
+ sub getCustomerGatewayId {
+ return shift->{_fields}->{CustomerGatewayId}->{FieldValue};
+ }
+
+
+ sub setCustomerGatewayId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{CustomerGatewayId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withCustomerGatewayId {
+ my ($self, $value) = @_;
+ $self->setCustomerGatewayId($value);
+ return $self;
+ }
+
+
+ sub isSetCustomerGatewayId {
+ return defined (shift->{_fields}->{CustomerGatewayId}->{FieldValue});
+ }
+
+
+ sub getVpnGatewayId {
+ return shift->{_fields}->{VpnGatewayId}->{FieldValue};
+ }
+
+
+ sub setVpnGatewayId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VpnGatewayId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVpnGatewayId {
+ my ($self, $value) = @_;
+ $self->setVpnGatewayId($value);
+ return $self;
+ }
+
+
+ sub isSetVpnGatewayId {
+ return defined (shift->{_fields}->{VpnGatewayId}->{FieldValue});
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/EC2/Model/VpnGateway.pm b/src/main/resources/project/lib/Amazon/EC2/Model/VpnGateway.pm
new file mode 100644
index 0000000..28b4019
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/EC2/Model/VpnGateway.pm
@@ -0,0 +1,197 @@
+###########################################$
+# Copyright 2008-2010 Amazon.com, Inc. or its affiliates. All Rights Reserved.
+# Licensed under the Apache License, Version 2.0 (the "License"). You may not
+# use this file except in compliance with the License.
+# A copy of the License is located at
+#
+# http://aws.amazon.com/apache2.0
+#
+# or in the "license" file accompanying this file. This file is distributed on
+# an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express
+# or implied. See the License for the specific language governing permissions
+# and limitations under the License.
+###########################################$
+# __ _ _ ___
+# ( )( \/\/ )/ __)
+# /__\ \ / \__ \
+# (_)(_) \/\/ (___/
+#
+# Amazon EC2 Perl Library
+# API Version: 2010-06-15
+# Generated: Wed Jul 21 13:37:54 PDT 2010
+#
+
+
+package Amazon::EC2::Model::VpnGateway;
+
+use base qw (Amazon::EC2::Model);
+
+
+
+ #
+ # Amazon::EC2::Model::VpnGateway
+ #
+ # Properties:
+ #
+ #
+ # VpnGatewayId: string
+ # VpnGatewayState: string
+ # Type: string
+ # AvailabilityZone: string
+ # VpcAttachment: Amazon::EC2::Model::VpcAttachment
+ #
+ #
+ #
+ sub new {
+ my ($class, $data) = @_;
+ my $self = {};
+ $self->{_fields} = {
+
+ VpnGatewayId => { FieldValue => undef, FieldType => "string"},
+ VpnGatewayState => { FieldValue => undef, FieldType => "string"},
+ Type => { FieldValue => undef, FieldType => "string"},
+ AvailabilityZone => { FieldValue => undef, FieldType => "string"},
+ VpcAttachment => {FieldValue => [], FieldType => ["Amazon::EC2::Model::VpcAttachment"]},
+ };
+
+ bless ($self, $class);
+ if (defined $data) {
+ $self->_fromHashRef($data);
+ }
+
+ return $self;
+ }
+
+
+ sub getVpnGatewayId {
+ return shift->{_fields}->{VpnGatewayId}->{FieldValue};
+ }
+
+
+ sub setVpnGatewayId {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VpnGatewayId}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVpnGatewayId {
+ my ($self, $value) = @_;
+ $self->setVpnGatewayId($value);
+ return $self;
+ }
+
+
+ sub isSetVpnGatewayId {
+ return defined (shift->{_fields}->{VpnGatewayId}->{FieldValue});
+ }
+
+
+ sub getVpnGatewayState {
+ return shift->{_fields}->{VpnGatewayState}->{FieldValue};
+ }
+
+
+ sub setVpnGatewayState {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{VpnGatewayState}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withVpnGatewayState {
+ my ($self, $value) = @_;
+ $self->setVpnGatewayState($value);
+ return $self;
+ }
+
+
+ sub isSetVpnGatewayState {
+ return defined (shift->{_fields}->{VpnGatewayState}->{FieldValue});
+ }
+
+
+ sub getType {
+ return shift->{_fields}->{Type}->{FieldValue};
+ }
+
+
+ sub setType {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{Type}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withType {
+ my ($self, $value) = @_;
+ $self->setType($value);
+ return $self;
+ }
+
+
+ sub isSetType {
+ return defined (shift->{_fields}->{Type}->{FieldValue});
+ }
+
+
+ sub getAvailabilityZone {
+ return shift->{_fields}->{AvailabilityZone}->{FieldValue};
+ }
+
+
+ sub setAvailabilityZone {
+ my ($self, $value) = @_;
+
+ $self->{_fields}->{AvailabilityZone}->{FieldValue} = $value;
+ return $self;
+ }
+
+
+ sub withAvailabilityZone {
+ my ($self, $value) = @_;
+ $self->setAvailabilityZone($value);
+ return $self;
+ }
+
+
+ sub isSetAvailabilityZone {
+ return defined (shift->{_fields}->{AvailabilityZone}->{FieldValue});
+ }
+
+ sub getVpcAttachment {
+ return shift->{_fields}->{VpcAttachment}->{FieldValue};
+ }
+
+ sub setVpcAttachment {
+ my $self = shift;
+ foreach my $vpcAttachment (@_) {
+ if (not $self->_isArrayRef($vpcAttachment)) {
+ $vpcAttachment = [$vpcAttachment];
+ }
+ $self->{_fields}->{VpcAttachment}->{FieldValue} = $vpcAttachment;
+ }
+ }
+
+
+ sub withVpcAttachment {
+ my ($self, $vpcAttachmentArgs) = @_;
+ foreach my $vpcAttachment (@$vpcAttachmentArgs) {
+ $self->{_fields}->{VpcAttachment}->{FieldValue} = $vpcAttachment;
+ }
+ return $self;
+ }
+
+
+ sub isSetVpcAttachment {
+ return scalar (@{shift->{_fields}->{VpcAttachment}->{FieldValue}}) > 0;
+ }
+
+
+
+
+
+1;
diff --git a/src/main/resources/project/lib/Amazon/amazon_EC2_XSLT_fix.sed b/src/main/resources/project/lib/Amazon/amazon_EC2_XSLT_fix.sed
new file mode 100644
index 0000000..1705860
--- /dev/null
+++ b/src/main/resources/project/lib/Amazon/amazon_EC2_XSLT_fix.sed
@@ -0,0 +1,18 @@
+# Run this using this command in the ".../lib/EC2/Model" directory:
+# sed -i.bak -f ../../amazon_EC2_XSLT_fix.sed *.xslt
+#
+# Note if this needs to be updated: remember to order the edits from most to least specific
+
+s%value-of select="ec2:currentState/ec2:%value-of select="currentState/%
+s%value-of select="ec2:monitoring/ec2:%value-of select="monitoring/%
+s%value-of select="ec2:placement/ec2:%value-of select="placement/%
+s%value-of select="ec2:previousState/ec2:%value-of select="previousState/%
+s%value-of select="ec2:S3/ec2:%value-of select="S3/%
+s%apply-templates select="ec2:%apply-templates select="%
+s%for-each select="ec2:%for-each select="%
+s%if test="ec2:%if test="%
+s%if test="not(ec2:%if test="not(%
+s%if test="string-length(ec2:%if test="string-length(%
+s%template match="ec2:%template match="%
+s%value-of select="ec2:%value-of select="%
+s%value-of select="\.\./ec2:%value-of select="../%
diff --git a/src/main/resources/project/lib/XML/DOM.pm b/src/main/resources/project/lib/XML/DOM.pm
new file mode 100644
index 0000000..f1fddaf
--- /dev/null
+++ b/src/main/resources/project/lib/XML/DOM.pm
@@ -0,0 +1,5131 @@
+################################################################################
+#
+# Perl module: XML::DOM
+#
+# By Enno Derksen
+#
+################################################################################
+#
+# To do:
+#
+# * optimize Attr if it only contains 1 Text node to hold the value
+# * fix setDocType!
+#
+# * BUG: setOwnerDocument - does not process default attr values correctly,
+# they still point to the old doc.
+# * change Exception mechanism
+# * maybe: more checking of sysId etc.
+# * NoExpand mode (don't know what else is useful)
+# * various odds and ends: see comments starting with "??"
+# * normalize(1) could also expand CDataSections and EntityReferences
+# * parse a DocumentFragment?
+# * encoding support
+#
+######################################################################
+
+######################################################################
+package XML::DOM;
+######################################################################
+
+use strict;
+
+use ElectricCommander;
+use ElectricCommander::PropMod qw(/myProject/lib);
+
+use vars qw( $VERSION @ISA @EXPORT
+ $IgnoreReadOnly $SafeMode $TagStyle
+ %DefaultEntities %DecodeDefaultEntity
+ );
+use Carp;
+use XML::RegExp;
+
+BEGIN
+{
+ require XML::Parser;
+ $VERSION = '1.44';
+
+ my $needVersion = '2.28';
+ die "need at least XML::Parser version $needVersion (current=${XML::Parser::VERSION})"
+ unless $XML::Parser::VERSION >= $needVersion;
+
+ @ISA = qw( Exporter );
+
+ # Constants for XML::DOM Node types
+ @EXPORT = qw(
+ UNKNOWN_NODE
+ ELEMENT_NODE
+ ATTRIBUTE_NODE
+ TEXT_NODE
+ CDATA_SECTION_NODE
+ ENTITY_REFERENCE_NODE
+ ENTITY_NODE
+ PROCESSING_INSTRUCTION_NODE
+ COMMENT_NODE
+ DOCUMENT_NODE
+ DOCUMENT_TYPE_NODE
+ DOCUMENT_FRAGMENT_NODE
+ NOTATION_NODE
+ ELEMENT_DECL_NODE
+ ATT_DEF_NODE
+ XML_DECL_NODE
+ ATTLIST_DECL_NODE
+ );
+}
+
+#---- Constant definitions
+
+# Node types
+
+sub UNKNOWN_NODE () { 0 } # not in the DOM Spec
+
+sub ELEMENT_NODE () { 1 }
+sub ATTRIBUTE_NODE () { 2 }
+sub TEXT_NODE () { 3 }
+sub CDATA_SECTION_NODE () { 4 }
+sub ENTITY_REFERENCE_NODE () { 5 }
+sub ENTITY_NODE () { 6 }
+sub PROCESSING_INSTRUCTION_NODE () { 7 }
+sub COMMENT_NODE () { 8 }
+sub DOCUMENT_NODE () { 9 }
+sub DOCUMENT_TYPE_NODE () { 10}
+sub DOCUMENT_FRAGMENT_NODE () { 11}
+sub NOTATION_NODE () { 12}
+
+sub ELEMENT_DECL_NODE () { 13 } # not in the DOM Spec
+sub ATT_DEF_NODE () { 14 } # not in the DOM Spec
+sub XML_DECL_NODE () { 15 } # not in the DOM Spec
+sub ATTLIST_DECL_NODE () { 16 } # not in the DOM Spec
+
+%DefaultEntities =
+(
+ "quot" => '"',
+ "gt" => ">",
+ "lt" => "<",
+ "apos" => "'",
+ "amp" => "&"
+);
+
+%DecodeDefaultEntity =
+(
+ '"' => """,
+ ">" => ">",
+ "<" => "<",
+ "'" => "'",
+ "&" => "&"
+);
+
+#
+# If you don't want DOM warnings to use 'warn', override this method like this:
+#
+# { # start block scope
+# local *XML::DOM::warning = \&my_warn;
+# ... your code here ...
+# } # end block scope (old XML::DOM::warning takes effect again)
+#
+sub warning # static
+{
+ warn @_;
+}
+
+#
+# This method defines several things in the caller's package, so you can use named constants to
+# access the array that holds the member data, i.e. $self->[_Data]. It assumes the caller's package
+# defines a class that is implemented as a blessed array reference.
+# Note that this is very similar to using 'use fields' and 'use base'.
+#
+# E.g. if $fields eq "Name Model", $parent eq "XML::DOM::Node" and
+# XML::DOM::Node had "A B C" as fields and it was called from package "XML::DOM::ElementDecl",
+# then this code would basically do the following:
+#
+# package XML::DOM::ElementDecl;
+#
+# sub _Name () { 3 } # Note that parent class had three fields
+# sub _Model () { 4 }
+#
+# # Maps constant names (without '_') to constant (int) value
+# %HFIELDS = ( %XML::DOM::Node::HFIELDS, Name => _Name, Model => _Model );
+#
+# # Define XML:DOM::ElementDecl as a subclass of XML::DOM::Node
+# @ISA = qw{ XML::DOM::Node };
+#
+# # The following function names can be exported into the user's namespace.
+# @EXPORT_OK = qw{ _Name _Model };
+#
+# # The following function names can be exported into the user's namespace
+# # with: import XML::DOM::ElementDecl qw( :Fields );
+# %EXPORT_TAGS = ( Fields => qw{ _Name _Model } );
+#
+sub def_fields # static
+{
+ my ($fields, $parent) = @_;
+
+ my ($pkg) = caller;
+
+ no strict 'refs';
+
+ my @f = split (/\s+/, $fields);
+ my $n = 0;
+
+ my %hfields;
+ if (defined $parent)
+ {
+ my %pf = %{"$parent\::HFIELDS"};
+ %hfields = %pf;
+
+ $n = scalar (keys %pf);
+ @{"$pkg\::ISA"} = ( $parent );
+ }
+
+ my $i = $n;
+ for (@f)
+ {
+ eval "sub $pkg\::_$_ () { $i }";
+ $hfields{$_} = $i;
+ $i++;
+ }
+ %{"$pkg\::HFIELDS"} = %hfields;
+ @{"$pkg\::EXPORT_OK"} = map { "_$_" } @f;
+
+ ${"$pkg\::EXPORT_TAGS"}{Fields} = [ map { "_$_" } @f ];
+}
+
+# sub blesh
+# {
+# my $hashref = shift;
+# my $class = shift;
+# no strict 'refs';
+# my $self = bless [\%{"$class\::FIELDS"}], $class;
+# if (defined $hashref)
+# {
+# for (keys %$hashref)
+# {
+# $self->{$_} = $hashref->{$_};
+# }
+# }
+# $self;
+# }
+
+# sub blesh2
+# {
+# my $hashref = shift;
+# my $class = shift;
+# no strict 'refs';
+# my $self = bless [\%{"$class\::FIELDS"}], $class;
+# if (defined $hashref)
+# {
+# for (keys %$hashref)
+# {
+# eval { $self->{$_} = $hashref->{$_}; };
+# croak "ERROR in field [$_] $@" if $@;
+# }
+# }
+# $self;
+#}
+
+#
+# CDATA section may not contain "]]>"
+#
+sub encodeCDATA
+{
+ my ($str) = shift;
+ $str =~ s/]]>/]]>/go;
+ $str;
+}
+
+#
+# PI may not contain "?>"
+#
+sub encodeProcessingInstruction
+{
+ my ($str) = shift;
+ $str =~ s/\?>/?>/go;
+ $str;
+}
+
+#
+#?? Not sure if this is right - must prevent double minus somehow...
+#
+sub encodeComment
+{
+ my ($str) = shift;
+ return undef unless defined $str;
+
+ $str =~ s/--/--/go;
+ $str;
+}
+
+#
+# For debugging
+#
+sub toHex
+{
+ my $str = shift;
+ my $len = length($str);
+ my @a = unpack ("C$len", $str);
+ my $s = "";
+ for (@a)
+ {
+ $s .= sprintf ("%02x", $_);
+ }
+ $s;
+}
+
+#
+# 2nd parameter $default: list of Default Entity characters that need to be
+# converted (e.g. "&<" for conversion to "&" and "<" resp.)
+#
+sub encodeText
+{
+ my ($str, $default) = @_;
+ return undef unless defined $str;
+
+ if ($] >= 5.006) {
+ $str =~ s/([$default])|(]]>)/
+ defined ($1) ? $DecodeDefaultEntity{$1} : "]]>" /egs;
+ }
+ else {
+ $str =~ s/([\xC0-\xDF].|[\xE0-\xEF]..|[\xF0-\xFF]...)|([$default])|(]]>)/
+ defined($1) ? XmlUtf8Decode ($1) :
+ defined ($2) ? $DecodeDefaultEntity{$2} : "]]>" /egs;
+ }
+
+#?? could there be references that should not be expanded?
+# e.g. should not replace &#nn; ¯ and &abc;
+# $str =~ s/&(?!($ReName|#[0-9]+|#x[0-9a-fA-F]+);)/&/go;
+
+ $str;
+}
+
+#
+# Used by AttDef - default value
+#
+sub encodeAttrValue
+{
+ encodeText (shift, '"&<>');
+}
+
+#
+# Converts an integer (Unicode - ISO/IEC 10646) to a UTF-8 encoded character
+# sequence.
+# Used when converting e.g. { or Ͽ to a string value.
+#
+# Algorithm borrowed from expat/xmltok.c/XmlUtf8Encode()
+#
+# not checking for bad characters: < 0, x00-x08, x0B-x0C, x0E-x1F, xFFFE-xFFFF
+#
+sub XmlUtf8Encode
+{
+ my $n = shift;
+ if ($n < 0x80)
+ {
+ return chr ($n);
+ }
+ elsif ($n < 0x800)
+ {
+ return pack ("CC", (($n >> 6) | 0xc0), (($n & 0x3f) | 0x80));
+ }
+ elsif ($n < 0x10000)
+ {
+ return pack ("CCC", (($n >> 12) | 0xe0), ((($n >> 6) & 0x3f) | 0x80),
+ (($n & 0x3f) | 0x80));
+ }
+ elsif ($n < 0x110000)
+ {
+ return pack ("CCCC", (($n >> 18) | 0xf0), ((($n >> 12) & 0x3f) | 0x80),
+ ((($n >> 6) & 0x3f) | 0x80), (($n & 0x3f) | 0x80));
+ }
+ croak "number is too large for Unicode [$n] in &XmlUtf8Encode";
+}
+
+#
+# Opposite of XmlUtf8Decode plus it adds prefix "&#" or "&#x" and suffix ";"
+# The 2nd parameter ($hex) indicates whether the result is hex encoded or not.
+#
+sub XmlUtf8Decode
+{
+ my ($str, $hex) = @_;
+ my $len = length ($str);
+ my $n;
+
+ if ($len == 2)
+ {
+ my @n = unpack "C2", $str;
+ $n = (($n[0] & 0x3f) << 6) + ($n[1] & 0x3f);
+ }
+ elsif ($len == 3)
+ {
+ my @n = unpack "C3", $str;
+ $n = (($n[0] & 0x1f) << 12) + (($n[1] & 0x3f) << 6) +
+ ($n[2] & 0x3f);
+ }
+ elsif ($len == 4)
+ {
+ my @n = unpack "C4", $str;
+ $n = (($n[0] & 0x0f) << 18) + (($n[1] & 0x3f) << 12) +
+ (($n[2] & 0x3f) << 6) + ($n[3] & 0x3f);
+ }
+ elsif ($len == 1) # just to be complete...
+ {
+ $n = ord ($str);
+ }
+ else
+ {
+ croak "bad value [$str] for XmlUtf8Decode";
+ }
+ $hex ? sprintf ("&#x%x;", $n) : "&#$n;";
+}
+
+$IgnoreReadOnly = 0;
+$SafeMode = 1;
+
+sub getIgnoreReadOnly
+{
+ $IgnoreReadOnly;
+}
+
+#
+# The global flag $IgnoreReadOnly is set to the specified value and the old
+# value of $IgnoreReadOnly is returned.
+#
+# To temporarily disable read-only related exceptions (i.e. when parsing
+# XML or temporarily), do the following:
+#
+# my $oldIgnore = XML::DOM::ignoreReadOnly (1);
+# ... do whatever you want ...
+# XML::DOM::ignoreReadOnly ($oldIgnore);
+#
+sub ignoreReadOnly
+{
+ my $i = $IgnoreReadOnly;
+ $IgnoreReadOnly = $_[0];
+ return $i;
+}
+
+#
+# XML spec seems to break its own rules... (see ENTITY xmlpio)
+#
+sub forgiving_isValidName
+{
+ use bytes; # XML::RegExp expressed in terms encoded UTF8
+ $_[0] =~ /^$XML::RegExp::Name$/o;
+}
+
+#
+# Don't allow names starting with xml (either case)
+#
+sub picky_isValidName
+{
+ use bytes; # XML::RegExp expressed in terms encoded UTF8
+ $_[0] =~ /^$XML::RegExp::Name$/o and $_[0] !~ /^xml/i;
+}
+
+# Be forgiving by default,
+*isValidName = \&forgiving_isValidName;
+
+sub allowReservedNames # static
+{
+ *isValidName = ($_[0] ? \&forgiving_isValidName : \&picky_isValidName);
+}
+
+sub getAllowReservedNames # static
+{
+ *isValidName == \&forgiving_isValidName;
+}
+
+#
+# Always compress empty tags by default
+# This is used by Element::print.
+#
+$TagStyle = sub { 0 };
+
+sub setTagCompression
+{
+ $TagStyle = shift;
+}
+
+######################################################################
+package XML::DOM::PrintToFileHandle;
+######################################################################
+
+#
+# Used by XML::DOM::Node::printToFileHandle
+#
+
+sub new
+{
+ my($class, $fn) = @_;
+ bless $fn, $class;
+}
+
+sub print
+{
+ my ($self, $str) = @_;
+ print $self $str;
+}
+
+######################################################################
+package XML::DOM::PrintToString;
+######################################################################
+
+use vars qw{ $Singleton };
+
+#
+# Used by XML::DOM::Node::toString to concatenate strings
+#
+
+sub new
+{
+ my($class) = @_;
+ my $str = "";
+ bless \$str, $class;
+}
+
+sub print
+{
+ my ($self, $str) = @_;
+ $$self .= $str;
+}
+
+sub toString
+{
+ my $self = shift;
+ $$self;
+}
+
+sub reset
+{
+ ${$_[0]} = "";
+}
+
+$Singleton = new XML::DOM::PrintToString;
+
+######################################################################
+package XML::DOM::DOMImplementation;
+######################################################################
+
+$XML::DOM::DOMImplementation::Singleton =
+ bless \$XML::DOM::DOMImplementation::Singleton, 'XML::DOM::DOMImplementation';
+
+sub hasFeature
+{
+ my ($self, $feature, $version) = @_;
+
+ uc($feature) eq 'XML' and ($version eq '1.0' || $version eq '');
+}
+
+
+######################################################################
+package XML::XQL::Node; # forward declaration
+######################################################################
+
+######################################################################
+package XML::DOM::Node;
+######################################################################
+
+use vars qw( @NodeNames @EXPORT @ISA %HFIELDS @EXPORT_OK @EXPORT_TAGS );
+
+BEGIN
+{
+ use XML::DOM::DOMException;
+ import Carp;
+
+ require FileHandle;
+
+ @ISA = qw( Exporter XML::XQL::Node );
+
+ # NOTE: SortKey is used in XML::XQL::Node.
+ # UserData is reserved for users (Hang your data here!)
+ XML::DOM::def_fields ("C A Doc Parent ReadOnly UsedIn Hidden SortKey UserData");
+
+ push (@EXPORT, qw(
+ UNKNOWN_NODE
+ ELEMENT_NODE
+ ATTRIBUTE_NODE
+ TEXT_NODE
+ CDATA_SECTION_NODE
+ ENTITY_REFERENCE_NODE
+ ENTITY_NODE
+ PROCESSING_INSTRUCTION_NODE
+ COMMENT_NODE
+ DOCUMENT_NODE
+ DOCUMENT_TYPE_NODE
+ DOCUMENT_FRAGMENT_NODE
+ NOTATION_NODE
+ ELEMENT_DECL_NODE
+ ATT_DEF_NODE
+ XML_DECL_NODE
+ ATTLIST_DECL_NODE
+ ));
+}
+
+#---- Constant definitions
+
+# Node types
+
+sub UNKNOWN_NODE () {0;} # not in the DOM Spec
+
+sub ELEMENT_NODE () {1;}
+sub ATTRIBUTE_NODE () {2;}
+sub TEXT_NODE () {3;}
+sub CDATA_SECTION_NODE () {4;}
+sub ENTITY_REFERENCE_NODE () {5;}
+sub ENTITY_NODE () {6;}
+sub PROCESSING_INSTRUCTION_NODE () {7;}
+sub COMMENT_NODE () {8;}
+sub DOCUMENT_NODE () {9;}
+sub DOCUMENT_TYPE_NODE () {10;}
+sub DOCUMENT_FRAGMENT_NODE () {11;}
+sub NOTATION_NODE () {12;}
+
+sub ELEMENT_DECL_NODE () {13;} # not in the DOM Spec
+sub ATT_DEF_NODE () {14;} # not in the DOM Spec
+sub XML_DECL_NODE () {15;} # not in the DOM Spec
+sub ATTLIST_DECL_NODE () {16;} # not in the DOM Spec
+
+@NodeNames = (
+ "UNKNOWN_NODE", # not in the DOM Spec!
+
+ "ELEMENT_NODE",
+ "ATTRIBUTE_NODE",
+ "TEXT_NODE",
+ "CDATA_SECTION_NODE",
+ "ENTITY_REFERENCE_NODE",
+ "ENTITY_NODE",
+ "PROCESSING_INSTRUCTION_NODE",
+ "COMMENT_NODE",
+ "DOCUMENT_NODE",
+ "DOCUMENT_TYPE_NODE",
+ "DOCUMENT_FRAGMENT_NODE",
+ "NOTATION_NODE",
+
+ "ELEMENT_DECL_NODE",
+ "ATT_DEF_NODE",
+ "XML_DECL_NODE",
+ "ATTLIST_DECL_NODE"
+ );
+
+sub decoupleUsedIn
+{
+ my $self = shift;
+ undef $self->[_UsedIn]; # was delete
+}
+
+sub getParentNode
+{
+ $_[0]->[_Parent];
+}
+
+sub appendChild
+{
+ my ($self, $node) = @_;
+
+ # REC 7473
+ if ($XML::DOM::SafeMode)
+ {
+ croak new XML::DOM::DOMException (NO_MODIFICATION_ALLOWED_ERR,
+ "node is ReadOnly")
+ if $self->isReadOnly;
+ }
+
+ my $doc = $self->[_Doc];
+
+ if ($node->isDocumentFragmentNode)
+ {
+ if ($XML::DOM::SafeMode)
+ {
+ for my $n (@{$node->[_C]})
+ {
+ croak new XML::DOM::DOMException (WRONG_DOCUMENT_ERR,
+ "nodes belong to different documents")
+ if $doc != $n->[_Doc];
+
+ croak new XML::DOM::DOMException (HIERARCHY_REQUEST_ERR,
+ "node is ancestor of parent node")
+ if $n->isAncestor ($self);
+
+ croak new XML::DOM::DOMException (HIERARCHY_REQUEST_ERR,
+ "bad node type")
+ if $self->rejectChild ($n);
+ }
+ }
+
+ my @list = @{$node->[_C]}; # don't try to compress this
+ for my $n (@list)
+ {
+ $n->setParentNode ($self);
+ }
+ push @{$self->[_C]}, @list;
+ }
+ else
+ {
+ if ($XML::DOM::SafeMode)
+ {
+ croak new XML::DOM::DOMException (WRONG_DOCUMENT_ERR,
+ "nodes belong to different documents")
+ if $doc != $node->[_Doc];
+
+ croak new XML::DOM::DOMException (HIERARCHY_REQUEST_ERR,
+ "node is ancestor of parent node")
+ if $node->isAncestor ($self);
+
+ croak new XML::DOM::DOMException (HIERARCHY_REQUEST_ERR,
+ "bad node type")
+ if $self->rejectChild ($node);
+ }
+ $node->setParentNode ($self);
+ push @{$self->[_C]}, $node;
+ }
+ $node;
+}
+
+sub getChildNodes
+{
+ # NOTE: if node can't have children, $self->[_C] is undef.
+ my $kids = $_[0]->[_C];
+
+ # Return a list if called in list context.
+ wantarray ? (defined ($kids) ? @{ $kids } : ()) :
+ (defined ($kids) ? $kids : $XML::DOM::NodeList::EMPTY);
+}
+
+sub hasChildNodes
+{
+ my $kids = $_[0]->[_C];
+ defined ($kids) && @$kids > 0;
+}
+
+# This method is overriden in Document
+sub getOwnerDocument
+{
+ $_[0]->[_Doc];
+}
+
+sub getFirstChild
+{
+ my $kids = $_[0]->[_C];
+ defined $kids ? $kids->[0] : undef;
+}
+
+sub getLastChild
+{
+ my $kids = $_[0]->[_C];
+ defined $kids ? $kids->[-1] : undef;
+}
+
+sub getPreviousSibling
+{
+ my $self = shift;
+
+ my $pa = $self->[_Parent];
+ return undef unless $pa;
+ my $index = $pa->getChildIndex ($self);
+ return undef unless $index;
+
+ $pa->getChildAtIndex ($index - 1);
+}
+
+sub getNextSibling
+{
+ my $self = shift;
+
+ my $pa = $self->[_Parent];
+ return undef unless $pa;
+
+ $pa->getChildAtIndex ($pa->getChildIndex ($self) + 1);
+}
+
+sub insertBefore
+{
+ my ($self, $node, $refNode) = @_;
+
+ return $self->appendChild ($node) unless $refNode; # append at the end
+
+ croak new XML::DOM::DOMException (NO_MODIFICATION_ALLOWED_ERR,
+ "node is ReadOnly")
+ if $self->isReadOnly;
+
+ my @nodes = ($node);
+ @nodes = @{$node->[_C]}
+ if $node->getNodeType == DOCUMENT_FRAGMENT_NODE;
+
+ my $doc = $self->[_Doc];
+
+ for my $n (@nodes)
+ {
+ croak new XML::DOM::DOMException (WRONG_DOCUMENT_ERR,
+ "nodes belong to different documents")
+ if $doc != $n->[_Doc];
+
+ croak new XML::DOM::DOMException (HIERARCHY_REQUEST_ERR,
+ "node is ancestor of parent node")
+ if $n->isAncestor ($self);
+
+ croak new XML::DOM::DOMException (HIERARCHY_REQUEST_ERR,
+ "bad node type")
+ if $self->rejectChild ($n);
+ }
+ my $index = $self->getChildIndex ($refNode);
+
+ croak new XML::DOM::DOMException (NOT_FOUND_ERR,
+ "reference node not found")
+ if $index == -1;
+
+ for my $n (@nodes)
+ {
+ $n->setParentNode ($self);
+ }
+
+ splice (@{$self->[_C]}, $index, 0, @nodes);
+ $node;
+}
+
+sub replaceChild
+{
+ my ($self, $node, $refNode) = @_;
+
+ croak new XML::DOM::DOMException (NO_MODIFICATION_ALLOWED_ERR,
+ "node is ReadOnly")
+ if $self->isReadOnly;
+
+ my @nodes = ($node);
+ @nodes = @{$node->[_C]}
+ if $node->getNodeType == DOCUMENT_FRAGMENT_NODE;
+
+ for my $n (@nodes)
+ {
+ croak new XML::DOM::DOMException (WRONG_DOCUMENT_ERR,
+ "nodes belong to different documents")
+ if $self->[_Doc] != $n->[_Doc];
+
+ croak new XML::DOM::DOMException (HIERARCHY_REQUEST_ERR,
+ "node is ancestor of parent node")
+ if $n->isAncestor ($self);
+
+ croak new XML::DOM::DOMException (HIERARCHY_REQUEST_ERR,
+ "bad node type")
+ if $self->rejectChild ($n);
+ }
+
+ my $index = $self->getChildIndex ($refNode);
+ croak new XML::DOM::DOMException (NOT_FOUND_ERR,
+ "reference node not found")
+ if $index == -1;
+
+ for my $n (@nodes)
+ {
+ $n->setParentNode ($self);
+ }
+ splice (@{$self->[_C]}, $index, 1, @nodes);
+
+ $refNode->removeChildHoodMemories;
+ $refNode;
+}
+
+sub removeChild
+{
+ my ($self, $node) = @_;
+
+ croak new XML::DOM::DOMException (NO_MODIFICATION_ALLOWED_ERR,
+ "node is ReadOnly")
+ if $self->isReadOnly;
+
+ my $index = $self->getChildIndex ($node);
+
+ croak new XML::DOM::DOMException (NOT_FOUND_ERR,
+ "reference node not found")
+ if $index == -1;
+
+ splice (@{$self->[_C]}, $index, 1, ());
+
+ $node->removeChildHoodMemories;
+ $node;
+}
+
+# Merge all subsequent Text nodes in this subtree
+sub normalize
+{
+ my ($self) = shift;
+ my $prev = undef; # previous Text node
+
+ return unless defined $self->[_C];
+
+ my @nodes = @{$self->[_C]};
+ my $i = 0;
+ my $n = @nodes;
+ while ($i < $n)
+ {
+ my $node = $self->getChildAtIndex($i);
+ my $type = $node->getNodeType;
+
+ if (defined $prev)
+ {
+ # It should not merge CDATASections. Dom Spec says:
+ # Adjacent CDATASections nodes are not merged by use
+ # of the Element.normalize() method.
+ if ($type == TEXT_NODE)
+ {
+ $prev->appendData ($node->getData);
+ $self->removeChild ($node);
+ $i--;
+ $n--;
+ }
+ else
+ {
+ $prev = undef;
+ if ($type == ELEMENT_NODE)
+ {
+ $node->normalize;
+ if (defined $node->[_A])
+ {
+ for my $attr (@{$node->[_A]->getValues})
+ {
+ $attr->normalize;
+ }
+ }
+ }
+ }
+ }
+ else
+ {
+ if ($type == TEXT_NODE)
+ {
+ $prev = $node;
+ }
+ elsif ($type == ELEMENT_NODE)
+ {
+ $node->normalize;
+ if (defined $node->[_A])
+ {
+ for my $attr (@{$node->[_A]->getValues})
+ {
+ $attr->normalize;
+ }
+ }
+ }
+ }
+ $i++;
+ }
+}
+
+#
+# Return all Element nodes in the subtree that have the specified tagName.
+# If tagName is "*", all Element nodes are returned.
+# NOTE: the DOM Spec does not specify a 3rd or 4th parameter
+#
+sub getElementsByTagName
+{
+ my ($self, $tagName, $recurse, $list) = @_;
+ $recurse = 1 unless defined $recurse;
+ $list = (wantarray ? [] : new XML::DOM::NodeList) unless defined $list;
+
+ return unless defined $self->[_C];
+
+ # preorder traversal: check parent node first
+ for my $kid (@{$self->[_C]})
+ {
+ if ($kid->isElementNode)
+ {
+ if ($tagName eq "*" || $tagName eq $kid->getTagName)
+ {
+ push @{$list}, $kid;
+ }
+ $kid->getElementsByTagName ($tagName, $recurse, $list) if $recurse;
+ }
+ }
+ wantarray ? @{ $list } : $list;
+}
+
+sub getNodeValue
+{
+ undef;
+}
+
+sub setNodeValue
+{
+ # no-op
+}
+
+#
+# Redefined by XML::DOM::Element
+#
+sub getAttributes
+{
+ undef;
+}
+
+#------------------------------------------------------------
+# Extra method implementations
+
+sub setOwnerDocument
+{
+ my ($self, $doc) = @_;
+ $self->[_Doc] = $doc;
+
+ return unless defined $self->[_C];
+
+ for my $kid (@{$self->[_C]})
+ {
+ $kid->setOwnerDocument ($doc);
+ }
+}
+
+sub cloneChildren
+{
+ my ($self, $node, $deep) = @_;
+ return unless $deep;
+
+ return unless defined $self->[_C];
+
+ local $XML::DOM::IgnoreReadOnly = 1;
+
+ for my $kid (@{$node->[_C]})
+ {
+ my $newNode = $kid->cloneNode ($deep);
+ push @{$self->[_C]}, $newNode;
+ $newNode->setParentNode ($self);
+ }
+}
+
+#
+# For internal use only!
+#
+sub removeChildHoodMemories
+{
+ my ($self) = @_;
+
+ undef $self->[_Parent]; # was delete
+}
+
+#
+# Remove circular dependencies. The Node and its children should
+# not be used afterwards.
+#
+sub dispose
+{
+ my $self = shift;
+
+ $self->removeChildHoodMemories;
+
+ if (defined $self->[_C])
+ {
+ $self->[_C]->dispose;
+ undef $self->[_C]; # was delete
+ }
+ undef $self->[_Doc]; # was delete
+}
+
+#
+# For internal use only!
+#
+sub setParentNode
+{
+ my ($self, $parent) = @_;
+
+ # REC 7473
+ my $oldParent = $self->[_Parent];
+ if (defined $oldParent)
+ {
+ # remove from current parent
+ my $index = $oldParent->getChildIndex ($self);
+
+ # NOTE: we don't have to check if [_C] is defined,
+ # because were removing a child here!
+ splice (@{$oldParent->[_C]}, $index, 1, ());
+
+ $self->removeChildHoodMemories;
+ }
+ $self->[_Parent] = $parent;
+}
+
+#
+# This function can return 3 values:
+# 1: always readOnly
+# 0: never readOnly
+# undef: depends on parent node
+#
+# Returns 1 for DocumentType, Notation, Entity, EntityReference, Attlist,
+# ElementDecl, AttDef.
+# The first 4 are readOnly according to the DOM Spec, the others are always
+# children of DocumentType. (Naturally, children of a readOnly node have to be
+# readOnly as well...)
+# These nodes are always readOnly regardless of who their ancestors are.
+# Other nodes, e.g. Comment, are readOnly only if their parent is readOnly,
+# which basically means that one of its ancestors has to be one of the
+# aforementioned node types.
+# Document and DocumentFragment return 0 for obvious reasons.
+# Attr, Element, CDATASection, Text return 0. The DOM spec says that they can
+# be children of an Entity, but I don't think that that's possible
+# with the current XML::Parser.
+# Attr uses a {ReadOnly} property, which is only set if it's part of a AttDef.
+# Always returns 0 if ignoreReadOnly is set.
+#
+sub isReadOnly
+{
+ # default implementation for Nodes that are always readOnly
+ ! $XML::DOM::IgnoreReadOnly;
+}
+
+sub rejectChild
+{
+ 1;
+}
+
+sub getNodeTypeName
+{
+ $NodeNames[$_[0]->getNodeType];
+}
+
+sub getChildIndex
+{
+ my ($self, $node) = @_;
+ my $i = 0;
+
+ return -1 unless defined $self->[_C];
+
+ for my $kid (@{$self->[_C]})
+ {
+ return $i if $kid == $node;
+ $i++;
+ }
+ -1;
+}
+
+sub getChildAtIndex
+{
+ my $kids = $_[0]->[_C];
+ defined ($kids) ? $kids->[$_[1]] : undef;
+}
+
+sub isAncestor
+{
+ my ($self, $node) = @_;
+
+ do
+ {
+ return 1 if $self == $node;
+ $node = $node->[_Parent];
+ }
+ while (defined $node);
+
+ 0;
+}
+
+#
+# Added for optimization. Overriden in XML::DOM::Text
+#
+sub isTextNode
+{
+ 0;
+}
+
+#
+# Added for optimization. Overriden in XML::DOM::DocumentFragment
+#
+sub isDocumentFragmentNode
+{
+ 0;
+}
+
+#
+# Added for optimization. Overriden in XML::DOM::Element
+#
+sub isElementNode
+{
+ 0;
+}
+
+#
+# Add a Text node with the specified value or append the text to the
+# previous Node if it is a Text node.
+#
+sub addText
+{
+ # REC 9456 (if it was called)
+ my ($self, $str) = @_;
+
+ my $node = ${$self->[_C]}[-1]; # $self->getLastChild
+
+ if (defined ($node) && $node->isTextNode)
+ {
+ # REC 5475 (if it was called)
+ $node->appendData ($str);
+ }
+ else
+ {
+ $node = $self->[_Doc]->createTextNode ($str);
+ $self->appendChild ($node);
+ }
+ $node;
+}
+
+#
+# Add a CDATASection node with the specified value or append the text to the
+# previous Node if it is a CDATASection node.
+#
+sub addCDATA
+{
+ my ($self, $str) = @_;
+
+ my $node = ${$self->[_C]}[-1]; # $self->getLastChild
+
+ if (defined ($node) && $node->getNodeType == CDATA_SECTION_NODE)
+ {
+ $node->appendData ($str);
+ }
+ else
+ {
+ $node = $self->[_Doc]->createCDATASection ($str);
+ $self->appendChild ($node);
+ }
+}
+
+sub removeChildNodes
+{
+ my $self = shift;
+
+ my $cref = $self->[_C];
+ return unless defined $cref;
+
+ my $kid;
+ while ($kid = pop @{$cref})
+ {
+ undef $kid->[_Parent]; # was delete
+ }
+}
+
+sub toString
+{
+ my $self = shift;
+ my $pr = $XML::DOM::PrintToString::Singleton;
+ $pr->reset;
+ $self->print ($pr);
+ $pr->toString;
+}
+
+sub to_sax
+{
+ my $self = shift;
+ unshift @_, 'Handler' if (@_ == 1);
+ my %h = @_;
+
+ my $doch = exists ($h{DocumentHandler}) ? $h{DocumentHandler}
+ : $h{Handler};
+ my $dtdh = exists ($h{DTDHandler}) ? $h{DTDHandler}
+ : $h{Handler};
+ my $enth = exists ($h{EntityResolver}) ? $h{EntityResolver}
+ : $h{Handler};
+
+ $self->_to_sax ($doch, $dtdh, $enth);
+}
+
+sub printToFile
+{
+ my ($self, $fileName) = @_;
+ my $fh = new FileHandle ($fileName, "w") ||
+ croak "printToFile - can't open output file $fileName";
+
+ $self->print ($fh);
+ $fh->close;
+}
+
+#
+# Use print to print to a FileHandle object (see printToFile code)
+#
+sub printToFileHandle
+{
+ my ($self, $FH) = @_;
+ my $pr = new XML::DOM::PrintToFileHandle ($FH);
+ $self->print ($pr);
+}
+
+#
+# Used by AttDef::setDefault to convert unexpanded default attribute value
+#
+sub expandEntityRefs
+{
+ my ($self, $str) = @_;
+ my $doctype = $self->[_Doc]->getDoctype;
+
+ use bytes; # XML::RegExp expressed in terms encoded UTF8
+ $str =~ s/&($XML::RegExp::Name|(#([0-9]+)|#x([0-9a-fA-F]+)));/
+ defined($2) ? XML::DOM::XmlUtf8Encode ($3 || hex ($4))
+ : expandEntityRef ($1, $doctype)/ego;
+ $str;
+}
+
+sub expandEntityRef
+{
+ my ($entity, $doctype) = @_;
+
+ my $expanded = $XML::DOM::DefaultEntities{$entity};
+ return $expanded if defined $expanded;
+
+ $expanded = $doctype->getEntity ($entity);
+ return $expanded->getValue if (defined $expanded);
+
+#?? is this an error?
+ croak "Could not expand entity reference of [$entity]\n";
+# return "&$entity;"; # entity not found
+}
+
+sub isHidden
+{
+ $_[0]->[_Hidden];
+}
+
+######################################################################
+package XML::DOM::Attr;
+######################################################################
+
+use vars qw{ @ISA @EXPORT_OK %EXPORT_TAGS %HFIELDS };
+
+BEGIN
+{
+ import XML::DOM::Node qw( :DEFAULT :Fields );
+ XML::DOM::def_fields ("Name Specified", "XML::DOM::Node");
+}
+
+use XML::DOM::DOMException;
+use Carp;
+
+sub new
+{
+ my ($class, $doc, $name, $value, $specified) = @_;
+
+ if ($XML::DOM::SafeMode)
+ {
+ croak new XML::DOM::DOMException (INVALID_CHARACTER_ERR,
+ "bad Attr name [$name]")
+ unless XML::DOM::isValidName ($name);
+ }
+
+ my $self = bless [], $class;
+
+ $self->[_Doc] = $doc;
+ $self->[_C] = new XML::DOM::NodeList;
+ $self->[_Name] = $name;
+
+ if (defined $value)
+ {
+ $self->setValue ($value);
+ $self->[_Specified] = (defined $specified) ? $specified : 1;
+ }
+ else
+ {
+ $self->[_Specified] = 0;
+ }
+ $self;
+}
+
+sub getNodeType
+{
+ ATTRIBUTE_NODE;
+}
+
+sub isSpecified
+{
+ $_[0]->[_Specified];
+}
+
+sub getName
+{
+ $_[0]->[_Name];
+}
+
+sub getValue
+{
+ my $self = shift;
+ my $value = "";
+
+ for my $kid (@{$self->[_C]})
+ {
+ $value .= $kid->getData if defined $kid->getData;
+ }
+ $value;
+}
+
+sub setValue
+{
+ my ($self, $value) = @_;
+
+ # REC 1147
+ $self->removeChildNodes;
+ $self->appendChild ($self->[_Doc]->createTextNode ($value));
+ $self->[_Specified] = 1;
+}
+
+sub getNodeName
+{
+ $_[0]->getName;
+}
+
+sub getNodeValue
+{
+ $_[0]->getValue;
+}
+
+sub setNodeValue
+{
+ $_[0]->setValue ($_[1]);
+}
+
+sub cloneNode
+{
+ my ($self) = @_; # parameter deep is ignored
+
+ my $node = $self->[_Doc]->createAttribute ($self->getName);
+ $node->[_Specified] = $self->[_Specified];
+ $node->[_ReadOnly] = 1 if $self->[_ReadOnly];
+
+ $node->cloneChildren ($self, 1);
+ $node;
+}
+
+#------------------------------------------------------------
+# Extra method implementations
+#
+
+sub isReadOnly
+{
+ # ReadOnly property is set if it's part of a AttDef
+ ! $XML::DOM::IgnoreReadOnly && defined ($_[0]->[_ReadOnly]);
+}
+
+sub print
+{
+ my ($self, $FILE) = @_;
+
+ my $name = $self->[_Name];
+
+ $FILE->print ("$name=\"");
+ for my $kid (@{$self->[_C]})
+ {
+ if ($kid->getNodeType == TEXT_NODE)
+ {
+ $FILE->print (XML::DOM::encodeAttrValue ($kid->getData));
+ }
+ else # ENTITY_REFERENCE_NODE
+ {
+ $kid->print ($FILE);
+ }
+ }
+ $FILE->print ("\"");
+}
+
+sub rejectChild
+{
+ my $t = $_[1]->getNodeType;
+
+ $t != TEXT_NODE
+ && $t != ENTITY_REFERENCE_NODE;
+}
+
+######################################################################
+package XML::DOM::ProcessingInstruction;
+######################################################################
+
+use vars qw{ @ISA @EXPORT_OK %EXPORT_TAGS %HFIELDS };
+BEGIN
+{
+ import XML::DOM::Node qw( :DEFAULT :Fields );
+ XML::DOM::def_fields ("Target Data", "XML::DOM::Node");
+}
+
+use XML::DOM::DOMException;
+use Carp;
+
+sub new
+{
+ my ($class, $doc, $target, $data, $hidden) = @_;
+
+ croak new XML::DOM::DOMException (INVALID_CHARACTER_ERR,
+ "bad ProcessingInstruction Target [$target]")
+ unless (XML::DOM::isValidName ($target) && $target !~ /^xml$/io);
+
+ my $self = bless [], $class;
+
+ $self->[_Doc] = $doc;
+ $self->[_Target] = $target;
+ $self->[_Data] = $data;
+ $self->[_Hidden] = $hidden;
+ $self;
+}
+
+sub getNodeType
+{
+ PROCESSING_INSTRUCTION_NODE;
+}
+
+sub getTarget
+{
+ $_[0]->[_Target];
+}
+
+sub getData
+{
+ $_[0]->[_Data];
+}
+
+sub setData
+{
+ my ($self, $data) = @_;
+
+ croak new XML::DOM::DOMException (NO_MODIFICATION_ALLOWED_ERR,
+ "node is ReadOnly")
+ if $self->isReadOnly;
+
+ $self->[_Data] = $data;
+}
+
+sub getNodeName
+{
+ $_[0]->[_Target];
+}
+
+#
+# Same as getData
+#
+sub getNodeValue
+{
+ $_[0]->[_Data];
+}
+
+sub setNodeValue
+{
+ $_[0]->setData ($_[1]);
+}
+
+sub cloneNode
+{
+ my $self = shift;
+ $self->[_Doc]->createProcessingInstruction ($self->getTarget,
+ $self->getData,
+ $self->isHidden);
+}
+
+#------------------------------------------------------------
+# Extra method implementations
+
+sub isReadOnly
+{
+ return 0 if $XML::DOM::IgnoreReadOnly;
+
+ my $pa = $_[0]->[_Parent];
+ defined ($pa) ? $pa->isReadOnly : 0;
+}
+
+sub print
+{
+ my ($self, $FILE) = @_;
+
+ $FILE->print ("print ($self->[_Target]);
+ $FILE->print (" ");
+ $FILE->print (XML::DOM::encodeProcessingInstruction ($self->[_Data]));
+ $FILE->print ("?>");
+}
+
+sub _to_sax {
+ my ($self, $doch) = @_;
+ $doch->processing_instruction({Target => $self->getTarget, Data => $self->getData});
+}
+
+######################################################################
+package XML::DOM::Notation;
+######################################################################
+use vars qw{ @ISA @EXPORT_OK %EXPORT_TAGS %HFIELDS };
+
+BEGIN
+{
+ import XML::DOM::Node qw( :DEFAULT :Fields );
+ XML::DOM::def_fields ("Name Base SysId PubId", "XML::DOM::Node");
+}
+
+use XML::DOM::DOMException;
+use Carp;
+
+sub new
+{
+ my ($class, $doc, $name, $base, $sysId, $pubId, $hidden) = @_;
+
+ croak new XML::DOM::DOMException (INVALID_CHARACTER_ERR,
+ "bad Notation Name [$name]")
+ unless XML::DOM::isValidName ($name);
+
+ my $self = bless [], $class;
+
+ $self->[_Doc] = $doc;
+ $self->[_Name] = $name;
+ $self->[_Base] = $base;
+ $self->[_SysId] = $sysId;
+ $self->[_PubId] = $pubId;
+ $self->[_Hidden] = $hidden;
+ $self;
+}
+
+sub getNodeType
+{
+ NOTATION_NODE;
+}
+
+sub getPubId
+{
+ $_[0]->[_PubId];
+}
+
+sub setPubId
+{
+ $_[0]->[_PubId] = $_[1];
+}
+
+sub getSysId
+{
+ $_[0]->[_SysId];
+}
+
+sub setSysId
+{
+ $_[0]->[_SysId] = $_[1];
+}
+
+sub getName
+{
+ $_[0]->[_Name];
+}
+
+sub setName
+{
+ $_[0]->[_Name] = $_[1];
+}
+
+sub getBase
+{
+ $_[0]->[_Base];
+}
+
+sub getNodeName
+{
+ $_[0]->[_Name];
+}
+
+sub print
+{
+ my ($self, $FILE) = @_;
+
+ my $name = $self->[_Name];
+ my $sysId = $self->[_SysId];
+ my $pubId = $self->[_PubId];
+
+ $FILE->print ("print (" PUBLIC \"$pubId\"");
+ }
+ if (defined $sysId)
+ {
+ $FILE->print (" SYSTEM \"$sysId\"");
+ }
+ $FILE->print (">");
+}
+
+sub cloneNode
+{
+ my ($self) = @_;
+ $self->[_Doc]->createNotation ($self->[_Name], $self->[_Base],
+ $self->[_SysId], $self->[_PubId],
+ $self->[_Hidden]);
+}
+
+sub to_expat
+{
+ my ($self, $iter) = @_;
+ $iter->Notation ($self->getName, $self->getBase,
+ $self->getSysId, $self->getPubId);
+}
+
+sub _to_sax
+{
+ my ($self, $doch, $dtdh, $enth) = @_;
+ $dtdh->notation_decl ( { Name => $self->getName,
+ Base => $self->getBase,
+ SystemId => $self->getSysId,
+ PublicId => $self->getPubId });
+}
+
+######################################################################
+package XML::DOM::Entity;
+######################################################################
+use vars qw{ @ISA @EXPORT_OK %EXPORT_TAGS %HFIELDS };
+
+BEGIN
+{
+ import XML::DOM::Node qw( :DEFAULT :Fields );
+ XML::DOM::def_fields ("NotationName Parameter Value Ndata SysId PubId", "XML::DOM::Node");
+}
+
+use XML::DOM::DOMException;
+use Carp;
+
+sub new
+{
+ my ($class, $doc, $notationName, $value, $sysId, $pubId, $ndata, $isParam, $hidden) = @_;
+
+ croak new XML::DOM::DOMException (INVALID_CHARACTER_ERR,
+ "bad Entity Name [$notationName]")
+ unless XML::DOM::isValidName ($notationName);
+
+ my $self = bless [], $class;
+
+ $self->[_Doc] = $doc;
+ $self->[_NotationName] = $notationName;
+ $self->[_Parameter] = $isParam;
+ $self->[_Value] = $value;
+ $self->[_Ndata] = $ndata;
+ $self->[_SysId] = $sysId;
+ $self->[_PubId] = $pubId;
+ $self->[_Hidden] = $hidden;
+ $self;
+#?? maybe Value should be a Text node
+}
+
+sub getNodeType
+{
+ ENTITY_NODE;
+}
+
+sub getPubId
+{
+ $_[0]->[_PubId];
+}
+
+sub getSysId
+{
+ $_[0]->[_SysId];
+}
+
+# Dom Spec says:
+# For unparsed entities, the name of the notation for the
+# entity. For parsed entities, this is null.
+
+#?? do we have unparsed entities?
+sub getNotationName
+{
+ $_[0]->[_NotationName];
+}
+
+sub getNodeName
+{
+ $_[0]->[_NotationName];
+}
+
+sub cloneNode
+{
+ my $self = shift;
+ $self->[_Doc]->createEntity ($self->[_NotationName], $self->[_Value],
+ $self->[_SysId], $self->[_PubId],
+ $self->[_Ndata], $self->[_Parameter], $self->[_Hidden]);
+}
+
+sub rejectChild
+{
+ return 1;
+#?? if value is split over subnodes, recode this section
+# also add: C => new XML::DOM::NodeList,
+
+ my $t = $_[1];
+
+ return $t == TEXT_NODE
+ || $t == ENTITY_REFERENCE_NODE
+ || $t == PROCESSING_INSTRUCTION_NODE
+ || $t == COMMENT_NODE
+ || $t == CDATA_SECTION_NODE
+ || $t == ELEMENT_NODE;
+}
+
+sub getValue
+{
+ $_[0]->[_Value];
+}
+
+sub isParameterEntity
+{
+ $_[0]->[_Parameter];
+}
+
+sub getNdata
+{
+ $_[0]->[_Ndata];
+}
+
+sub print
+{
+ my ($self, $FILE) = @_;
+
+ my $name = $self->[_NotationName];
+
+ my $par = $self->isParameterEntity ? "% " : "";
+
+ $FILE->print ("[_Value];
+ my $sysId = $self->[_SysId];
+ my $pubId = $self->[_PubId];
+ my $ndata = $self->[_Ndata];
+
+ if (defined $value)
+ {
+#?? Not sure what to do if it contains both single and double quote
+ $value = ($value =~ /\"/) ? "'$value'" : "\"$value\"";
+ $FILE->print (" $value");
+ }
+ if (defined $pubId)
+ {
+ $FILE->print (" PUBLIC \"$pubId\"");
+ }
+ elsif (defined $sysId)
+ {
+ $FILE->print (" SYSTEM");
+ }
+
+ if (defined $sysId)
+ {
+ $FILE->print (" \"$sysId\"");
+ }
+ $FILE->print (" NDATA $ndata") if defined $ndata;
+ $FILE->print (">");
+}
+
+sub to_expat
+{
+ my ($self, $iter) = @_;
+ my $name = ($self->isParameterEntity ? '%' : "") . $self->getNotationName;
+ $iter->Entity ($name,
+ $self->getValue, $self->getSysId, $self->getPubId,
+ $self->getNdata);
+}
+
+sub _to_sax
+{
+ my ($self, $doch, $dtdh, $enth) = @_;
+ my $name = ($self->isParameterEntity ? '%' : "") . $self->getNotationName;
+ $dtdh->entity_decl ( { Name => $name,
+ Value => $self->getValue,
+ SystemId => $self->getSysId,
+ PublicId => $self->getPubId,
+ Notation => $self->getNdata } );
+}
+
+######################################################################
+package XML::DOM::EntityReference;
+######################################################################
+use vars qw{ @ISA @EXPORT_OK %EXPORT_TAGS %HFIELDS };
+
+BEGIN
+{
+ import XML::DOM::Node qw( :DEFAULT :Fields );
+ XML::DOM::def_fields ("EntityName Parameter NoExpand", "XML::DOM::Node");
+}
+
+use XML::DOM::DOMException;
+use Carp;
+
+sub new
+{
+ my ($class, $doc, $name, $parameter, $noExpand) = @_;
+
+ croak new XML::DOM::DOMException (INVALID_CHARACTER_ERR,
+ "bad Entity Name [$name] in EntityReference")
+ unless XML::DOM::isValidName ($name);
+
+ my $self = bless [], $class;
+
+ $self->[_Doc] = $doc;
+ $self->[_EntityName] = $name;
+ $self->[_Parameter] = ($parameter || 0);
+ $self->[_NoExpand] = ($noExpand || 0);
+
+ $self;
+}
+
+sub getNodeType
+{
+ ENTITY_REFERENCE_NODE;
+}
+
+sub getNodeName
+{
+ $_[0]->[_EntityName];
+}
+
+#------------------------------------------------------------
+# Extra method implementations
+
+sub getEntityName
+{
+ $_[0]->[_EntityName];
+}
+
+sub isParameterEntity
+{
+ $_[0]->[_Parameter];
+}
+
+sub getData
+{
+ my $self = shift;
+ my $name = $self->[_EntityName];
+ my $parameter = $self->[_Parameter];
+
+ my $data;
+ if ($self->[_NoExpand]) {
+ $data = "&$name;" if $name;
+ } else {
+ $data = $self->[_Doc]->expandEntity ($name, $parameter);
+ }
+
+ unless (defined $data)
+ {
+#?? this is probably an error, but perhaps requires check to NoExpand
+# will fix it?
+ my $pc = $parameter ? "%" : "&";
+ $data = "$pc$name;";
+ }
+ $data;
+}
+
+sub print
+{
+ my ($self, $FILE) = @_;
+
+ my $name = $self->[_EntityName];
+
+#?? or do we expand the entities?
+
+ my $pc = $self->[_Parameter] ? "%" : "&";
+ $FILE->print ("$pc$name;");
+}
+
+# Dom Spec says:
+# [...] but if such an Entity exists, then
+# the child list of the EntityReference node is the same as that of the
+# Entity node.
+#
+# The resolution of the children of the EntityReference (the replacement
+# value of the referenced Entity) may be lazily evaluated; actions by the
+# user (such as calling the childNodes method on the EntityReference
+# node) are assumed to trigger the evaluation.
+sub getChildNodes
+{
+ my $self = shift;
+ my $entity = $self->[_Doc]->getEntity ($self->[_EntityName]);
+ defined ($entity) ? $entity->getChildNodes : new XML::DOM::NodeList;
+}
+
+sub cloneNode
+{
+ my $self = shift;
+ $self->[_Doc]->createEntityReference ($self->[_EntityName],
+ $self->[_Parameter],
+ $self->[_NoExpand],
+ );
+}
+
+sub to_expat
+{
+ my ($self, $iter) = @_;
+ $iter->EntityRef ($self->getEntityName, $self->isParameterEntity);
+}
+
+sub _to_sax
+{
+ my ($self, $doch, $dtdh, $enth) = @_;
+ my @par = $self->isParameterEntity ? (Parameter => 1) : ();
+#?? not supported by PerlSAX: $self->isParameterEntity
+
+ $doch->entity_reference ( { Name => $self->getEntityName, @par } );
+}
+
+# NOTE: an EntityReference can't really have children, so rejectChild
+# is not reimplemented (i.e. it always returns 0.)
+
+######################################################################
+package XML::DOM::AttDef;
+######################################################################
+use vars qw{ @ISA @EXPORT_OK %EXPORT_TAGS %HFIELDS };
+
+BEGIN
+{
+ import XML::DOM::Node qw( :DEFAULT :Fields );
+ XML::DOM::def_fields ("Name Type Fixed Default Required Implied Quote", "XML::DOM::Node");
+}
+
+use XML::DOM::DOMException;
+use Carp;
+
+#------------------------------------------------------------
+# Extra method implementations
+
+# AttDef is not part of DOM Spec
+sub new
+{
+ my ($class, $doc, $name, $attrType, $default, $fixed, $hidden) = @_;
+
+ croak new XML::DOM::DOMException (INVALID_CHARACTER_ERR,
+ "bad Attr name in AttDef [$name]")
+ unless XML::DOM::isValidName ($name);
+
+ my $self = bless [], $class;
+
+ $self->[_Doc] = $doc;
+ $self->[_Name] = $name;
+ $self->[_Type] = $attrType;
+
+ if (defined $default)
+ {
+ if ($default eq "#REQUIRED")
+ {
+ $self->[_Required] = 1;
+ }
+ elsif ($default eq "#IMPLIED")
+ {
+ $self->[_Implied] = 1;
+ }
+ else
+ {
+ # strip off quotes - see Attlist handler in XML::Parser
+ # this regexp doesn't work with 5.8.0 unicode
+# $default =~ m#^(["'])(.*)['"]$#;
+# $self->[_Quote] = $1; # keep track of the quote character
+# $self->[_Default] = $self->setDefault ($2);
+
+ # workaround for 5.8.0 unicode
+ $default =~ s!^(["'])!!;
+ $self->[_Quote] = $1;
+ $default =~ s!(["'])$!!;
+ $self->[_Default] = $self->setDefault ($default);
+
+#?? should default value be decoded - what if it contains e.g. "&"
+ }
+ }
+ $self->[_Fixed] = $fixed if defined $fixed;
+ $self->[_Hidden] = $hidden if defined $hidden;
+
+ $self;
+}
+
+sub getNodeType
+{
+ ATT_DEF_NODE;
+}
+
+sub getName
+{
+ $_[0]->[_Name];
+}
+
+# So it can be added to a NamedNodeMap
+sub getNodeName
+{
+ $_[0]->[_Name];
+}
+
+sub getType
+{
+ $_[0]->[_Type];
+}
+
+sub setType
+{
+ $_[0]->[_Type] = $_[1];
+}
+
+sub getDefault
+{
+ $_[0]->[_Default];
+}
+
+sub setDefault
+{
+ my ($self, $value) = @_;
+
+ # specified=0, it's the default !
+ my $attr = $self->[_Doc]->createAttribute ($self->[_Name], undef, 0);
+ $attr->[_ReadOnly] = 1;
+
+#?? this should be split over Text and EntityReference nodes, just like other
+# Attr nodes - just expand the text for now
+ $value = $self->expandEntityRefs ($value);
+ $attr->addText ($value);
+#?? reimplement in NoExpand mode!
+
+ $attr;
+}
+
+sub isFixed
+{
+ $_[0]->[_Fixed] || 0;
+}
+
+sub isRequired
+{
+ $_[0]->[_Required] || 0;
+}
+
+sub isImplied
+{
+ $_[0]->[_Implied] || 0;
+}
+
+sub print
+{
+ my ($self, $FILE) = @_;
+
+ my $name = $self->[_Name];
+ my $type = $self->[_Type];
+ my $fixed = $self->[_Fixed];
+ my $default = $self->[_Default];
+
+# $FILE->print ("$name $type");
+ # replaced line above with the two lines below
+ # seems to be a bug in perl 5.6.0 that causes
+ # test 3 of dom_jp_attr.t to fail?
+ $FILE->print ($name);
+ $FILE->print (" $type");
+
+ $FILE->print (" #FIXED") if defined $fixed;
+
+ if ($self->[_Required])
+ {
+ $FILE->print (" #REQUIRED");
+ }
+ elsif ($self->[_Implied])
+ {
+ $FILE->print (" #IMPLIED");
+ }
+ elsif (defined ($default))
+ {
+ my $quote = $self->[_Quote];
+ $FILE->print (" $quote");
+ for my $kid (@{$default->[_C]})
+ {
+ $kid->print ($FILE);
+ }
+ $FILE->print ($quote);
+ }
+}
+
+sub getDefaultString
+{
+ my $self = shift;
+ my $default;
+
+ if ($self->[_Required])
+ {
+ return "#REQUIRED";
+ }
+ elsif ($self->[_Implied])
+ {
+ return "#IMPLIED";
+ }
+ elsif (defined ($default = $self->[_Default]))
+ {
+ my $quote = $self->[_Quote];
+ $default = $default->toString;
+ return "$quote$default$quote";
+ }
+ undef;
+}
+
+sub cloneNode
+{
+ my $self = shift;
+ my $node = new XML::DOM::AttDef ($self->[_Doc], $self->[_Name], $self->[_Type],
+ undef, $self->[_Fixed]);
+
+ $node->[_Required] = 1 if $self->[_Required];
+ $node->[_Implied] = 1 if $self->[_Implied];
+ $node->[_Fixed] = $self->[_Fixed] if defined $self->[_Fixed];
+ $node->[_Hidden] = $self->[_Hidden] if defined $self->[_Hidden];
+
+ if (defined $self->[_Default])
+ {
+ $node->[_Default] = $self->[_Default]->cloneNode(1);
+ }
+ $node->[_Quote] = $self->[_Quote];
+
+ $node;
+}
+
+sub setOwnerDocument
+{
+ my ($self, $doc) = @_;
+ $self->SUPER::setOwnerDocument ($doc);
+
+ if (defined $self->[_Default])
+ {
+ $self->[_Default]->setOwnerDocument ($doc);
+ }
+}
+
+######################################################################
+package XML::DOM::AttlistDecl;
+######################################################################
+use vars qw{ @ISA @EXPORT_OK %EXPORT_TAGS %HFIELDS };
+
+BEGIN
+{
+ import XML::DOM::Node qw( :DEFAULT :Fields );
+ import XML::DOM::AttDef qw{ :Fields };
+
+ XML::DOM::def_fields ("ElementName", "XML::DOM::Node");
+}
+
+use XML::DOM::DOMException;
+use Carp;
+
+#------------------------------------------------------------
+# Extra method implementations
+
+# AttlistDecl is not part of the DOM Spec
+sub new
+{
+ my ($class, $doc, $name) = @_;
+
+ croak new XML::DOM::DOMException (INVALID_CHARACTER_ERR,
+ "bad Element TagName [$name] in AttlistDecl")
+ unless XML::DOM::isValidName ($name);
+
+ my $self = bless [], $class;
+
+ $self->[_Doc] = $doc;
+ $self->[_C] = new XML::DOM::NodeList;
+ $self->[_ReadOnly] = 1;
+ $self->[_ElementName] = $name;
+
+ $self->[_A] = new XML::DOM::NamedNodeMap (Doc => $doc,
+ ReadOnly => 1,
+ Parent => $self);
+
+ $self;
+}
+
+sub getNodeType
+{
+ ATTLIST_DECL_NODE;
+}
+
+sub getName
+{
+ $_[0]->[_ElementName];
+}
+
+sub getNodeName
+{
+ $_[0]->[_ElementName];
+}
+
+sub getAttDef
+{
+ my ($self, $attrName) = @_;
+ $self->[_A]->getNamedItem ($attrName);
+}
+
+sub addAttDef
+{
+ my ($self, $attrName, $type, $default, $fixed, $hidden) = @_;
+ my $node = $self->getAttDef ($attrName);
+
+ if (defined $node)
+ {
+ # data will be ignored if already defined
+ my $elemName = $self->getName;
+ XML::DOM::warning ("multiple definitions of attribute $attrName for element $elemName, only first one is recognized");
+ }
+ else
+ {
+ $node = new XML::DOM::AttDef ($self->[_Doc], $attrName, $type,
+ $default, $fixed, $hidden);
+ $self->[_A]->setNamedItem ($node);
+ }
+ $node;
+}
+
+sub getDefaultAttrValue
+{
+ my ($self, $attr) = @_;
+ my $attrNode = $self->getAttDef ($attr);
+ (defined $attrNode) ? $attrNode->getDefault : undef;
+}
+
+sub cloneNode
+{
+ my ($self, $deep) = @_;
+ my $node = $self->[_Doc]->createAttlistDecl ($self->[_ElementName]);
+
+ $node->[_A] = $self->[_A]->cloneNode ($deep);
+ $node;
+}
+
+sub setOwnerDocument
+{
+ my ($self, $doc) = @_;
+ $self->SUPER::setOwnerDocument ($doc);
+
+ $self->[_A]->setOwnerDocument ($doc);
+}
+
+sub print
+{
+ my ($self, $FILE) = @_;
+
+ my $name = $self->getName;
+ my @attlist = @{$self->[_A]->getValues};
+
+ my $hidden = 1;
+ for my $att (@attlist)
+ {
+ unless ($att->[_Hidden])
+ {
+ $hidden = 0;
+ last;
+ }
+ }
+
+ unless ($hidden)
+ {
+ $FILE->print ("print (" ");
+ $attlist[0]->print ($FILE);
+ }
+ else
+ {
+ for my $attr (@attlist)
+ {
+ next if $attr->[_Hidden];
+
+ $FILE->print ("\x0A ");
+ $attr->print ($FILE);
+ }
+ }
+ $FILE->print (">");
+ }
+}
+
+sub to_expat
+{
+ my ($self, $iter) = @_;
+ my $tag = $self->getName;
+ for my $a ($self->[_A]->getValues)
+ {
+ my $default = $a->isImplied ? '#IMPLIED' :
+ ($a->isRequired ? '#REQUIRED' :
+ ($a->[_Quote] . $a->getDefault->getValue . $a->[_Quote]));
+
+ $iter->Attlist ($tag, $a->getName, $a->getType, $default, $a->isFixed);
+ }
+}
+
+sub _to_sax
+{
+ my ($self, $doch, $dtdh, $enth) = @_;
+ my $tag = $self->getName;
+ for my $a ($self->[_A]->getValues)
+ {
+ my $default = $a->isImplied ? '#IMPLIED' :
+ ($a->isRequired ? '#REQUIRED' :
+ ($a->[_Quote] . $a->getDefault->getValue . $a->[_Quote]));
+
+ $dtdh->attlist_decl ({ ElementName => $tag,
+ AttributeName => $a->getName,
+ Type => $a->[_Type],
+ Default => $default,
+ Fixed => $a->isFixed });
+ }
+}
+
+######################################################################
+package XML::DOM::ElementDecl;
+######################################################################
+use vars qw{ @ISA @EXPORT_OK %EXPORT_TAGS %HFIELDS };
+
+BEGIN
+{
+ import XML::DOM::Node qw( :DEFAULT :Fields );
+ XML::DOM::def_fields ("Name Model", "XML::DOM::Node");
+}
+
+use XML::DOM::DOMException;
+use Carp;
+
+
+#------------------------------------------------------------
+# Extra method implementations
+
+# ElementDecl is not part of the DOM Spec
+sub new
+{
+ my ($class, $doc, $name, $model, $hidden) = @_;
+
+ croak new XML::DOM::DOMException (INVALID_CHARACTER_ERR,
+ "bad Element TagName [$name] in ElementDecl")
+ unless XML::DOM::isValidName ($name);
+
+ my $self = bless [], $class;
+
+ $self->[_Doc] = $doc;
+ $self->[_Name] = $name;
+ $self->[_ReadOnly] = 1;
+ $self->[_Model] = $model;
+ $self->[_Hidden] = $hidden;
+ $self;
+}
+
+sub getNodeType
+{
+ ELEMENT_DECL_NODE;
+}
+
+sub getName
+{
+ $_[0]->[_Name];
+}
+
+sub getNodeName
+{
+ $_[0]->[_Name];
+}
+
+sub getModel
+{
+ $_[0]->[_Model];
+}
+
+sub setModel
+{
+ my ($self, $model) = @_;
+
+ $self->[_Model] = $model;
+}
+
+sub print
+{
+ my ($self, $FILE) = @_;
+
+ my $name = $self->[_Name];
+ my $model = $self->[_Model];
+
+ $FILE->print ("")
+ unless $self->[_Hidden];
+}
+
+sub cloneNode
+{
+ my $self = shift;
+ $self->[_Doc]->createElementDecl ($self->[_Name], $self->[_Model],
+ $self->[_Hidden]);
+}
+
+sub to_expat
+{
+#?? add support for Hidden?? (allover, also in _to_sax!!)
+
+ my ($self, $iter) = @_;
+ $iter->Element ($self->getName, $self->getModel);
+}
+
+sub _to_sax
+{
+ my ($self, $doch, $dtdh, $enth) = @_;
+ $dtdh->element_decl ( { Name => $self->getName,
+ Model => $self->getModel } );
+}
+
+######################################################################
+package XML::DOM::Element;
+######################################################################
+use vars qw{ @ISA @EXPORT_OK %EXPORT_TAGS %HFIELDS };
+
+BEGIN
+{
+ import XML::DOM::Node qw( :DEFAULT :Fields );
+ XML::DOM::def_fields ("TagName", "XML::DOM::Node");
+}
+
+use XML::DOM::DOMException;
+use XML::DOM::NamedNodeMap;
+use Carp;
+
+sub new
+{
+ my ($class, $doc, $tagName) = @_;
+
+ if ($XML::DOM::SafeMode)
+ {
+ croak new XML::DOM::DOMException (INVALID_CHARACTER_ERR,
+ "bad Element TagName [$tagName]")
+ unless XML::DOM::isValidName ($tagName);
+ }
+
+ my $self = bless [], $class;
+
+ $self->[_Doc] = $doc;
+ $self->[_C] = new XML::DOM::NodeList;
+ $self->[_TagName] = $tagName;
+
+# Now we're creating the NamedNodeMap only when needed (REC 2313 => 1147)
+# $self->[_A] = new XML::DOM::NamedNodeMap (Doc => $doc,
+# Parent => $self);
+
+ $self;
+}
+
+sub getNodeType
+{
+ ELEMENT_NODE;
+}
+
+sub getTagName
+{
+ $_[0]->[_TagName];
+}
+
+sub getNodeName
+{
+ $_[0]->[_TagName];
+}
+
+sub getAttributeNode
+{
+ my ($self, $name) = @_;
+ return undef unless defined $self->[_A];
+
+ $self->getAttributes->{$name};
+}
+
+sub getAttribute
+{
+ my ($self, $name) = @_;
+ my $attr = $self->getAttributeNode ($name);
+ (defined $attr) ? $attr->getValue : "";
+}
+
+sub setAttribute
+{
+ my ($self, $name, $val) = @_;
+
+ croak new XML::DOM::DOMException (INVALID_CHARACTER_ERR,
+ "bad Attr Name [$name]")
+ unless XML::DOM::isValidName ($name);
+
+ croak new XML::DOM::DOMException (NO_MODIFICATION_ALLOWED_ERR,
+ "node is ReadOnly")
+ if $self->isReadOnly;
+
+ my $node = $self->getAttributes->{$name};
+ if (defined $node)
+ {
+ $node->setValue ($val);
+ }
+ else
+ {
+ $node = $self->[_Doc]->createAttribute ($name, $val);
+ $self->[_A]->setNamedItem ($node);
+ }
+}
+
+sub setAttributeNode
+{
+ my ($self, $node) = @_;
+ my $attr = $self->getAttributes;
+ my $name = $node->getNodeName;
+
+ # REC 1147
+ if ($XML::DOM::SafeMode)
+ {
+ croak new XML::DOM::DOMException (WRONG_DOCUMENT_ERR,
+ "nodes belong to different documents")
+ if $self->[_Doc] != $node->[_Doc];
+
+ croak new XML::DOM::DOMException (NO_MODIFICATION_ALLOWED_ERR,
+ "node is ReadOnly")
+ if $self->isReadOnly;
+
+ my $attrParent = $node->[_UsedIn];
+ croak new XML::DOM::DOMException (INUSE_ATTRIBUTE_ERR,
+ "Attr is already used by another Element")
+ if (defined ($attrParent) && $attrParent != $attr);
+ }
+
+ my $other = $attr->{$name};
+ $attr->removeNamedItem ($name) if defined $other;
+
+ $attr->setNamedItem ($node);
+
+ $other;
+}
+
+sub removeAttributeNode
+{
+ my ($self, $node) = @_;
+
+ croak new XML::DOM::DOMException (NO_MODIFICATION_ALLOWED_ERR,
+ "node is ReadOnly")
+ if $self->isReadOnly;
+
+ my $attr = $self->[_A];
+ unless (defined $attr)
+ {
+ croak new XML::DOM::DOMException (NOT_FOUND_ERR);
+ return undef;
+ }
+
+ my $name = $node->getNodeName;
+ my $attrNode = $attr->getNamedItem ($name);
+
+#?? should it croak if it's the default value?
+ croak new XML::DOM::DOMException (NOT_FOUND_ERR)
+ unless $node == $attrNode;
+
+ # Not removing anything if it's the default value already
+ return undef unless $node->isSpecified;
+
+ $attr->removeNamedItem ($name);
+
+ # Substitute with default value if it's defined
+ my $default = $self->getDefaultAttrValue ($name);
+ if (defined $default)
+ {
+ local $XML::DOM::IgnoreReadOnly = 1;
+
+ $default = $default->cloneNode (1);
+ $attr->setNamedItem ($default);
+ }
+ $node;
+}
+
+sub removeAttribute
+{
+ my ($self, $name) = @_;
+ my $attr = $self->[_A];
+ unless (defined $attr)
+ {
+ croak new XML::DOM::DOMException (NOT_FOUND_ERR);
+ return;
+ }
+
+ my $node = $attr->getNamedItem ($name);
+ if (defined $node)
+ {
+#?? could use dispose() to remove circular references for gc, but what if
+#?? somebody is referencing it?
+ $self->removeAttributeNode ($node);
+ }
+}
+
+sub cloneNode
+{
+ my ($self, $deep) = @_;
+ my $node = $self->[_Doc]->createElement ($self->getTagName);
+
+ # Always clone the Attr nodes, even if $deep == 0
+ if (defined $self->[_A])
+ {
+ $node->[_A] = $self->[_A]->cloneNode (1); # deep=1
+ $node->[_A]->setParentNode ($node);
+ }
+
+ $node->cloneChildren ($self, $deep);
+ $node;
+}
+
+sub getAttributes
+{
+ $_[0]->[_A] ||= XML::DOM::NamedNodeMap->new (Doc => $_[0]->[_Doc],
+ Parent => $_[0]);
+}
+
+#------------------------------------------------------------
+# Extra method implementations
+
+# Added for convenience
+sub setTagName
+{
+ my ($self, $tagName) = @_;
+
+ croak new XML::DOM::DOMException (INVALID_CHARACTER_ERR,
+ "bad Element TagName [$tagName]")
+ unless XML::DOM::isValidName ($tagName);
+
+ $self->[_TagName] = $tagName;
+}
+
+sub isReadOnly
+{
+ 0;
+}
+
+# Added for optimization.
+sub isElementNode
+{
+ 1;
+}
+
+sub rejectChild
+{
+ my $t = $_[1]->getNodeType;
+
+ $t != TEXT_NODE
+ && $t != ENTITY_REFERENCE_NODE
+ && $t != PROCESSING_INSTRUCTION_NODE
+ && $t != COMMENT_NODE
+ && $t != CDATA_SECTION_NODE
+ && $t != ELEMENT_NODE;
+}
+
+sub getDefaultAttrValue
+{
+ my ($self, $attr) = @_;
+ $self->[_Doc]->getDefaultAttrValue ($self->[_TagName], $attr);
+}
+
+sub dispose
+{
+ my $self = shift;
+
+ $self->[_A]->dispose if defined $self->[_A];
+ $self->SUPER::dispose;
+}
+
+sub setOwnerDocument
+{
+ my ($self, $doc) = @_;
+ $self->SUPER::setOwnerDocument ($doc);
+
+ $self->[_A]->setOwnerDocument ($doc) if defined $self->[_A];
+}
+
+sub print
+{
+ my ($self, $FILE) = @_;
+
+ my $name = $self->[_TagName];
+
+ $FILE->print ("<$name");
+
+ if (defined $self->[_A])
+ {
+ for my $att (@{$self->[_A]->getValues})
+ {
+ # skip un-specified (default) Attr nodes
+ if ($att->isSpecified)
+ {
+ $FILE->print (" ");
+ $att->print ($FILE);
+ }
+ }
+ }
+
+ my @kids = @{$self->[_C]};
+ if (@kids > 0)
+ {
+ $FILE->print (">");
+ for my $kid (@kids)
+ {
+ $kid->print ($FILE);
+ }
+ $FILE->print ("");
+ }
+ else
+ {
+ my $style = &$XML::DOM::TagStyle ($name, $self);
+ if ($style == 0)
+ {
+ $FILE->print ("/>");
+ }
+ elsif ($style == 1)
+ {
+ $FILE->print (">");
+ }
+ else
+ {
+ $FILE->print (" />");
+ }
+ }
+}
+
+sub check
+{
+ my ($self, $checker) = @_;
+ die "Usage: \$xml_dom_elem->check (\$checker)" unless $checker;
+
+ $checker->InitDomElem;
+ $self->to_expat ($checker);
+ $checker->FinalDomElem;
+}
+
+sub to_expat
+{
+ my ($self, $iter) = @_;
+
+ my $tag = $self->getTagName;
+ $iter->Start ($tag);
+
+ if (defined $self->[_A])
+ {
+ for my $attr ($self->[_A]->getValues)
+ {
+ $iter->Attr ($tag, $attr->getName, $attr->getValue, $attr->isSpecified);
+ }
+ }
+
+ $iter->EndAttr;
+
+ for my $kid ($self->getChildNodes)
+ {
+ $kid->to_expat ($iter);
+ }
+
+ $iter->End;
+}
+
+sub _to_sax
+{
+ my ($self, $doch, $dtdh, $enth) = @_;
+
+ my $tag = $self->getTagName;
+
+ my @attr = ();
+ my $attrOrder;
+ my $attrDefaulted;
+
+ if (defined $self->[_A])
+ {
+ my @spec = (); # names of specified attributes
+ my @unspec = (); # names of defaulted attributes
+
+ for my $attr ($self->[_A]->getValues)
+ {
+ my $attrName = $attr->getName;
+ push @attr, $attrName, $attr->getValue;
+ if ($attr->isSpecified)
+ {
+ push @spec, $attrName;
+ }
+ else
+ {
+ push @unspec, $attrName;
+ }
+ }
+ $attrOrder = [ @spec, @unspec ];
+ $attrDefaulted = @spec;
+ }
+ $doch->start_element (defined $attrOrder ?
+ { Name => $tag,
+ Attributes => { @attr },
+ AttributeOrder => $attrOrder,
+ Defaulted => $attrDefaulted
+ } :
+ { Name => $tag,
+ Attributes => { @attr }
+ }
+ );
+
+ for my $kid ($self->getChildNodes)
+ {
+ $kid->_to_sax ($doch, $dtdh, $enth);
+ }
+
+ $doch->end_element ( { Name => $tag } );
+}
+
+######################################################################
+package XML::DOM::CharacterData;
+######################################################################
+use vars qw{ @ISA @EXPORT_OK %EXPORT_TAGS %HFIELDS };
+
+BEGIN
+{
+ import XML::DOM::Node qw( :DEFAULT :Fields );
+ XML::DOM::def_fields ("Data", "XML::DOM::Node");
+}
+
+use XML::DOM::DOMException;
+use Carp;
+
+
+#
+# CharacterData nodes should never be created directly, only subclassed!
+#
+sub new
+{
+ my ($class, $doc, $data) = @_;
+ my $self = bless [], $class;
+
+ $self->[_Doc] = $doc;
+ $self->[_Data] = $data;
+ $self;
+}
+
+sub appendData
+{
+ my ($self, $data) = @_;
+
+ if ($XML::DOM::SafeMode)
+ {
+ croak new XML::DOM::DOMException (NO_MODIFICATION_ALLOWED_ERR,
+ "node is ReadOnly")
+ if $self->isReadOnly;
+ }
+ $self->[_Data] .= $data;
+}
+
+sub deleteData
+{
+ my ($self, $offset, $count) = @_;
+
+ croak new XML::DOM::DOMException (INDEX_SIZE_ERR,
+ "bad offset [$offset]")
+ if ($offset < 0 || $offset >= length ($self->[_Data]));
+#?? DOM Spec says >, but >= makes more sense!
+
+ croak new XML::DOM::DOMException (INDEX_SIZE_ERR,
+ "negative count [$count]")
+ if $count < 0;
+
+ croak new XML::DOM::DOMException (NO_MODIFICATION_ALLOWED_ERR,
+ "node is ReadOnly")
+ if $self->isReadOnly;
+
+ substr ($self->[_Data], $offset, $count) = "";
+}
+
+sub getData
+{
+ $_[0]->[_Data];
+}
+
+sub getLength
+{
+ length $_[0]->[_Data];
+}
+
+sub insertData
+{
+ my ($self, $offset, $data) = @_;
+
+ croak new XML::DOM::DOMException (INDEX_SIZE_ERR,
+ "bad offset [$offset]")
+ if ($offset < 0 || $offset >= length ($self->[_Data]));
+#?? DOM Spec says >, but >= makes more sense!
+
+ croak new XML::DOM::DOMException (NO_MODIFICATION_ALLOWED_ERR,
+ "node is ReadOnly")
+ if $self->isReadOnly;
+
+ substr ($self->[_Data], $offset, 0) = $data;
+}
+
+sub replaceData
+{
+ my ($self, $offset, $count, $data) = @_;
+
+ croak new XML::DOM::DOMException (INDEX_SIZE_ERR,
+ "bad offset [$offset]")
+ if ($offset < 0 || $offset >= length ($self->[_Data]));
+#?? DOM Spec says >, but >= makes more sense!
+
+ croak new XML::DOM::DOMException (INDEX_SIZE_ERR,
+ "negative count [$count]")
+ if $count < 0;
+
+ croak new XML::DOM::DOMException (NO_MODIFICATION_ALLOWED_ERR,
+ "node is ReadOnly")
+ if $self->isReadOnly;
+
+ substr ($self->[_Data], $offset, $count) = $data;
+}
+
+sub setData
+{
+ my ($self, $data) = @_;
+
+ croak new XML::DOM::DOMException (NO_MODIFICATION_ALLOWED_ERR,
+ "node is ReadOnly")
+ if $self->isReadOnly;
+
+ $self->[_Data] = $data;
+}
+
+sub substringData
+{
+ my ($self, $offset, $count) = @_;
+ my $data = $self->[_Data];
+
+ croak new XML::DOM::DOMException (INDEX_SIZE_ERR,
+ "bad offset [$offset]")
+ if ($offset < 0 || $offset >= length ($data));
+#?? DOM Spec says >, but >= makes more sense!
+
+ croak new XML::DOM::DOMException (INDEX_SIZE_ERR,
+ "negative count [$count]")
+ if $count < 0;
+
+ substr ($data, $offset, $count);
+}
+
+sub getNodeValue
+{
+ $_[0]->getData;
+}
+
+sub setNodeValue
+{
+ $_[0]->setData ($_[1]);
+}
+
+######################################################################
+package XML::DOM::CDATASection;
+######################################################################
+use vars qw{ @ISA @EXPORT_OK %EXPORT_TAGS %HFIELDS };
+
+BEGIN
+{
+ import XML::DOM::CharacterData qw( :DEFAULT :Fields );
+ import XML::DOM::Node qw( :DEFAULT :Fields );
+ XML::DOM::def_fields ("", "XML::DOM::CharacterData");
+}
+
+use XML::DOM::DOMException;
+
+sub getNodeName
+{
+ "#cdata-section";
+}
+
+sub getNodeType
+{
+ CDATA_SECTION_NODE;
+}
+
+sub cloneNode
+{
+ my $self = shift;
+ $self->[_Doc]->createCDATASection ($self->getData);
+}
+
+#------------------------------------------------------------
+# Extra method implementations
+
+sub isReadOnly
+{
+ 0;
+}
+
+sub print
+{
+ my ($self, $FILE) = @_;
+ $FILE->print ("print (XML::DOM::encodeCDATA ($self->getData));
+ $FILE->print ("]]>");
+}
+
+sub to_expat
+{
+ my ($self, $iter) = @_;
+ $iter->CData ($self->getData);
+}
+
+sub _to_sax
+{
+ my ($self, $doch, $dtdh, $enth) = @_;
+ $doch->start_cdata;
+ $doch->characters ( { Data => $self->getData } );
+ $doch->end_cdata;
+}
+
+######################################################################
+package XML::DOM::Comment;
+######################################################################
+use vars qw{ @ISA @EXPORT_OK %EXPORT_TAGS %HFIELDS };
+
+BEGIN
+{
+ import XML::DOM::CharacterData qw( :DEFAULT :Fields );
+ import XML::DOM::Node qw( :DEFAULT :Fields );
+ XML::DOM::def_fields ("", "XML::DOM::CharacterData");
+}
+
+use XML::DOM::DOMException;
+use Carp;
+
+#?? setData - could check comment for double minus
+
+sub getNodeType
+{
+ COMMENT_NODE;
+}
+
+sub getNodeName
+{
+ "#comment";
+}
+
+sub cloneNode
+{
+ my $self = shift;
+ $self->[_Doc]->createComment ($self->getData);
+}
+
+#------------------------------------------------------------
+# Extra method implementations
+
+sub isReadOnly
+{
+ return 0 if $XML::DOM::IgnoreReadOnly;
+
+ my $pa = $_[0]->[_Parent];
+ defined ($pa) ? $pa->isReadOnly : 0;
+}
+
+sub print
+{
+ my ($self, $FILE) = @_;
+ my $comment = XML::DOM::encodeComment ($self->[_Data]);
+
+ $FILE->print ("");
+}
+
+sub to_expat
+{
+ my ($self, $iter) = @_;
+ $iter->Comment ($self->getData);
+}
+
+sub _to_sax
+{
+ my ($self, $doch, $dtdh, $enth) = @_;
+ $doch->comment ( { Data => $self->getData });
+}
+
+######################################################################
+package XML::DOM::Text;
+######################################################################
+use vars qw{ @ISA @EXPORT_OK %EXPORT_TAGS %HFIELDS };
+
+BEGIN
+{
+ import XML::DOM::CharacterData qw( :DEFAULT :Fields );
+ import XML::DOM::Node qw( :DEFAULT :Fields );
+ XML::DOM::def_fields ("", "XML::DOM::CharacterData");
+}
+
+use XML::DOM::DOMException;
+use Carp;
+
+sub getNodeType
+{
+ TEXT_NODE;
+}
+
+sub getNodeName
+{
+ "#text";
+}
+
+sub splitText
+{
+ my ($self, $offset) = @_;
+
+ my $data = $self->getData;
+ croak new XML::DOM::DOMException (INDEX_SIZE_ERR,
+ "bad offset [$offset]")
+ if ($offset < 0 || $offset >= length ($data));
+#?? DOM Spec says >, but >= makes more sense!
+
+ croak new XML::DOM::DOMException (NO_MODIFICATION_ALLOWED_ERR,
+ "node is ReadOnly")
+ if $self->isReadOnly;
+
+ my $rest = substr ($data, $offset);
+
+ $self->setData (substr ($data, 0, $offset));
+ my $node = $self->[_Doc]->createTextNode ($rest);
+
+ # insert new node after this node
+ $self->[_Parent]->insertBefore ($node, $self->getNextSibling);
+
+ $node;
+}
+
+sub cloneNode
+{
+ my $self = shift;
+ $self->[_Doc]->createTextNode ($self->getData);
+}
+
+#------------------------------------------------------------
+# Extra method implementations
+
+sub isReadOnly
+{
+ 0;
+}
+
+sub print
+{
+ my ($self, $FILE) = @_;
+ $FILE->print (XML::DOM::encodeText ($self->getData, '<&>"'));
+}
+
+sub isTextNode
+{
+ 1;
+}
+
+sub to_expat
+{
+ my ($self, $iter) = @_;
+ $iter->Char ($self->getData);
+}
+
+sub _to_sax
+{
+ my ($self, $doch, $dtdh, $enth) = @_;
+ $doch->characters ( { Data => $self->getData } );
+}
+
+######################################################################
+package XML::DOM::XMLDecl;
+######################################################################
+use vars qw{ @ISA @EXPORT_OK %EXPORT_TAGS %HFIELDS };
+
+BEGIN
+{
+ import XML::DOM::Node qw( :DEFAULT :Fields );
+ XML::DOM::def_fields ("Version Encoding Standalone", "XML::DOM::Node");
+}
+
+use XML::DOM::DOMException;
+
+
+#------------------------------------------------------------
+# Extra method implementations
+
+# XMLDecl is not part of the DOM Spec
+sub new
+{
+ my ($class, $doc, $version, $encoding, $standalone) = @_;
+
+ my $self = bless [], $class;
+
+ $self->[_Doc] = $doc;
+ $self->[_Version] = $version if defined $version;
+ $self->[_Encoding] = $encoding if defined $encoding;
+ $self->[_Standalone] = $standalone if defined $standalone;
+
+ $self;
+}
+
+sub setVersion
+{
+ if (defined $_[1])
+ {
+ $_[0]->[_Version] = $_[1];
+ }
+ else
+ {
+ undef $_[0]->[_Version]; # was delete
+ }
+}
+
+sub getVersion
+{
+ $_[0]->[_Version];
+}
+
+sub setEncoding
+{
+ if (defined $_[1])
+ {
+ $_[0]->[_Encoding] = $_[1];
+ }
+ else
+ {
+ undef $_[0]->[_Encoding]; # was delete
+ }
+}
+
+sub getEncoding
+{
+ $_[0]->[_Encoding];
+}
+
+sub setStandalone
+{
+ if (defined $_[1])
+ {
+ $_[0]->[_Standalone] = $_[1];
+ }
+ else
+ {
+ undef $_[0]->[_Standalone]; # was delete
+ }
+}
+
+sub getStandalone
+{
+ $_[0]->[_Standalone];
+}
+
+sub getNodeType
+{
+ XML_DECL_NODE;
+}
+
+sub cloneNode
+{
+ my $self = shift;
+
+ new XML::DOM::XMLDecl ($self->[_Doc], $self->[_Version],
+ $self->[_Encoding], $self->[_Standalone]);
+}
+
+sub print
+{
+ my ($self, $FILE) = @_;
+
+ my $version = $self->[_Version];
+ my $encoding = $self->[_Encoding];
+ my $standalone = $self->[_Standalone];
+ $standalone = ($standalone ? "yes" : "no") if defined $standalone;
+
+ $FILE->print ("print (" version=\"$version\"") if defined $version;
+ $FILE->print (" encoding=\"$encoding\"") if defined $encoding;
+ $FILE->print (" standalone=\"$standalone\"") if defined $standalone;
+ $FILE->print ("?>");
+}
+
+sub to_expat
+{
+ my ($self, $iter) = @_;
+ $iter->XMLDecl ($self->getVersion, $self->getEncoding, $self->getStandalone);
+}
+
+sub _to_sax
+{
+ my ($self, $doch, $dtdh, $enth) = @_;
+ $dtdh->xml_decl ( { Version => $self->getVersion,
+ Encoding => $self->getEncoding,
+ Standalone => $self->getStandalone } );
+}
+
+######################################################################
+package XML::DOM::DocumentFragment;
+######################################################################
+use vars qw{ @ISA @EXPORT_OK %EXPORT_TAGS %HFIELDS };
+
+BEGIN
+{
+ import XML::DOM::Node qw( :DEFAULT :Fields );
+ XML::DOM::def_fields ("", "XML::DOM::Node");
+}
+
+use XML::DOM::DOMException;
+
+sub new
+{
+ my ($class, $doc) = @_;
+ my $self = bless [], $class;
+
+ $self->[_Doc] = $doc;
+ $self->[_C] = new XML::DOM::NodeList;
+ $self;
+}
+
+sub getNodeType
+{
+ DOCUMENT_FRAGMENT_NODE;
+}
+
+sub getNodeName
+{
+ "#document-fragment";
+}
+
+sub cloneNode
+{
+ my ($self, $deep) = @_;
+ my $node = $self->[_Doc]->createDocumentFragment;
+
+ $node->cloneChildren ($self, $deep);
+ $node;
+}
+
+#------------------------------------------------------------
+# Extra method implementations
+
+sub isReadOnly
+{
+ 0;
+}
+
+sub print
+{
+ my ($self, $FILE) = @_;
+
+ for my $node (@{$self->[_C]})
+ {
+ $node->print ($FILE);
+ }
+}
+
+sub rejectChild
+{
+ my $t = $_[1]->getNodeType;
+
+ $t != TEXT_NODE
+ && $t != ENTITY_REFERENCE_NODE
+ && $t != PROCESSING_INSTRUCTION_NODE
+ && $t != COMMENT_NODE
+ && $t != CDATA_SECTION_NODE
+ && $t != ELEMENT_NODE;
+}
+
+sub isDocumentFragmentNode
+{
+ 1;
+}
+
+######################################################################
+package XML::DOM::DocumentType; # forward declaration
+######################################################################
+
+######################################################################
+package XML::DOM::Document;
+######################################################################
+use vars qw{ @ISA @EXPORT_OK %EXPORT_TAGS %HFIELDS };
+
+BEGIN
+{
+ import XML::DOM::Node qw( :DEFAULT :Fields );
+ XML::DOM::def_fields ("Doctype XmlDecl", "XML::DOM::Node");
+}
+
+use Carp;
+use XML::DOM::NodeList;
+use XML::DOM::DOMException;
+
+sub new
+{
+ my ($class) = @_;
+ my $self = bless [], $class;
+
+ # keep Doc pointer, even though getOwnerDocument returns undef
+ $self->[_Doc] = $self;
+ $self->[_C] = new XML::DOM::NodeList;
+ $self;
+}
+
+sub getNodeType
+{
+ DOCUMENT_NODE;
+}
+
+sub getNodeName
+{
+ "#document";
+}
+
+#?? not sure about keeping a fixed order of these nodes....
+sub getDoctype
+{
+ $_[0]->[_Doctype];
+}
+
+sub getDocumentElement
+{
+ my ($self) = @_;
+ for my $kid (@{$self->[_C]})
+ {
+ return $kid if $kid->isElementNode;
+ }
+ undef;
+}
+
+sub getOwnerDocument
+{
+ undef;
+}
+
+sub getImplementation
+{
+ $XML::DOM::DOMImplementation::Singleton;
+}
+
+#
+# Added extra parameters ($val, $specified) that are passed straight to the
+# Attr constructor
+#
+sub createAttribute
+{
+ new XML::DOM::Attr (@_);
+}
+
+sub createCDATASection
+{
+ new XML::DOM::CDATASection (@_);
+}
+
+sub createComment
+{
+ new XML::DOM::Comment (@_);
+
+}
+
+sub createElement
+{
+ new XML::DOM::Element (@_);
+}
+
+sub createTextNode
+{
+ new XML::DOM::Text (@_);
+}
+
+sub createProcessingInstruction
+{
+ new XML::DOM::ProcessingInstruction (@_);
+}
+
+sub createEntityReference
+{
+ new XML::DOM::EntityReference (@_);
+}
+
+sub createDocumentFragment
+{
+ new XML::DOM::DocumentFragment (@_);
+}
+
+sub createDocumentType
+{
+ new XML::DOM::DocumentType (@_);
+}
+
+sub cloneNode
+{
+ my ($self, $deep) = @_;
+ my $node = new XML::DOM::Document;
+
+ $node->cloneChildren ($self, $deep);
+
+ my $xmlDecl = $self->[_XmlDecl];
+ $node->[_XmlDecl] = $xmlDecl->cloneNode ($deep) if defined $xmlDecl;
+
+ $node;
+}
+
+sub appendChild
+{
+ my ($self, $node) = @_;
+
+ # Extra check: make sure we don't end up with more than one Element.
+ # Don't worry about multiple DocType nodes, because DocumentFragment
+ # can't contain DocType nodes.
+
+ my @nodes = ($node);
+ @nodes = @{$node->[_C]}
+ if $node->getNodeType == DOCUMENT_FRAGMENT_NODE;
+
+ my $elem = 0;
+ for my $n (@nodes)
+ {
+ $elem++ if $n->isElementNode;
+ }
+
+ if ($elem > 0 && defined ($self->getDocumentElement))
+ {
+ croak new XML::DOM::DOMException (HIERARCHY_REQUEST_ERR,
+ "document can have only one Element");
+ }
+ $self->SUPER::appendChild ($node);
+}
+
+sub insertBefore
+{
+ my ($self, $node, $refNode) = @_;
+
+ # Extra check: make sure sure we don't end up with more than 1 Elements.
+ # Don't worry about multiple DocType nodes, because DocumentFragment
+ # can't contain DocType nodes.
+
+ my @nodes = ($node);
+ @nodes = @{$node->[_C]}
+ if $node->getNodeType == DOCUMENT_FRAGMENT_NODE;
+
+ my $elem = 0;
+ for my $n (@nodes)
+ {
+ $elem++ if $n->isElementNode;
+ }
+
+ if ($elem > 0 && defined ($self->getDocumentElement))
+ {
+ croak new XML::DOM::DOMException (HIERARCHY_REQUEST_ERR,
+ "document can have only one Element");
+ }
+ $self->SUPER::insertBefore ($node, $refNode);
+}
+
+sub replaceChild
+{
+ my ($self, $node, $refNode) = @_;
+
+ # Extra check: make sure sure we don't end up with more than 1 Elements.
+ # Don't worry about multiple DocType nodes, because DocumentFragment
+ # can't contain DocType nodes.
+
+ my @nodes = ($node);
+ @nodes = @{$node->[_C]}
+ if $node->getNodeType == DOCUMENT_FRAGMENT_NODE;
+
+ my $elem = 0;
+ $elem-- if $refNode->isElementNode;
+
+ for my $n (@nodes)
+ {
+ $elem++ if $n->isElementNode;
+ }
+
+ if ($elem > 0 && defined ($self->getDocumentElement))
+ {
+ croak new XML::DOM::DOMException (HIERARCHY_REQUEST_ERR,
+ "document can have only one Element");
+ }
+ $self->SUPER::replaceChild ($node, $refNode);
+}
+
+#------------------------------------------------------------
+# Extra method implementations
+
+sub isReadOnly
+{
+ 0;
+}
+
+sub print
+{
+ my ($self, $FILE) = @_;
+
+ my $xmlDecl = $self->getXMLDecl;
+ if (defined $xmlDecl)
+ {
+ $xmlDecl->print ($FILE);
+ $FILE->print ("\x0A");
+ }
+
+ for my $node (@{$self->[_C]})
+ {
+ $node->print ($FILE);
+ $FILE->print ("\x0A");
+ }
+}
+
+sub setDoctype
+{
+ my ($self, $doctype) = @_;
+ my $oldDoctype = $self->[_Doctype];
+ if (defined $oldDoctype)
+ {
+ $self->replaceChild ($doctype, $oldDoctype);
+ }
+ else
+ {
+#?? before root element, but after XmlDecl !
+ $self->appendChild ($doctype);
+ }
+ $_[0]->[_Doctype] = $_[1];
+}
+
+sub removeDoctype
+{
+ my $self = shift;
+ my $doctype = $self->removeChild ($self->[_Doctype]);
+
+ undef $self->[_Doctype]; # was delete
+ $doctype;
+}
+
+sub rejectChild
+{
+ my $t = $_[1]->getNodeType;
+ $t != ELEMENT_NODE
+ && $t != PROCESSING_INSTRUCTION_NODE
+ && $t != COMMENT_NODE
+ && $t != DOCUMENT_TYPE_NODE;
+}
+
+sub expandEntity
+{
+ my ($self, $ent, $param) = @_;
+ my $doctype = $self->getDoctype;
+
+ (defined $doctype) ? $doctype->expandEntity ($ent, $param) : undef;
+}
+
+sub getDefaultAttrValue
+{
+ my ($self, $elem, $attr) = @_;
+
+ my $doctype = $self->getDoctype;
+
+ (defined $doctype) ? $doctype->getDefaultAttrValue ($elem, $attr) : undef;
+}
+
+sub getEntity
+{
+ my ($self, $entity) = @_;
+
+ my $doctype = $self->getDoctype;
+
+ (defined $doctype) ? $doctype->getEntity ($entity) : undef;
+}
+
+sub dispose
+{
+ my $self = shift;
+
+ $self->[_XmlDecl]->dispose if defined $self->[_XmlDecl];
+ undef $self->[_XmlDecl]; # was delete
+ undef $self->[_Doctype]; # was delete
+ $self->SUPER::dispose;
+}
+
+sub setOwnerDocument
+{
+ # Do nothing, you can't change the owner document!
+#?? could throw exception...
+}
+
+sub getXMLDecl
+{
+ $_[0]->[_XmlDecl];
+}
+
+sub setXMLDecl
+{
+ $_[0]->[_XmlDecl] = $_[1];
+}
+
+sub createXMLDecl
+{
+ new XML::DOM::XMLDecl (@_);
+}
+
+sub createNotation
+{
+ new XML::DOM::Notation (@_);
+}
+
+sub createElementDecl
+{
+ new XML::DOM::ElementDecl (@_);
+}
+
+sub createAttlistDecl
+{
+ new XML::DOM::AttlistDecl (@_);
+}
+
+sub createEntity
+{
+ new XML::DOM::Entity (@_);
+}
+
+sub createChecker
+{
+ my $self = shift;
+ my $checker = XML::Checker->new;
+
+ $checker->Init;
+ my $doctype = $self->getDoctype;
+ $doctype->to_expat ($checker) if $doctype;
+ $checker->Final;
+
+ $checker;
+}
+
+sub check
+{
+ my ($self, $checker) = @_;
+ $checker ||= XML::Checker->new;
+
+ $self->to_expat ($checker);
+}
+
+sub to_expat
+{
+ my ($self, $iter) = @_;
+
+ $iter->Init;
+
+ for my $kid ($self->getChildNodes)
+ {
+ $kid->to_expat ($iter);
+ }
+ $iter->Final;
+}
+
+sub check_sax
+{
+ my ($self, $checker) = @_;
+ $checker ||= XML::Checker->new;
+
+ $self->to_sax (Handler => $checker);
+}
+
+sub _to_sax
+{
+ my ($self, $doch, $dtdh, $enth) = @_;
+
+ $doch->start_document;
+
+ for my $kid ($self->getChildNodes)
+ {
+ $kid->_to_sax ($doch, $dtdh, $enth);
+ }
+ $doch->end_document;
+}
+
+######################################################################
+package XML::DOM::DocumentType;
+######################################################################
+use vars qw{ @ISA @EXPORT_OK %EXPORT_TAGS %HFIELDS };
+
+BEGIN
+{
+ import XML::DOM::Node qw( :DEFAULT :Fields );
+ import XML::DOM::Document qw( :Fields );
+ XML::DOM::def_fields ("Entities Notations Name SysId PubId Internal", "XML::DOM::Node");
+}
+
+use XML::DOM::DOMException;
+use XML::DOM::NamedNodeMap;
+
+sub new
+{
+ my $class = shift;
+ my $doc = shift;
+
+ my $self = bless [], $class;
+
+ $self->[_Doc] = $doc;
+ $self->[_ReadOnly] = 1;
+ $self->[_C] = new XML::DOM::NodeList;
+
+ $self->[_Entities] = new XML::DOM::NamedNodeMap (Doc => $doc,
+ Parent => $self,
+ ReadOnly => 1);
+ $self->[_Notations] = new XML::DOM::NamedNodeMap (Doc => $doc,
+ Parent => $self,
+ ReadOnly => 1);
+ $self->setParams (@_);
+ $self;
+}
+
+sub getNodeType
+{
+ DOCUMENT_TYPE_NODE;
+}
+
+sub getNodeName
+{
+ $_[0]->[_Name];
+}
+
+sub getName
+{
+ $_[0]->[_Name];
+}
+
+sub getEntities
+{
+ $_[0]->[_Entities];
+}
+
+sub getNotations
+{
+ $_[0]->[_Notations];
+}
+
+sub setParentNode
+{
+ my ($self, $parent) = @_;
+ $self->SUPER::setParentNode ($parent);
+
+ $parent->[_Doctype] = $self
+ if $parent->getNodeType == DOCUMENT_NODE;
+}
+
+sub cloneNode
+{
+ my ($self, $deep) = @_;
+
+ my $node = new XML::DOM::DocumentType ($self->[_Doc], $self->[_Name],
+ $self->[_SysId], $self->[_PubId],
+ $self->[_Internal]);
+
+#?? does it make sense to make a shallow copy?
+
+ # clone the NamedNodeMaps
+ $node->[_Entities] = $self->[_Entities]->cloneNode ($deep);
+
+ $node->[_Notations] = $self->[_Notations]->cloneNode ($deep);
+
+ $node->cloneChildren ($self, $deep);
+
+ $node;
+}
+
+#------------------------------------------------------------
+# Extra method implementations
+
+sub getSysId
+{
+ $_[0]->[_SysId];
+}
+
+sub getPubId
+{
+ $_[0]->[_PubId];
+}
+
+sub getInternal
+{
+ $_[0]->[_Internal];
+}
+
+sub setSysId
+{
+ $_[0]->[_SysId] = $_[1];
+}
+
+sub setPubId
+{
+ $_[0]->[_PubId] = $_[1];
+}
+
+sub setInternal
+{
+ $_[0]->[_Internal] = $_[1];
+}
+
+sub setName
+{
+ $_[0]->[_Name] = $_[1];
+}
+
+sub removeChildHoodMemories
+{
+ my ($self, $dontWipeReadOnly) = @_;
+
+ my $parent = $self->[_Parent];
+ if (defined $parent && $parent->getNodeType == DOCUMENT_NODE)
+ {
+ undef $parent->[_Doctype]; # was delete
+ }
+ $self->SUPER::removeChildHoodMemories;
+}
+
+sub dispose
+{
+ my $self = shift;
+
+ $self->[_Entities]->dispose;
+ $self->[_Notations]->dispose;
+ $self->SUPER::dispose;
+}
+
+sub setOwnerDocument
+{
+ my ($self, $doc) = @_;
+ $self->SUPER::setOwnerDocument ($doc);
+
+ $self->[_Entities]->setOwnerDocument ($doc);
+ $self->[_Notations]->setOwnerDocument ($doc);
+}
+
+sub expandEntity
+{
+ my ($self, $ent, $param) = @_;
+
+ my $kid = $self->[_Entities]->getNamedItem ($ent);
+ return $kid->getValue
+ if (defined ($kid) && $param == $kid->isParameterEntity);
+
+ undef; # entity not found
+}
+
+sub getAttlistDecl
+{
+ my ($self, $elemName) = @_;
+ for my $kid (@{$_[0]->[_C]})
+ {
+ return $kid if ($kid->getNodeType == ATTLIST_DECL_NODE &&
+ $kid->getName eq $elemName);
+ }
+ undef; # not found
+}
+
+sub getElementDecl
+{
+ my ($self, $elemName) = @_;
+ for my $kid (@{$_[0]->[_C]})
+ {
+ return $kid if ($kid->getNodeType == ELEMENT_DECL_NODE &&
+ $kid->getName eq $elemName);
+ }
+ undef; # not found
+}
+
+sub addElementDecl
+{
+ my ($self, $name, $model, $hidden) = @_;
+ my $node = $self->getElementDecl ($name);
+
+#?? could warn
+ unless (defined $node)
+ {
+ $node = $self->[_Doc]->createElementDecl ($name, $model, $hidden);
+ $self->appendChild ($node);
+ }
+ $node;
+}
+
+sub addAttlistDecl
+{
+ my ($self, $name) = @_;
+ my $node = $self->getAttlistDecl ($name);
+
+ unless (defined $node)
+ {
+ $node = $self->[_Doc]->createAttlistDecl ($name);
+ $self->appendChild ($node);
+ }
+ $node;
+}
+
+sub addNotation
+{
+ my $self = shift;
+ my $node = $self->[_Doc]->createNotation (@_);
+ $self->[_Notations]->setNamedItem ($node);
+ $node;
+}
+
+sub addEntity
+{
+ my $self = shift;
+ my $node = $self->[_Doc]->createEntity (@_);
+
+ $self->[_Entities]->setNamedItem ($node);
+ $node;
+}
+
+# All AttDefs for a certain Element are merged into a single ATTLIST
+sub addAttDef
+{
+ my $self = shift;
+ my $elemName = shift;
+
+ # create the AttlistDecl if it doesn't exist yet
+ my $attListDecl = $self->addAttlistDecl ($elemName);
+ $attListDecl->addAttDef (@_);
+}
+
+sub getDefaultAttrValue
+{
+ my ($self, $elem, $attr) = @_;
+ my $elemNode = $self->getAttlistDecl ($elem);
+ (defined $elemNode) ? $elemNode->getDefaultAttrValue ($attr) : undef;
+}
+
+sub getEntity
+{
+ my ($self, $entity) = @_;
+ $self->[_Entities]->getNamedItem ($entity);
+}
+
+sub setParams
+{
+ my ($self, $name, $sysid, $pubid, $internal) = @_;
+
+ $self->[_Name] = $name;
+
+#?? not sure if we need to hold on to these...
+ $self->[_SysId] = $sysid if defined $sysid;
+ $self->[_PubId] = $pubid if defined $pubid;
+ $self->[_Internal] = $internal if defined $internal;
+
+ $self;
+}
+
+sub rejectChild
+{
+ # DOM Spec says: DocumentType -- no children
+ not $XML::DOM::IgnoreReadOnly;
+}
+
+sub print
+{
+ my ($self, $FILE) = @_;
+
+ my $name = $self->[_Name];
+
+ my $sysId = $self->[_SysId];
+ my $pubId = $self->[_PubId];
+
+ $FILE->print ("print (" PUBLIC \"$pubId\" \"$sysId\"");
+ }
+ elsif (defined $sysId)
+ {
+ $FILE->print (" SYSTEM \"$sysId\"");
+ }
+
+ my @entities = @{$self->[_Entities]->getValues};
+ my @notations = @{$self->[_Notations]->getValues};
+ my @kids = @{$self->[_C]};
+
+ if (@entities || @notations || @kids)
+ {
+ $FILE->print (" [\x0A");
+
+ for my $kid (@entities)
+ {
+ next if $kid->[_Hidden];
+
+ $FILE->print (" ");
+ $kid->print ($FILE);
+ $FILE->print ("\x0A");
+ }
+
+ for my $kid (@notations)
+ {
+ next if $kid->[_Hidden];
+
+ $FILE->print (" ");
+ $kid->print ($FILE);
+ $FILE->print ("\x0A");
+ }
+
+ for my $kid (@kids)
+ {
+ next if $kid->[_Hidden];
+
+ $FILE->print (" ");
+ $kid->print ($FILE);
+ $FILE->print ("\x0A");
+ }
+ $FILE->print ("]");
+ }
+ $FILE->print (">");
+}
+
+sub to_expat
+{
+ my ($self, $iter) = @_;
+
+ $iter->Doctype ($self->getName, $self->getSysId, $self->getPubId, $self->getInternal);
+
+ for my $ent ($self->getEntities->getValues)
+ {
+ next if $ent->[_Hidden];
+ $ent->to_expat ($iter);
+ }
+
+ for my $nota ($self->getNotations->getValues)
+ {
+ next if $nota->[_Hidden];
+ $nota->to_expat ($iter);
+ }
+
+ for my $kid ($self->getChildNodes)
+ {
+ next if $kid->[_Hidden];
+ $kid->to_expat ($iter);
+ }
+}
+
+sub _to_sax
+{
+ my ($self, $doch, $dtdh, $enth) = @_;
+
+ $dtdh->doctype_decl ( { Name => $self->getName,
+ SystemId => $self->getSysId,
+ PublicId => $self->getPubId,
+ Internal => $self->getInternal });
+
+ for my $ent ($self->getEntities->getValues)
+ {
+ next if $ent->[_Hidden];
+ $ent->_to_sax ($doch, $dtdh, $enth);
+ }
+
+ for my $nota ($self->getNotations->getValues)
+ {
+ next if $nota->[_Hidden];
+ $nota->_to_sax ($doch, $dtdh, $enth);
+ }
+
+ for my $kid ($self->getChildNodes)
+ {
+ next if $kid->[_Hidden];
+ $kid->_to_sax ($doch, $dtdh, $enth);
+ }
+}
+
+######################################################################
+package XML::DOM::Parser;
+######################################################################
+use vars qw ( @ISA );
+@ISA = qw( XML::Parser );
+
+sub new
+{
+ my ($class, %args) = @_;
+
+ $args{Style} = 'XML::Parser::Dom';
+ $class->SUPER::new (%args);
+}
+
+# This method needed to be overriden so we can restore some global
+# variables when an exception is thrown
+sub parse
+{
+ my $self = shift;
+
+ local $XML::Parser::Dom::_DP_doc;
+ local $XML::Parser::Dom::_DP_elem;
+ local $XML::Parser::Dom::_DP_doctype;
+ local $XML::Parser::Dom::_DP_in_prolog;
+ local $XML::Parser::Dom::_DP_end_doc;
+ local $XML::Parser::Dom::_DP_saw_doctype;
+ local $XML::Parser::Dom::_DP_in_CDATA;
+ local $XML::Parser::Dom::_DP_keep_CDATA;
+ local $XML::Parser::Dom::_DP_last_text;
+
+
+ # Temporarily disable checks that Expat already does (for performance)
+ local $XML::DOM::SafeMode = 0;
+ # Temporarily disable ReadOnly checks
+ local $XML::DOM::IgnoreReadOnly = 1;
+
+ my $ret;
+ eval {
+ $ret = $self->SUPER::parse (@_);
+ };
+ my $err = $@;
+
+ if ($err)
+ {
+ my $doc = $XML::Parser::Dom::_DP_doc;
+ if ($doc)
+ {
+ $doc->dispose;
+ }
+ die $err;
+ }
+
+ $ret;
+}
+
+my $LWP_USER_AGENT;
+sub set_LWP_UserAgent
+{
+ $LWP_USER_AGENT = shift;
+}
+
+sub parsefile
+{
+ my $self = shift;
+ my $url = shift;
+
+ # Any other URL schemes?
+ if ($url =~ /^(https?|ftp|wais|gopher|file):/)
+ {
+ # Read the file from the web with LWP.
+ #
+ # Note that we read in the entire file, which may not be ideal
+ # for large files. LWP::UserAgent also provides a callback style
+ # request, which we could convert to a stream with a fork()...
+
+ my $result;
+ eval
+ {
+ use LWP::UserAgent;
+
+ my $ua = $self->{LWP_UserAgent};
+ unless (defined $ua)
+ {
+ unless (defined $LWP_USER_AGENT)
+ {
+ $LWP_USER_AGENT = LWP::UserAgent->new;
+
+ # Load proxy settings from environment variables, i.e.:
+ # http_proxy, ftp_proxy, no_proxy etc. (see LWP::UserAgent(3))
+ # You need these to go thru firewalls.
+ $LWP_USER_AGENT->env_proxy;
+ }
+ $ua = $LWP_USER_AGENT;
+ }
+ my $req = new HTTP::Request 'GET', $url;
+ my $response = $ua->request ($req);
+
+ # Parse the result of the HTTP request
+ $result = $self->parse ($response->content, @_);
+ };
+ if ($@)
+ {
+ die "Couldn't parsefile [$url] with LWP: $@";
+ }
+ return $result;
+ }
+ else
+ {
+ return $self->SUPER::parsefile ($url, @_);
+ }
+}
+
+######################################################################
+package XML::Parser::Dom;
+######################################################################
+
+BEGIN
+{
+ import XML::DOM::Node qw( :Fields );
+ import XML::DOM::CharacterData qw( :Fields );
+}
+
+use vars qw( $_DP_doc
+ $_DP_elem
+ $_DP_doctype
+ $_DP_in_prolog
+ $_DP_end_doc
+ $_DP_saw_doctype
+ $_DP_in_CDATA
+ $_DP_keep_CDATA
+ $_DP_last_text
+ $_DP_level
+ $_DP_expand_pent
+ );
+
+# This adds a new Style to the XML::Parser class.
+# From now on you can say: $parser = new XML::Parser ('Style' => 'Dom' );
+# but that is *NOT* how a regular user should use it!
+$XML::Parser::Built_In_Styles{Dom} = 1;
+
+sub Init
+{
+ $_DP_elem = $_DP_doc = new XML::DOM::Document();
+ $_DP_doctype = new XML::DOM::DocumentType ($_DP_doc);
+ $_DP_doc->setDoctype ($_DP_doctype);
+ $_DP_keep_CDATA = $_[0]->{KeepCDATA};
+
+ # Prepare for document prolog
+ $_DP_in_prolog = 1;
+
+ # We haven't passed the root element yet
+ $_DP_end_doc = 0;
+
+ # Expand parameter entities in the DTD by default
+
+ $_DP_expand_pent = defined $_[0]->{ExpandParamEnt} ?
+ $_[0]->{ExpandParamEnt} : 1;
+ if ($_DP_expand_pent)
+ {
+ $_[0]->{DOM_Entity} = {};
+ }
+
+ $_DP_level = 0;
+
+ undef $_DP_last_text;
+}
+
+sub Final
+{
+ unless ($_DP_saw_doctype)
+ {
+ my $doctype = $_DP_doc->removeDoctype;
+ $doctype->dispose;
+ }
+ $_DP_doc;
+}
+
+sub Char
+{
+ my $str = $_[1];
+
+ if ($_DP_in_CDATA && $_DP_keep_CDATA)
+ {
+ undef $_DP_last_text;
+ # Merge text with previous node if possible
+ $_DP_elem->addCDATA ($str);
+ }
+ else
+ {
+ # Merge text with previous node if possible
+ # Used to be: $expat->{DOM_Element}->addText ($str);
+ if ($_DP_last_text)
+ {
+ $_DP_last_text->[_Data] .= $str;
+ }
+ else
+ {
+ $_DP_last_text = $_DP_doc->createTextNode ($str);
+ $_DP_last_text->[_Parent] = $_DP_elem;
+ push @{$_DP_elem->[_C]}, $_DP_last_text;
+ }
+ }
+}
+
+sub Start
+{
+ my ($expat, $elem, @attr) = @_;
+ my $parent = $_DP_elem;
+ my $doc = $_DP_doc;
+
+ if ($parent == $doc)
+ {
+ # End of document prolog, i.e. start of first Element
+ $_DP_in_prolog = 0;
+ }
+
+ undef $_DP_last_text;
+ my $node = $doc->createElement ($elem);
+ $_DP_elem = $node;
+ $parent->appendChild ($node);
+
+ my $n = @attr;
+ return unless $n;
+
+ # Add attributes
+ my $first_default = $expat->specified_attr;
+ my $i = 0;
+ while ($i < $n)
+ {
+ my $specified = $i < $first_default;
+ my $name = $attr[$i++];
+ undef $_DP_last_text;
+ my $attr = $doc->createAttribute ($name, $attr[$i++], $specified);
+ $node->setAttributeNode ($attr);
+ }
+}
+
+sub End
+{
+ $_DP_elem = $_DP_elem->[_Parent];
+ undef $_DP_last_text;
+
+ # Check for end of root element
+ $_DP_end_doc = 1 if ($_DP_elem == $_DP_doc);
+}
+
+# Called at end of file, i.e. whitespace following last closing tag
+# Also for Entity references
+# May also be called at other times...
+sub Default
+{
+ my ($expat, $str) = @_;
+
+# shift; deb ("Default", @_);
+
+ if ($_DP_in_prolog) # still processing Document prolog...
+ {
+#?? could try to store this text later
+#?? I've only seen whitespace here so far
+ }
+ elsif (!$_DP_end_doc) # ignore whitespace at end of Document
+ {
+# if ($expat->{NoExpand})
+# {
+ # Got a TextDecl () from an external entity here once
+
+ # create non-parameter entity reference, correct?
+ return unless $str =~ s!^&!!;
+ return unless $str =~ s!;$!!;
+ $_DP_elem->appendChild (
+ $_DP_doc->createEntityReference ($str,0,$expat->{NoExpand}));
+ undef $_DP_last_text;
+# }
+# else
+# {
+# $expat->{DOM_Element}->addText ($str);
+# }
+ }
+}
+
+# XML::Parser 2.19 added support for CdataStart and CdataEnd handlers
+# If they are not defined, the Default handler is called instead
+# with the text "createComment ($_[1]);
+ $_DP_elem->appendChild ($comment);
+ }
+}
+
+sub deb
+{
+# return;
+
+ my $name = shift;
+ print "$name (" . join(",", map {defined($_)?$_ : "(undef)"} @_) . ")\n";
+}
+
+sub Doctype
+{
+ my $expat = shift;
+# deb ("Doctype", @_);
+
+ $_DP_doctype->setParams (@_);
+ $_DP_saw_doctype = 1;
+}
+
+sub Attlist
+{
+ my $expat = shift;
+# deb ("Attlist", @_);
+
+ $_[5] = "Hidden" unless $_DP_expand_pent || $_DP_level == 0;
+ $_DP_doctype->addAttDef (@_);
+}
+
+sub XMLDecl
+{
+ my $expat = shift;
+# deb ("XMLDecl", @_);
+
+ undef $_DP_last_text;
+ $_DP_doc->setXMLDecl (new XML::DOM::XMLDecl ($_DP_doc, @_));
+}
+
+sub Entity
+{
+ my $expat = shift;
+# deb ("Entity", @_);
+
+ # check to see if Parameter Entity
+ if ($_[5])
+ {
+
+ if (defined $_[2]) # was sysid specified?
+ {
+ # Store the Entity mapping for use in ExternEnt
+ if (exists $expat->{DOM_Entity}->{$_[2]})
+ {
+ # If this ever happens, the name of entity may be the wrong one
+ # when writing out the Document.
+ XML::DOM::warning ("Entity $_[2] is known as %$_[0] and %" .
+ $expat->{DOM_Entity}->{$_[2]});
+ }
+ else
+ {
+ $expat->{DOM_Entity}->{$_[2]} = $_[0];
+ }
+ #?? remove this block when XML::Parser has better support
+ }
+ }
+
+ # no value on things with sysId
+ if (defined $_[2] && defined $_[1])
+ {
+ # print STDERR "XML::DOM Warning $_[0] had both value($_[1]) And SYSId ($_[2]), removing value.\n";
+ $_[1] = undef;
+ }
+
+ undef $_DP_last_text;
+
+ $_[6] = "Hidden" unless $_DP_expand_pent || $_DP_level == 0;
+ $_DP_doctype->addEntity (@_);
+}
+
+#
+# Unparsed is called when it encounters e.g:
+#
+#
+#
+sub Unparsed
+{
+ Entity (@_); # same as regular ENTITY, as far as DOM is concerned
+}
+
+sub Element
+{
+ shift;
+# deb ("Element", @_);
+
+ # put in to convert XML::Parser::ContentModel object to string
+ # ($_[1] used to be a string in XML::Parser 2.27 and
+ # dom_attr.t fails if we don't stringify here)
+ $_[1] = "$_[1]";
+
+ undef $_DP_last_text;
+ push @_, "Hidden" unless $_DP_expand_pent || $_DP_level == 0;
+ $_DP_doctype->addElementDecl (@_);
+}
+
+sub Notation
+{
+ shift;
+# deb ("Notation", @_);
+
+ undef $_DP_last_text;
+ $_[4] = "Hidden" unless $_DP_expand_pent || $_DP_level == 0;
+ $_DP_doctype->addNotation (@_);
+}
+
+sub Proc
+{
+ shift;
+# deb ("Proc", @_);
+
+ undef $_DP_last_text;
+ push @_, "Hidden" unless $_DP_expand_pent || $_DP_level == 0;
+ $_DP_elem->appendChild ($_DP_doc->createProcessingInstruction (@_));
+}
+
+#
+# ExternEnt is called when an external entity, such as:
+#
+#
+#
+# is referenced in the document, e.g. with: &externalEntity;
+# If ExternEnt is not specified, the entity reference is passed to the Default
+# handler as e.g. "&externalEntity;", where an EntityReference object is added.
+#
+# Also for %externalEntity; references in the DTD itself.
+#
+# It can also be called when XML::Parser parses the DOCTYPE header
+# (just before calling the DocType handler), when it contains a
+# reference like "docbook.dtd" below:
+#
+# 2.27 since file_ext_ent_handler
+ # now returns a IO::File object instead of a content string
+
+ # Invoke XML::Parser's default ExternEnt handler
+ my $content;
+ if ($XML::Parser::have_LWP)
+ {
+ $content = XML::Parser::lwp_ext_ent_handler (@_);
+ }
+ else
+ {
+ $content = XML::Parser::file_ext_ent_handler (@_);
+ }
+
+ if ($_DP_expand_pent)
+ {
+ return $content;
+ }
+ else
+ {
+ my $entname = $expat->{DOM_Entity}->{$sysid};
+ if (defined $entname)
+ {
+ $_DP_doctype->appendChild ($_DP_doc->createEntityReference ($entname, 1, $expat->{NoExpand}));
+ # Wrap the contents in special comments, so we know when we reach the
+ # end of parsing the entity. This way we can omit the contents from
+ # the DTD, when ExpandParamEnt is set to 0.
+
+ return "" .
+ $content . "";
+ }
+ else
+ {
+ # We either read the entity ref'd by the system id in the
+ # header, or the entity was undefined.
+ # In either case, don't bother with maintaining the entity
+ # reference, just expand the contents.
+ return "" .
+ $content . "";
+ }
+ }
+}
+
+1; # module return code
+
+__END__
+
+=head1 NAME
+
+XML::DOM - A perl module for building DOM Level 1 compliant document structures
+
+=head1 SYNOPSIS
+
+ use XML::DOM;
+
+ my $parser = new XML::DOM::Parser;
+ my $doc = $parser->parsefile ("file.xml");
+
+ # print all HREF attributes of all CODEBASE elements
+ my $nodes = $doc->getElementsByTagName ("CODEBASE");
+ my $n = $nodes->getLength;
+
+ for (my $i = 0; $i < $n; $i++)
+ {
+ my $node = $nodes->item ($i);
+ my $href = $node->getAttributeNode ("HREF");
+ print $href->getValue . "\n";
+ }
+
+ # Print doc file
+ $doc->printToFile ("out.xml");
+
+ # Print to string
+ print $doc->toString;
+
+ # Avoid memory leaks - cleanup circular references for garbage collection
+ $doc->dispose;
+
+=head1 DESCRIPTION
+
+This module extends the XML::Parser module by Clark Cooper.
+The XML::Parser module is built on top of XML::Parser::Expat,
+which is a lower level interface to James Clark's expat library.
+
+XML::DOM::Parser is derived from XML::Parser. It parses XML strings or files
+and builds a data structure that conforms to the API of the Document Object
+Model as described at http://www.w3.org/TR/REC-DOM-Level-1.
+See the XML::Parser manpage for other available features of the
+XML::DOM::Parser class.
+Note that the 'Style' property should not be used (it is set internally.)
+
+The XML::Parser I option is more or less supported, in that it will
+generate EntityReference objects whenever an entity reference is encountered
+in character data. I'm not sure how useful this is. Any comments are welcome.
+
+As described in the synopsis, when you create an XML::DOM::Parser object,
+the parse and parsefile methods create an I object
+from the specified input. This Document object can then be examined, modified and
+written back out to a file or converted to a string.
+
+When using XML::DOM with XML::Parser version 2.19 and up, setting the
+XML::DOM::Parser option I to 1 will store CDATASections in
+CDATASection nodes, instead of converting them to Text nodes.
+Subsequent CDATASection nodes will be merged into one. Let me know if this
+is a problem.
+
+When using XML::Parser 2.27 and above, you can suppress expansion of
+parameter entity references (e.g. %pent;) in the DTD, by setting I
+to 1 and I to 0. See L for details.
+
+A Document has a tree structure consisting of I objects. A Node may contain
+other nodes, depending on its type.
+A Document may have Element, Text, Comment, and CDATASection nodes.
+Element nodes may have Attr, Element, Text, Comment, and CDATASection nodes.
+The other nodes may not have any child nodes.
+
+This module adds several node types that are not part of the DOM spec (yet.)
+These are: ElementDecl (for declarations), AttlistDecl (for
+ declarations), XMLDecl (for declarations) and AttDef
+(for attribute definitions in an AttlistDecl.)
+
+=head1 XML::DOM Classes
+
+The XML::DOM module stores XML documents in a tree structure with a root node
+of type XML::DOM::Document. Different nodes in tree represent different
+parts of the XML file. The DOM Level 1 Specification defines the following
+node types:
+
+=over 4
+
+=item * L - Super class of all node types
+
+=item * L - The root of the XML document
+
+=item * L - Describes the document structure:
+
+=item * L - An XML element: ...
+
+=item * L - An XML element attribute: name="value"
+
+=item * L - Super class of Text, Comment and CDATASection
+
+=item * L - Text in an XML element
+
+=item * L - Escaped block of text:
+
+=item * L - An XML comment:
+
+=item * L - Refers to an ENTITY: &ent; or %ent;
+
+=item * L - An ENTITY definition:
+
+=item * L -
+
+=item * L - Lightweight node for cut & paste
+
+=item * L - An NOTATION definition:
+
+=back
+
+In addition, the XML::DOM module contains the following nodes that are not part
+of the DOM Level 1 Specification:
+
+=over 4
+
+=item * L - Defines an element:
+
+=item * L - Defines one or more attributes in an
+
+=item * L - Defines one attribute in an
+
+=item * L - An XML declaration:
+
+=back
+
+Other classes that are part of the DOM Level 1 Spec:
+
+=over 4
+
+=item * L - Provides information about this implementation. Currently it doesn't do much.
+
+=item * L - Used internally to store a node's child nodes. Also returned by getElementsByTagName.
+
+=item * L - Used internally to store an element's attributes.
+
+=back
+
+Other classes that are not part of the DOM Level 1 Spec:
+
+=over 4
+
+=item * L - An non-validating XML parser that creates XML::DOM::Documents
+
+=item * L - A validating XML parser that creates XML::DOM::Documents. It uses L to check against the DocumentType (DTD)
+
+=item * L - A PerlSAX handler that creates XML::DOM::Documents.
+
+=back
+
+=head1 XML::DOM package
+
+=over 4
+
+=item Constant definitions
+
+The following predefined constants indicate which type of node it is.
+
+=back
+
+ UNKNOWN_NODE (0) The node type is unknown (not part of DOM)
+
+ ELEMENT_NODE (1) The node is an Element.
+ ATTRIBUTE_NODE (2) The node is an Attr.
+ TEXT_NODE (3) The node is a Text node.
+ CDATA_SECTION_NODE (4) The node is a CDATASection.
+ ENTITY_REFERENCE_NODE (5) The node is an EntityReference.
+ ENTITY_NODE (6) The node is an Entity.
+ PROCESSING_INSTRUCTION_NODE (7) The node is a ProcessingInstruction.
+ COMMENT_NODE (8) The node is a Comment.
+ DOCUMENT_NODE (9) The node is a Document.
+ DOCUMENT_TYPE_NODE (10) The node is a DocumentType.
+ DOCUMENT_FRAGMENT_NODE (11) The node is a DocumentFragment.
+ NOTATION_NODE (12) The node is a Notation.
+
+ ELEMENT_DECL_NODE (13) The node is an ElementDecl (not part of DOM)
+ ATT_DEF_NODE (14) The node is an AttDef (not part of DOM)
+ XML_DECL_NODE (15) The node is an XMLDecl (not part of DOM)
+ ATTLIST_DECL_NODE (16) The node is an AttlistDecl (not part of DOM)
+
+ Usage:
+
+ if ($node->getNodeType == ELEMENT_NODE)
+ {
+ print "It's an Element";
+ }
+
+B: The DOM Spec does not mention UNKNOWN_NODE and,
+quite frankly, you should never encounter it. The last 4 node types were added
+to support the 4 added node classes.
+
+=head2 Global Variables
+
+=over 4
+
+=item $VERSION
+
+The variable $XML::DOM::VERSION contains the version number of this
+implementation, e.g. "1.43".
+
+=back
+
+=head2 METHODS
+
+These methods are not part of the DOM Level 1 Specification.
+
+=over 4
+
+=item getIgnoreReadOnly and ignoreReadOnly (readOnly)
+
+The DOM Level 1 Spec does not allow you to edit certain sections of the document,
+e.g. the DocumentType, so by default this implementation throws DOMExceptions
+(i.e. NO_MODIFICATION_ALLOWED_ERR) when you try to edit a readonly node.
+These readonly checks can be disabled by (temporarily) setting the global
+IgnoreReadOnly flag.
+
+The ignoreReadOnly method sets the global IgnoreReadOnly flag and returns its
+previous value. The getIgnoreReadOnly method simply returns its current value.
+
+ my $oldIgnore = XML::DOM::ignoreReadOnly (1);
+ eval {
+ ... do whatever you want, catching any other exceptions ...
+ };
+ XML::DOM::ignoreReadOnly ($oldIgnore); # restore previous value
+
+Another way to do it, using a local variable:
+
+ { # start new scope
+ local $XML::DOM::IgnoreReadOnly = 1;
+ ... do whatever you want, don't worry about exceptions ...
+ } # end of scope ($IgnoreReadOnly is set back to its previous value)
+
+
+=item isValidName (name)
+
+Whether the specified name is a valid "Name" as specified in the XML spec.
+Characters with Unicode values > 127 are now also supported.
+
+=item getAllowReservedNames and allowReservedNames (boolean)
+
+The first method returns whether reserved names are allowed.
+The second takes a boolean argument and sets whether reserved names are allowed.
+The initial value is 1 (i.e. allow reserved names.)
+
+The XML spec states that "Names" starting with (X|x)(M|m)(L|l)
+are reserved for future use. (Amusingly enough, the XML version of the XML spec
+(REC-xml-19980210.xml) breaks that very rule by defining an ENTITY with the name
+'xmlpio'.)
+A "Name" in this context means the Name token as found in the BNF rules in the
+XML spec.
+
+XML::DOM only checks for errors when you modify the DOM tree, not when the
+DOM tree is built by the XML::DOM::Parser.
+
+=item setTagCompression (funcref)
+
+There are 3 possible styles for printing empty Element tags:
+
+=over 4
+
+=item Style 0
+
+ or
+
+XML::DOM uses this style by default for all Elements.
+
+=item Style 1
+
+ or
+
+=item Style 2
+
+ or
+
+This style is sometimes desired when using XHTML.
+(Note the extra space before the slash "/")
+See L Appendix C for more details.
+
+=back
+
+By default XML::DOM compresses all empty Element tags (style 0.)
+You can control which style is used for a particular Element by calling
+XML::DOM::setTagCompression with a reference to a function that takes
+2 arguments. The first is the tag name of the Element, the second is the
+XML::DOM::Element that is being printed.
+The function should return 0, 1 or 2 to indicate which style should be used to
+print the empty tag. E.g.
+
+ XML::DOM::setTagCompression (\&my_tag_compression);
+
+ sub my_tag_compression
+ {
+ my ($tag, $elem) = @_;
+
+ # Print empty br, hr and img tags like this:
+ return 2 if $tag =~ /^(br|hr|img)$/;
+
+ # Print other empty tags like this:
+ return 1;
+ }
+
+=back
+
+=head1 IMPLEMENTATION DETAILS
+
+=over 4
+
+=item * Perl Mappings
+
+The value undef was used when the DOM Spec said null.
+
+The DOM Spec says: Applications must encode DOMString using UTF-16 (defined in
+Appendix C.3 of [UNICODE] and Amendment 1 of [ISO-10646]).
+In this implementation we use plain old Perl strings encoded in UTF-8 instead of
+UTF-16.
+
+=item * Text and CDATASection nodes
+
+The Expat parser expands EntityReferences and CDataSection sections to
+raw strings and does not indicate where it was found.
+This implementation does therefore convert both to Text nodes at parse time.
+CDATASection and EntityReference nodes that are added to an existing Document
+(by the user) will be preserved.
+
+Also, subsequent Text nodes are always merged at parse time. Text nodes that are
+added later can be merged with the normalize method. Consider using the addText
+method when adding Text nodes.
+
+=item * Printing and toString
+
+When printing (and converting an XML Document to a string) the strings have to
+encoded differently depending on where they occur. E.g. in a CDATASection all
+substrings are allowed except for "]]>". In regular text, certain characters are
+not allowed, e.g. ">" has to be converted to ">".
+These routines should be verified by someone who knows the details.
+
+=item * Quotes
+
+Certain sections in XML are quoted, like attribute values in an Element.
+XML::Parser strips these quotes and the print methods in this implementation
+always uses double quotes, so when parsing and printing a document, single quotes
+may be converted to double quotes. The default value of an attribute definition
+(AttDef) in an AttlistDecl, however, will maintain its quotes.
+
+=item * AttlistDecl
+
+Attribute declarations for a certain Element are always merged into a single
+AttlistDecl object.
+
+=item * Comments
+
+Comments in the DOCTYPE section are not kept in the right place. They will become
+child nodes of the Document.
+
+=item * Hidden Nodes
+
+Previous versions of XML::DOM would expand parameter entity references
+(like B<%pent;>), so when printing the DTD, it would print the contents
+of the external entity, instead of the parameter entity reference.
+With this release (1.27), you can prevent this by setting the XML::DOM::Parser
+options ParseParamEnt => 1 and ExpandParamEnt => 0.
+
+When it is parsing the contents of the external entities, it *DOES* still add
+the nodes to the DocumentType, but it marks these nodes by setting
+the 'Hidden' property. In addition, it adds an EntityReference node to the
+DocumentType node.
+
+When printing the DocumentType node (or when using to_expat() or to_sax()),
+the 'Hidden' nodes are suppressed, so you will see the parameter entity
+reference instead of the contents of the external entities. See test case
+t/dom_extent.t for an example.
+
+The reason for adding the 'Hidden' nodes to the DocumentType node, is that
+the nodes may contain definitions that are referenced further
+in the document. (Simply not adding the nodes to the DocumentType could
+cause such entity references to be expanded incorrectly.)
+
+Note that you need XML::Parser 2.27 or higher for this to work correctly.
+
+=back
+
+=head1 SEE ALSO
+
+L
+
+The Japanese version of this document by Takanori Kawai (Hippo2000)
+at L
+
+The DOM Level 1 specification at L
+
+The XML spec (Extensible Markup Language 1.0) at L
+
+The L and L manual pages.
+
+L also provides a DOM Parser, and is significantly faster
+than XML::DOM, and is under active development. It requires that you
+download the Gnome libxml library.
+
+L will provide the DOM Level 2 Core API, and should be
+as fast as XML::LibXML, but more robust, since it uses the memory
+management functions of libgdome. For more details see
+L
+
+=head1 CAVEATS
+
+The method getElementsByTagName() does not return a "live" NodeList.
+Whether this is an actual caveat is debatable, but a few people on the
+www-dom mailing list seemed to think so. I haven't decided yet. It's a pain
+to implement, it slows things down and the benefits seem marginal.
+Let me know what you think.
+
+=head1 AUTHOR
+
+Enno Derksen is the original author.
+
+Send patches to T.J. Mather at >.
+
+Paid support is available from directly from the maintainers of this package.
+Please see L for more details.
+
+Thanks to Clark Cooper for his help with the initial version.
+
+=cut
diff --git a/src/main/resources/project/lib/XML/DOM/AttDef.pod b/src/main/resources/project/lib/XML/DOM/AttDef.pod
new file mode 100644
index 0000000..b5acb78
--- /dev/null
+++ b/src/main/resources/project/lib/XML/DOM/AttDef.pod
@@ -0,0 +1,36 @@
+=head1 NAME
+
+XML::DOM::AttDef - A single XML attribute definition in an ATTLIST in XML::DOM
+
+=head1 DESCRIPTION
+
+XML::DOM::AttDef extends L, but is not part of the DOM Level 1
+specification.
+
+Each object of this class represents one attribute definition in an AttlistDecl.
+
+=head2 METHODS
+
+=over 4
+
+=item getName
+
+Returns the attribute name.
+
+=item getDefault
+
+Returns the default value, or undef.
+
+=item isFixed
+
+Whether the attribute value is fixed (see #FIXED keyword.)
+
+=item isRequired
+
+Whether the attribute value is required (see #REQUIRED keyword.)
+
+=item isImplied
+
+Whether the attribute value is implied (see #IMPLIED keyword.)
+
+=back
diff --git a/src/main/resources/project/lib/XML/DOM/AttlistDecl.pod b/src/main/resources/project/lib/XML/DOM/AttlistDecl.pod
new file mode 100644
index 0000000..56f2c71
--- /dev/null
+++ b/src/main/resources/project/lib/XML/DOM/AttlistDecl.pod
@@ -0,0 +1,45 @@
+=head1 NAME
+
+XML::DOM::AttlistDecl - An XML ATTLIST declaration in XML::DOM
+
+=head1 DESCRIPTION
+
+XML::DOM::AttlistDecl extends L but is not part of the
+DOM Level 1 specification.
+
+This node represents an ATTLIST declaration, e.g.
+
+
+
+Each attribute definition is stored a separate AttDef node. The AttDef nodes can
+be retrieved with getAttDef and added with addAttDef.
+(The AttDef nodes are stored in a NamedNodeMap internally.)
+
+=head2 METHODS
+
+=over 4
+
+=item getName
+
+Returns the Element tagName.
+
+=item getAttDef (attrName)
+
+Returns the AttDef node for the attribute with the specified name.
+
+=item addAttDef (attrName, type, default, [ fixed ])
+
+Adds a AttDef node for the attribute with the specified name.
+
+Parameters:
+ I the attribute name.
+ I the attribute type (e.g. "CDATA" or "(male|female)".)
+ I the default value enclosed in quotes (!), the string #IMPLIED or
+ the string #REQUIRED.
+ I whether the attribute is '#FIXED' (default is 0.)
+
+=back
diff --git a/src/main/resources/project/lib/XML/DOM/Attr.pod b/src/main/resources/project/lib/XML/DOM/Attr.pod
new file mode 100644
index 0000000..9305c21
--- /dev/null
+++ b/src/main/resources/project/lib/XML/DOM/Attr.pod
@@ -0,0 +1,67 @@
+=head1 NAME
+
+XML::DOM::Attr - An XML attribute in XML::DOM
+
+=head1 DESCRIPTION
+
+XML::DOM::Attr extends L.
+
+The Attr nodes built by the XML::DOM::Parser always have one child node
+which is a Text node containing the expanded string value (i.e. EntityReferences
+are always expanded.) EntityReferences may be added when modifying or creating
+a new Document.
+
+The Attr interface represents an attribute in an Element object.
+Typically the allowable values for the attribute are defined in a
+document type definition.
+
+Attr objects inherit the Node interface, but since they are not
+actually child nodes of the element they describe, the DOM does not
+consider them part of the document tree. Thus, the Node attributes
+parentNode, previousSibling, and nextSibling have a undef value for Attr
+objects. The DOM takes the view that attributes are properties of
+elements rather than having a separate identity from the elements they
+are associated with; this should make it more efficient to implement
+such features as default attributes associated with all elements of a
+given type. Furthermore, Attr nodes may not be immediate children of a
+DocumentFragment. However, they can be associated with Element nodes
+contained within a DocumentFragment. In short, users and implementors
+of the DOM need to be aware that Attr nodes have some things in common
+with other objects inheriting the Node interface, but they also are
+quite distinct.
+
+The attribute's effective value is determined as follows: if this
+attribute has been explicitly assigned any value, that value is the
+attribute's effective value; otherwise, if there is a declaration for
+this attribute, and that declaration includes a default value, then
+that default value is the attribute's effective value; otherwise, the
+attribute does not exist on this element in the structure model until
+it has been explicitly added. Note that the nodeValue attribute on the
+Attr instance can also be used to retrieve the string version of the
+attribute's value(s).
+
+In XML, where the value of an attribute can contain entity references,
+the child nodes of the Attr node provide a representation in which
+entity references are not expanded. These child nodes may be either
+Text or EntityReference nodes. Because the attribute type may be
+unknown, there are no tokenized attribute values.
+
+=head2 METHODS
+
+=over 4
+
+=item getValue
+
+On retrieval, the value of the attribute is returned as a string.
+Character and general entity references are replaced with their values.
+
+=item setValue (str)
+
+DOM Spec: On setting, this creates a Text node with the unparsed contents of the
+string.
+
+=item getName
+
+Returns the name of this attribute.
+
+=back
diff --git a/src/main/resources/project/lib/XML/DOM/CDATASection.pod b/src/main/resources/project/lib/XML/DOM/CDATASection.pod
new file mode 100644
index 0000000..54c26e1
--- /dev/null
+++ b/src/main/resources/project/lib/XML/DOM/CDATASection.pod
@@ -0,0 +1,31 @@
+=head1 NAME
+
+XML::DOM::CDATASection - Escaping XML text blocks in XML::DOM
+
+=head1 DESCRIPTION
+
+XML::DOM::CDATASection extends L which extends
+L.
+
+CDATA sections are used to escape blocks of text containing characters
+that would otherwise be regarded as markup. The only delimiter that is
+recognized in a CDATA section is the "]]>" string that ends the CDATA
+section. CDATA sections can not be nested. The primary purpose is for
+including material such as XML fragments, without needing to escape all
+the delimiters.
+
+The DOMString attribute of the Text node holds the text that is
+contained by the CDATA section. Note that this may contain characters
+that need to be escaped outside of CDATA sections and that, depending
+on the character encoding ("charset") chosen for serialization, it may
+be impossible to write out some characters as part of a CDATA section.
+
+The CDATASection interface inherits the CharacterData interface through
+the Text interface. Adjacent CDATASections nodes are not merged by use
+of the Element.normalize() method.
+
+B XML::DOM::Parser and XML::DOM::ValParser convert all CDATASections
+to regular text by default.
+To preserve CDATASections, set the parser option KeepCDATA to 1.
+
+
diff --git a/src/main/resources/project/lib/XML/DOM/CharacterData.pod b/src/main/resources/project/lib/XML/DOM/CharacterData.pod
new file mode 100644
index 0000000..da591a7
--- /dev/null
+++ b/src/main/resources/project/lib/XML/DOM/CharacterData.pod
@@ -0,0 +1,87 @@
+=head1 NAME
+
+XML::DOM::CharacterData - Common interface for Text, CDATASections and Comments
+
+=head1 DESCRIPTION
+
+XML::DOM::CharacterData extends L
+
+The CharacterData interface extends Node with a set of attributes and
+methods for accessing character data in the DOM. For clarity this set
+is defined here rather than on each object that uses these attributes
+and methods. No DOM objects correspond directly to CharacterData,
+though Text, Comment and CDATASection do inherit the interface from it.
+All offsets in this interface start from 0.
+
+=head2 METHODS
+
+=over 4
+
+=item getData and setData (data)
+
+The character data of the node that implements this
+interface. The DOM implementation may not put arbitrary
+limits on the amount of data that may be stored in a
+CharacterData node. However, implementation limits may mean
+that the entirety of a node's data may not fit into a single
+DOMString. In such cases, the user may call substringData to
+retrieve the data in appropriately sized pieces.
+
+=item getLength
+
+The number of characters that are available through data and
+the substringData method below. This may have the value zero,
+i.e., CharacterData nodes may be empty.
+
+=item substringData (offset, count)
+
+Extracts a range of data from the node.
+
+Parameters:
+ I Start offset of substring to extract.
+ I The number of characters to extract.
+
+Return Value: The specified substring. If the sum of offset and count
+exceeds the length, then all characters to the end of
+the data are returned.
+
+=item appendData (str)
+
+Appends the string to the end of the character data of the
+node. Upon success, data provides access to the concatenation
+of data and the DOMString specified.
+
+=item insertData (offset, arg)
+
+Inserts a string at the specified character offset.
+
+Parameters:
+ I The character offset at which to insert.
+ I The DOMString to insert.
+
+=item deleteData (offset, count)
+
+Removes a range of characters from the node.
+Upon success, data and length reflect the change.
+If the sum of offset and count exceeds length then all characters
+from offset to the end of the data are deleted.
+
+Parameters:
+ I The offset from which to remove characters.
+ I The number of characters to delete.
+
+=item replaceData (offset, count, arg)
+
+Replaces the characters starting at the specified character
+offset with the specified string.
+
+Parameters:
+ I The offset from which to start replacing.
+ I The number of characters to replace.
+ I The DOMString with which the range must be replaced.
+
+If the sum of offset and count exceeds length, then all characters to the end of
+the data are replaced (i.e., the effect is the same as a remove method call with
+the same range, followed by an append method invocation).
+
+=back
diff --git a/src/main/resources/project/lib/XML/DOM/Comment.pod b/src/main/resources/project/lib/XML/DOM/Comment.pod
new file mode 100644
index 0000000..f8e2cb2
--- /dev/null
+++ b/src/main/resources/project/lib/XML/DOM/Comment.pod
@@ -0,0 +1,14 @@
+=head1 NAME
+
+XML::DOM::Comment - An XML comment in XML::DOM
+
+=head1 DESCRIPTION
+
+XML::DOM::Comment extends L which extends
+L.
+
+This node represents the content of a comment, i.e., all the characters
+between the starting ''. Note that this is the
+definition of a comment in XML, and, in practice, HTML, although some
+HTML tools may implement the full SGML comment structure.
+
diff --git a/src/main/resources/project/lib/XML/DOM/DOMException.pm b/src/main/resources/project/lib/XML/DOM/DOMException.pm
new file mode 100644
index 0000000..d49c698
--- /dev/null
+++ b/src/main/resources/project/lib/XML/DOM/DOMException.pm
@@ -0,0 +1,88 @@
+######################################################################
+package XML::DOM::DOMException;
+######################################################################
+
+use Exporter;
+
+use overload '""' => \&stringify;
+use vars qw ( @ISA @EXPORT @ErrorNames );
+
+BEGIN
+{
+ @ISA = qw( Exporter );
+ @EXPORT = qw( INDEX_SIZE_ERR
+ DOMSTRING_SIZE_ERR
+ HIERARCHY_REQUEST_ERR
+ WRONG_DOCUMENT_ERR
+ INVALID_CHARACTER_ERR
+ NO_DATA_ALLOWED_ERR
+ NO_MODIFICATION_ALLOWED_ERR
+ NOT_FOUND_ERR
+ NOT_SUPPORTED_ERR
+ INUSE_ATTRIBUTE_ERR
+ );
+}
+
+sub UNKNOWN_ERR () {0;} # not in the DOM Spec!
+sub INDEX_SIZE_ERR () {1;}
+sub DOMSTRING_SIZE_ERR () {2;}
+sub HIERARCHY_REQUEST_ERR () {3;}
+sub WRONG_DOCUMENT_ERR () {4;}
+sub INVALID_CHARACTER_ERR () {5;}
+sub NO_DATA_ALLOWED_ERR () {6;}
+sub NO_MODIFICATION_ALLOWED_ERR () {7;}
+sub NOT_FOUND_ERR () {8;}
+sub NOT_SUPPORTED_ERR () {9;}
+sub INUSE_ATTRIBUTE_ERR () {10;}
+
+@ErrorNames = (
+ "UNKNOWN_ERR",
+ "INDEX_SIZE_ERR",
+ "DOMSTRING_SIZE_ERR",
+ "HIERARCHY_REQUEST_ERR",
+ "WRONG_DOCUMENT_ERR",
+ "INVALID_CHARACTER_ERR",
+ "NO_DATA_ALLOWED_ERR",
+ "NO_MODIFICATION_ALLOWED_ERR",
+ "NOT_FOUND_ERR",
+ "NOT_SUPPORTED_ERR",
+ "INUSE_ATTRIBUTE_ERR"
+ );
+sub new
+{
+ my ($type, $code, $msg) = @_;
+ my $self = bless {Code => $code}, $type;
+
+ $self->{Message} = $msg if defined $msg;
+
+# print "=> Exception: " . $self->stringify . "\n";
+ $self;
+}
+
+sub getCode
+{
+ $_[0]->{Code};
+}
+
+#------------------------------------------------------------
+# Extra method implementations
+
+sub getName
+{
+ $ErrorNames[$_[0]->{Code}];
+}
+
+sub getMessage
+{
+ $_[0]->{Message};
+}
+
+sub stringify
+{
+ my $self = shift;
+
+ "XML::DOM::DOMException(Code=" . $self->getCode . ", Name=" .
+ $self->getName . ", Message=" . $self->getMessage . ")";
+}
+
+1; # package return code
diff --git a/src/main/resources/project/lib/XML/DOM/DOMImplementation.pod b/src/main/resources/project/lib/XML/DOM/DOMImplementation.pod
new file mode 100644
index 0000000..cb5e34d
--- /dev/null
+++ b/src/main/resources/project/lib/XML/DOM/DOMImplementation.pod
@@ -0,0 +1,24 @@
+=head1 NAME
+
+XML::DOM::DOMImplementation - Information about XML::DOM implementation
+
+=head1 DESCRIPTION
+
+The DOMImplementation interface provides a number of methods for
+performing operations that are independent of any particular instance
+of the document object model.
+
+The DOM Level 1 does not specify a way of creating a document instance,
+and hence document creation is an operation specific to an
+implementation. Future Levels of the DOM specification are expected to
+provide methods for creating documents directly.
+
+=head2 METHODS
+
+=over 4
+
+=item hasFeature (feature, version)
+
+Returns 1 if and only if feature equals "XML" and version equals "1.0".
+
+=back
diff --git a/src/main/resources/project/lib/XML/DOM/Document.pod b/src/main/resources/project/lib/XML/DOM/Document.pod
new file mode 100644
index 0000000..f8e7b81
--- /dev/null
+++ b/src/main/resources/project/lib/XML/DOM/Document.pod
@@ -0,0 +1,220 @@
+=head1 NAME
+
+XML::DOM::Document - An XML document node in XML::DOM
+
+=head1 DESCRIPTION
+
+XML::DOM::Document extends L.
+
+It is the main root of the XML document structure as returned by
+XML::DOM::Parser::parse and XML::DOM::Parser::parsefile.
+
+Since elements, text nodes, comments, processing instructions, etc.
+cannot exist outside the context of a Document, the Document interface
+also contains the factory methods needed to create these objects. The
+Node objects created have a getOwnerDocument method which associates
+them with the Document within whose context they were created.
+
+=head2 METHODS
+
+=over 4
+
+=item getDocumentElement
+
+This is a convenience method that allows direct access to
+the child node that is the root Element of the document.
+
+=item getDoctype
+
+The Document Type Declaration (see DocumentType) associated
+with this document. For HTML documents as well as XML
+documents without a document type declaration this returns
+undef. The DOM Level 1 does not support editing the Document
+Type Declaration.
+
+B: This implementation allows editing the doctype.
+See I for details.
+
+=item getImplementation
+
+The DOMImplementation object that handles this document. A
+DOM application may use objects from multiple implementations.
+
+=item createElement (tagName)
+
+Creates an element of the type specified. Note that the
+instance returned implements the Element interface, so
+attributes can be specified directly on the returned object.
+
+DOMExceptions:
+
+=over 4
+
+=item * INVALID_CHARACTER_ERR
+
+Raised if the tagName does not conform to the XML spec.
+
+=back
+
+=item createTextNode (data)
+
+Creates a Text node given the specified string.
+
+=item createComment (data)
+
+Creates a Comment node given the specified string.
+
+=item createCDATASection (data)
+
+Creates a CDATASection node given the specified string.
+
+=item createAttribute (name [, value [, specified ]])
+
+Creates an Attr of the given name. Note that the Attr
+instance can then be set on an Element using the setAttribute method.
+
+B: The DOM Spec does not allow passing the value or the
+specified property in this method. In this implementation they are optional.
+
+Parameters:
+ I The attribute's value. See Attr::setValue for details.
+ If the value is not supplied, the specified property is set to 0.
+ I Whether the attribute value was specified or whether the default
+ value was used. If not supplied, it's assumed to be 1.
+
+DOMExceptions:
+
+=over 4
+
+=item * INVALID_CHARACTER_ERR
+
+Raised if the name does not conform to the XML spec.
+
+=back
+
+=item createProcessingInstruction (target, data)
+
+Creates a ProcessingInstruction node given the specified name and data strings.
+
+Parameters:
+ I The target part of the processing instruction.
+ I The data for the node.
+
+DOMExceptions:
+
+=over 4
+
+=item * INVALID_CHARACTER_ERR
+
+Raised if the target does not conform to the XML spec.
+
+=back
+
+=item createDocumentFragment
+
+Creates an empty DocumentFragment object.
+
+=item createEntityReference (name)
+
+Creates an EntityReference object.
+
+=back
+
+=head2 Additional methods not in the DOM Spec
+
+=over 4
+
+=item getXMLDecl and setXMLDecl (xmlDecl)
+
+Returns the XMLDecl for this Document or undef if none was specified.
+Note that XMLDecl is not part of the list of child nodes.
+
+=item setDoctype (doctype)
+
+Sets or replaces the DocumentType.
+B: Don't use appendChild or insertBefore to set the DocumentType.
+Even though doctype will be part of the list of child nodes, it is handled
+specially.
+
+=item getDefaultAttrValue (elem, attr)
+
+Returns the default attribute value as a string or undef, if none is available.
+
+Parameters:
+ I The element tagName.
+ I The attribute name.
+
+=item getEntity (name)
+
+Returns the Entity with the specified name.
+
+=item createXMLDecl (version, encoding, standalone)
+
+Creates an XMLDecl object. All parameters may be undefined.
+
+=item createDocumentType (name, sysId, pubId)
+
+Creates a DocumentType object. SysId and pubId may be undefined.
+
+=item createNotation (name, base, sysId, pubId)
+
+Creates a new Notation object. Consider using
+XML::DOM::DocumentType::addNotation!
+
+=item createEntity (parameter, notationName, value, sysId, pubId, ndata)
+
+Creates an Entity object. Consider using XML::DOM::DocumentType::addEntity!
+
+=item createElementDecl (name, model)
+
+Creates an ElementDecl object.
+
+DOMExceptions:
+
+=over 4
+
+=item * INVALID_CHARACTER_ERR
+
+Raised if the element name (tagName) does not conform to the XML spec.
+
+=back
+
+=item createAttlistDecl (name)
+
+Creates an AttlistDecl object.
+
+DOMExceptions:
+
+=over 4
+
+=item * INVALID_CHARACTER_ERR
+
+Raised if the element name (tagName) does not conform to the XML spec.
+
+=back
+
+=item expandEntity (entity [, parameter])
+
+Expands the specified entity or parameter entity (if parameter=1) and returns
+its value as a string, or undef if the entity does not exist.
+(The entity name should not contain the '%', '&' or ';' delimiters.)
+
+=item check ( [$checker] )
+
+Uses the specified L to validate the document.
+If no XML::Checker is supplied, a new XML::Checker is created.
+See L for details.
+
+=item check_sax ( [$checker] )
+
+Similar to check() except it uses the SAX interface to XML::Checker instead of
+the expat interface. This method may disappear or replace check() at some time.
+
+=item createChecker ()
+
+Creates an XML::Checker based on the document's DTD.
+The $checker can be reused to check any elements within the document.
+Create a new L whenever the DOCTYPE section of the document
+is altered!
+
+=back
diff --git a/src/main/resources/project/lib/XML/DOM/DocumentFragment.pod b/src/main/resources/project/lib/XML/DOM/DocumentFragment.pod
new file mode 100644
index 0000000..aae2cd6
--- /dev/null
+++ b/src/main/resources/project/lib/XML/DOM/DocumentFragment.pod
@@ -0,0 +1,40 @@
+=head1 NAME
+
+XML::DOM::DocumentFragment - Facilitates cut & paste in XML::DOM documents
+
+=head1 DESCRIPTION
+
+XML::DOM::DocumentFragment extends L
+
+DocumentFragment is a "lightweight" or "minimal" Document object. It is
+very common to want to be able to extract a portion of a document's
+tree or to create a new fragment of a document. Imagine implementing a
+user command like cut or rearranging a document by moving fragments
+around. It is desirable to have an object which can hold such fragments
+and it is quite natural to use a Node for this purpose. While it is
+true that a Document object could fulfil this role, a Document object
+can potentially be a heavyweight object, depending on the underlying
+implementation. What is really needed for this is a very lightweight
+object. DocumentFragment is such an object.
+
+Furthermore, various operations -- such as inserting nodes as children
+of another Node -- may take DocumentFragment objects as arguments; this
+results in all the child nodes of the DocumentFragment being moved to
+the child list of this node.
+
+The children of a DocumentFragment node are zero or more nodes
+representing the tops of any sub-trees defining the structure of the
+document. DocumentFragment nodes do not need to be well-formed XML
+documents (although they do need to follow the rules imposed upon
+well-formed XML parsed entities, which can have multiple top nodes).
+For example, a DocumentFragment might have only one child and that
+child node could be a Text node. Such a structure model represents
+neither an HTML document nor a well-formed XML document.
+
+When a DocumentFragment is inserted into a Document (or indeed any
+other Node that may take children) the children of the DocumentFragment
+and not the DocumentFragment itself are inserted into the Node. This
+makes the DocumentFragment very useful when the user wishes to create
+nodes that are siblings; the DocumentFragment acts as the parent of
+these nodes so that the user can use the standard methods from the Node
+interface, such as insertBefore() and appendChild().
diff --git a/src/main/resources/project/lib/XML/DOM/DocumentType.pod b/src/main/resources/project/lib/XML/DOM/DocumentType.pod
new file mode 100644
index 0000000..51bf690
--- /dev/null
+++ b/src/main/resources/project/lib/XML/DOM/DocumentType.pod
@@ -0,0 +1,182 @@
+=head1 NAME
+
+XML::DOM::DocumentType - An XML document type (DTD) in XML::DOM
+
+=head1 DESCRIPTION
+
+XML::DOM::DocumentType extends L.
+
+Each Document has a doctype attribute whose value is either null or a
+DocumentType object. The DocumentType interface in the DOM Level 1 Core
+provides an interface to the list of entities that are defined for the
+document, and little else because the effect of namespaces and the
+various XML scheme efforts on DTD representation are not clearly
+understood as of this writing.
+The DOM Level 1 doesn't support editing DocumentType nodes.
+
+B: This implementation has added a lot of extra
+functionality to the DOM Level 1 interface.
+To allow editing of the DocumentType nodes, see XML::DOM::ignoreReadOnly.
+
+=head2 METHODS
+
+=over 4
+
+=item getName
+
+Returns the name of the DTD, i.e. the name immediately following the
+DOCTYPE keyword.
+
+=item getEntities
+
+A NamedNodeMap containing the general entities, both external
+and internal, declared in the DTD. Duplicates are discarded.
+For example in:
+
+
+
+
+ ]>
+
+
+the interface provides access to foo and bar but not baz.
+Every node in this map also implements the Entity interface.
+
+The DOM Level 1 does not support editing entities, therefore
+entities cannot be altered in any way.
+
+B: See XML::DOM::ignoreReadOnly to edit the DocumentType etc.
+
+=item getNotations
+
+A NamedNodeMap containing the notations declared in the DTD.
+Duplicates are discarded. Every node in this map also
+implements the Notation interface.
+
+The DOM Level 1 does not support editing notations, therefore
+notations cannot be altered in any way.
+
+B: See XML::DOM::ignoreReadOnly to edit the DocumentType etc.
+
+=head2 Additional methods not in the DOM Spec
+
+=item Creating and setting the DocumentType
+
+A new DocumentType can be created with:
+
+ $doctype = $doc->createDocumentType ($name, $sysId, $pubId, $internal);
+
+To set (or replace) the DocumentType for a particular document, use:
+
+ $doc->setDocType ($doctype);
+
+=item getSysId and setSysId (sysId)
+
+Returns or sets the system id.
+
+=item getPubId and setPubId (pudId)
+
+Returns or sets the public id.
+
+=item setName (name)
+
+Sets the name of the DTD, i.e. the name immediately following the
+DOCTYPE keyword. Note that this should always be the same as the element
+tag name of the root element.
+
+=item getAttlistDecl (elemName)
+
+Returns the AttlistDecl for the Element with the specified name, or undef.
+
+=item getElementDecl (elemName)
+
+Returns the ElementDecl for the Element with the specified name, or undef.
+
+=item getEntity (entityName)
+
+Returns the Entity with the specified name, or undef.
+
+=item addAttlistDecl (elemName)
+
+Adds a new AttDecl node with the specified elemName if one doesn't exist yet.
+Returns the AttlistDecl (new or existing) node.
+
+=item addElementDecl (elemName, model)
+
+Adds a new ElementDecl node with the specified elemName and model if one doesn't
+exist yet.
+Returns the AttlistDecl (new or existing) node. The model is ignored if one
+already existed.
+
+=item addEntity (notationName, value, sysId, pubId, ndata, parameter)
+
+Adds a new Entity node. Don't use createEntity and appendChild, because it should
+be added to the internal NamedNodeMap containing the entities.
+
+Parameters:
+ I the entity name.
+ I the entity value.
+ I the system id (if any.)
+ I the public id (if any.)
+ I the NDATA declaration (if any, for general unparsed entities.)
+ I whether it is a parameter entity (%ent;) or not (&ent;).
+
+SysId, pubId and ndata may be undefined.
+
+DOMExceptions:
+
+=over 4
+
+=item * INVALID_CHARACTER_ERR
+
+Raised if the notationName does not conform to the XML spec.
+
+=back
+
+=item addNotation (name, base, sysId, pubId)
+
+Adds a new Notation object.
+
+Parameters:
+ I the notation name.
+ I the base to be used for resolving a relative URI.
+ I the system id.
+ I the public id.
+
+Base, sysId, and pubId may all be undefined.
+(These parameters are passed by the XML::Parser Notation handler.)
+
+DOMExceptions:
+
+=over 4
+
+=item * INVALID_CHARACTER_ERR
+
+Raised if the notationName does not conform to the XML spec.
+
+=back
+
+=item addAttDef (elemName, attrName, type, default, fixed)
+
+Adds a new attribute definition. It will add the AttDef node to the AttlistDecl
+if it exists. If an AttDef with the specified attrName already exists for the
+given elemName, this function only generates a warning.
+
+See XML::DOM::AttDef::new for the other parameters.
+
+=item getDefaultAttrValue (elem, attr)
+
+Returns the default attribute value as a string or undef, if none is available.
+
+Parameters:
+ I The element tagName.
+ I The attribute name.
+
+=item expandEntity (entity [, parameter])
+
+Expands the specified entity or parameter entity (if parameter=1) and returns
+its value as a string, or undef if the entity does not exist.
+(The entity name should not contain the '%', '&' or ';' delimiters.)
+
+=back
diff --git a/src/main/resources/project/lib/XML/DOM/Element.pod b/src/main/resources/project/lib/XML/DOM/Element.pod
new file mode 100644
index 0000000..d4a289a
--- /dev/null
+++ b/src/main/resources/project/lib/XML/DOM/Element.pod
@@ -0,0 +1,189 @@
+=head1 NAME
+
+XML::DOM::Element - An XML element node in XML::DOM
+
+=head1 DESCRIPTION
+
+XML::DOM::Element extends L.
+
+By far the vast majority of objects (apart from text) that authors
+encounter when traversing a document are Element nodes. Assume the
+following XML document:
+
+
+
+
+
+
+When represented using DOM, the top node is an Element node for
+"elementExample", which contains two child Element nodes, one for
+"subelement1" and one for "subelement2". "subelement1" contains no
+child nodes.
+
+Elements may have attributes associated with them; since the Element
+interface inherits from Node, the generic Node interface method
+getAttributes may be used to retrieve the set of all attributes for an
+element. There are methods on the Element interface to retrieve either
+an Attr object by name or an attribute value by name. In XML, where an
+attribute value may contain entity references, an Attr object should be
+retrieved to examine the possibly fairly complex sub-tree representing
+the attribute value. On the other hand, in HTML, where all attributes
+have simple string values, methods to directly access an attribute
+value can safely be used as a convenience.
+
+=head2 METHODS
+
+=over 4
+
+=item getTagName
+
+The name of the element. For example, in:
+
+
+ ...
+
+
+tagName has the value "elementExample". Note that this is
+case-preserving in XML, as are all of the operations of the
+DOM.
+
+=item getAttribute (name)
+
+Retrieves an attribute value by name.
+
+Return Value: The Attr value as a string, or the empty string if that
+attribute does not have a specified or default value.
+
+=item setAttribute (name, value)
+
+Adds a new attribute. If an attribute with that name is
+already present in the element, its value is changed to be
+that of the value parameter. This value is a simple string,
+it is not parsed as it is being set. So any markup (such as
+syntax to be recognized as an entity reference) is treated as
+literal text, and needs to be appropriately escaped by the
+implementation when it is written out. In order to assign an
+attribute value that contains entity references, the user
+must create an Attr node plus any Text and EntityReference
+nodes, build the appropriate subtree, and use
+setAttributeNode to assign it as the value of an attribute.
+
+
+DOMExceptions:
+
+=over 4
+
+=item * INVALID_CHARACTER_ERR
+
+Raised if the specified name contains an invalid character.
+
+=item * NO_MODIFICATION_ALLOWED_ERR
+
+Raised if this node is readonly.
+
+=back
+
+=item removeAttribute (name)
+
+Removes an attribute by name. If the removed attribute has a
+default value it is immediately replaced.
+
+DOMExceptions:
+
+=over 4
+
+=item * NO_MODIFICATION_ALLOWED_ERR
+
+Raised if this node is readonly.
+
+=back
+
+=item getAttributeNode
+
+Retrieves an Attr node by name.
+
+Return Value: The Attr node with the specified attribute name or undef
+if there is no such attribute.
+
+=item setAttributeNode (attr)
+
+Adds a new attribute. If an attribute with that name is
+already present in the element, it is replaced by the new one.
+
+Return Value: If the newAttr attribute replaces an existing attribute
+with the same name, the previously existing Attr node is
+returned, otherwise undef is returned.
+
+DOMExceptions:
+
+=over 4
+
+=item * WRONG_DOCUMENT_ERR
+
+Raised if newAttr was created from a different document than the one that created
+the element.
+
+=item * NO_MODIFICATION_ALLOWED_ERR
+
+Raised if this node is readonly.
+
+=item * INUSE_ATTRIBUTE_ERR
+
+Raised if newAttr is already an attribute of another Element object. The DOM
+user must explicitly clone Attr nodes to re-use them in other elements.
+
+=back
+
+=item removeAttributeNode (oldAttr)
+
+Removes the specified attribute. If the removed Attr has a default value it is
+immediately replaced. If the Attr already is the default value, nothing happens
+and nothing is returned.
+
+Parameters:
+ I The Attr node to remove from the attribute list.
+
+Return Value: The Attr node that was removed.
+
+DOMExceptions:
+
+=over 4
+
+=item * NO_MODIFICATION_ALLOWED_ERR
+
+Raised if this node is readonly.
+
+=item * NOT_FOUND_ERR
+
+Raised if oldAttr is not an attribute of the element.
+
+=back
+
+=head2 Additional methods not in the DOM Spec
+
+=over 4
+
+=item setTagName (newTagName)
+
+Sets the tag name of the Element. Note that this method is not portable
+between DOM implementations.
+
+DOMExceptions:
+
+=over 4
+
+=item * INVALID_CHARACTER_ERR
+
+Raised if the specified name contains an invalid character.
+
+=back
+
+=item check ($checker)
+
+Uses the specified L to validate the document.
+NOTE: an XML::Checker must be supplied. The checker can be created in
+different ways, e.g. when parsing a document with XML::DOM::ValParser,
+or with XML::DOM::Document::createChecker().
+See L for more info.
+
+=back
diff --git a/src/main/resources/project/lib/XML/DOM/ElementDecl.pod b/src/main/resources/project/lib/XML/DOM/ElementDecl.pod
new file mode 100644
index 0000000..dd59b69
--- /dev/null
+++ b/src/main/resources/project/lib/XML/DOM/ElementDecl.pod
@@ -0,0 +1,27 @@
+=head1 NAME
+
+XML::DOM::ElementDecl - An XML ELEMENT declaration in XML::DOM
+
+=head1 DESCRIPTION
+
+XML::DOM::ElementDecl extends L but is not part of the
+DOM Level 1 specification.
+
+This node represents an Element declaration, e.g.
+
+
+
+=head2 METHODS
+
+=over 4
+
+=item getName
+
+Returns the Element tagName.
+
+=item getModel and setModel (model)
+
+Returns and sets the model as a string, e.g.
+"(street+, city, state, zip, country?)" in the above example.
+
+=back
diff --git a/src/main/resources/project/lib/XML/DOM/Entity.pod b/src/main/resources/project/lib/XML/DOM/Entity.pod
new file mode 100644
index 0000000..45418e8
--- /dev/null
+++ b/src/main/resources/project/lib/XML/DOM/Entity.pod
@@ -0,0 +1,56 @@
+=head1 NAME
+
+XML::DOM::Entity - An XML ENTITY in XML::DOM
+
+=head1 DESCRIPTION
+
+XML::DOM::Entity extends L.
+
+This node represents an Entity declaration, e.g.
+
+
+
+
+
+The first one is called a parameter entity and is referenced like this: %draft;
+The 2nd is a (regular) entity and is referenced like this: &hatch-pic;
+
+=head2 METHODS
+
+=over 4
+
+=item getNotationName
+
+Returns the name of the notation for the entity.
+
+I The DOM Spec says: For unparsed entities, the name of the
+notation for the entity. For parsed entities, this is null.
+(This implementation does not support unparsed entities.)
+
+=item getSysId
+
+Returns the system id, or undef.
+
+=item getPubId
+
+Returns the public id, or undef.
+
+=back
+
+=head2 Additional methods not in the DOM Spec
+
+=over 4
+
+=item isParameterEntity
+
+Whether it is a parameter entity (%ent;) or not (&ent;)
+
+=item getValue
+
+Returns the entity value.
+
+=item getNdata
+
+Returns the NDATA declaration (for general unparsed entities), or undef.
+
+=back
diff --git a/src/main/resources/project/lib/XML/DOM/EntityReference.pod b/src/main/resources/project/lib/XML/DOM/EntityReference.pod
new file mode 100644
index 0000000..4ecda31
--- /dev/null
+++ b/src/main/resources/project/lib/XML/DOM/EntityReference.pod
@@ -0,0 +1,27 @@
+=head1 NAME
+
+XML::DOM::EntityReference - An XML ENTITY reference in XML::DOM
+
+=head1 DESCRIPTION
+
+XML::DOM::EntityReference extends L.
+
+EntityReference objects may be inserted into the structure model when
+an entity reference is in the source document, or when the user wishes
+to insert an entity reference. Note that character references and
+references to predefined entities are considered to be expanded by the
+HTML or XML processor so that characters are represented by their
+Unicode equivalent rather than by an entity reference. Moreover, the
+XML processor may completely expand references to entities while
+building the structure model, instead of providing EntityReference
+objects. If it does provide such objects, then for a given
+EntityReference node, it may be that there is no Entity node
+representing the referenced entity; but if such an Entity exists, then
+the child list of the EntityReference node is the same as that of the
+Entity node. As with the Entity node, all descendants of the
+EntityReference are readonly.
+
+The resolution of the children of the EntityReference (the replacement
+value of the referenced Entity) may be lazily evaluated; actions by the
+user (such as calling the childNodes method on the EntityReference
+node) are assumed to trigger the evaluation.
diff --git a/src/main/resources/project/lib/XML/DOM/NamedNodeMap.pm b/src/main/resources/project/lib/XML/DOM/NamedNodeMap.pm
new file mode 100644
index 0000000..71ca9a6
--- /dev/null
+++ b/src/main/resources/project/lib/XML/DOM/NamedNodeMap.pm
@@ -0,0 +1,274 @@
+######################################################################
+package XML::DOM::NamedNodeMap;
+######################################################################
+
+use strict;
+
+use ElectricCommander;
+use ElectricCommander::PropMod qw(/myProject/lib);
+
+use Carp;
+use XML::DOM::DOMException;
+use XML::DOM::NodeList;
+
+use vars qw( $Special );
+
+# Constant definition:
+# Note: a real Name should have at least 1 char, so nobody else should use this
+$Special = "";
+
+sub new
+{
+ my ($class, %args) = @_;
+
+ $args{Values} = new XML::DOM::NodeList;
+
+ # Store all NamedNodeMap properties in element $Special
+ bless { $Special => \%args}, $class;
+}
+
+sub getNamedItem
+{
+ # Don't return the $Special item!
+ ($_[1] eq $Special) ? undef : $_[0]->{$_[1]};
+}
+
+sub setNamedItem
+{
+ my ($self, $node) = @_;
+ my $prop = $self->{$Special};
+
+ my $name = $node->getNodeName;
+
+ if ($XML::DOM::SafeMode)
+ {
+ croak new XML::DOM::DOMException (NO_MODIFICATION_ALLOWED_ERR)
+ if $self->isReadOnly;
+
+ croak new XML::DOM::DOMException (WRONG_DOCUMENT_ERR)
+ if $node->[XML::DOM::Node::_Doc] != $prop->{Doc};
+
+ croak new XML::DOM::DOMException (INUSE_ATTRIBUTE_ERR)
+ if defined ($node->[XML::DOM::Node::_UsedIn]);
+
+ croak new XML::DOM::DOMException (INVALID_CHARACTER_ERR,
+ "can't add name with NodeName [$name] to NamedNodeMap")
+ if $name eq $Special;
+ }
+
+ my $values = $prop->{Values};
+ my $index = -1;
+
+ my $prev = $self->{$name};
+ if (defined $prev)
+ {
+ # decouple previous node
+ $prev->decoupleUsedIn;
+
+ # find index of $prev
+ $index = 0;
+ for my $val (@{$values})
+ {
+ last if ($val == $prev);
+ $index++;
+ }
+ }
+
+ $self->{$name} = $node;
+ $node->[XML::DOM::Node::_UsedIn] = $self;
+
+ if ($index == -1)
+ {
+ push (@{$values}, $node);
+ }
+ else # replace previous node with new node
+ {
+ splice (@{$values}, $index, 1, $node);
+ }
+
+ $prev;
+}
+
+sub removeNamedItem
+{
+ my ($self, $name) = @_;
+
+ # Be careful that user doesn't delete $Special node!
+ croak new XML::DOM::DOMException (NOT_FOUND_ERR)
+ if $name eq $Special;
+
+ my $node = $self->{$name};
+
+ croak new XML::DOM::DOMException (NOT_FOUND_ERR)
+ unless defined $node;
+
+ # The DOM Spec doesn't mention this Exception - I think it's an oversight
+ croak new XML::DOM::DOMException (NO_MODIFICATION_ALLOWED_ERR)
+ if $self->isReadOnly;
+
+ $node->decoupleUsedIn;
+ delete $self->{$name};
+
+ # remove node from Values list
+ my $values = $self->getValues;
+ my $index = 0;
+ for my $val (@{$values})
+ {
+ if ($val == $node)
+ {
+ splice (@{$values}, $index, 1, ());
+ last;
+ }
+ $index++;
+ }
+ $node;
+}
+
+# The following 2 are really bogus. DOM should use an iterator instead (Clark)
+
+sub item
+{
+ my ($self, $item) = @_;
+ $self->{$Special}->{Values}->[$item];
+}
+
+sub getLength
+{
+ my ($self) = @_;
+ my $vals = $self->{$Special}->{Values};
+ int (@$vals);
+}
+
+#------------------------------------------------------------
+# Extra method implementations
+
+sub isReadOnly
+{
+ return 0 if $XML::DOM::IgnoreReadOnly;
+
+ my $used = $_[0]->{$Special}->{UsedIn};
+ defined $used ? $used->isReadOnly : 0;
+}
+
+sub cloneNode
+{
+ my ($self, $deep) = @_;
+ my $prop = $self->{$Special};
+
+ my $map = new XML::DOM::NamedNodeMap (Doc => $prop->{Doc});
+ # Not copying Parent property on purpose!
+
+ local $XML::DOM::IgnoreReadOnly = 1; # temporarily...
+
+ for my $val (@{$prop->{Values}})
+ {
+ my $key = $val->getNodeName;
+
+ my $newNode = $val->cloneNode ($deep);
+ $newNode->[XML::DOM::Node::_UsedIn] = $map;
+ $map->{$key} = $newNode;
+ push (@{$map->{$Special}->{Values}}, $newNode);
+ }
+
+ $map;
+}
+
+sub setOwnerDocument
+{
+ my ($self, $doc) = @_;
+ my $special = $self->{$Special};
+
+ $special->{Doc} = $doc;
+ for my $kid (@{$special->{Values}})
+ {
+ $kid->setOwnerDocument ($doc);
+ }
+}
+
+sub getChildIndex
+{
+ my ($self, $attr) = @_;
+ my $i = 0;
+ for my $kid (@{$self->{$Special}->{Values}})
+ {
+ return $i if $kid == $attr;
+ $i++;
+ }
+ -1; # not found
+}
+
+sub getValues
+{
+ wantarray ? @{ $_[0]->{$Special}->{Values} } : $_[0]->{$Special}->{Values};
+}
+
+# Remove circular dependencies. The NamedNodeMap and its values should
+# not be used afterwards.
+sub dispose
+{
+ my $self = shift;
+
+ for my $kid (@{$self->getValues})
+ {
+ undef $kid->[XML::DOM::Node::_UsedIn]; # was delete
+ $kid->dispose;
+ }
+
+ delete $self->{$Special}->{Doc};
+ delete $self->{$Special}->{Parent};
+ delete $self->{$Special}->{Values};
+
+ for my $key (keys %$self)
+ {
+ delete $self->{$key};
+ }
+}
+
+sub setParentNode
+{
+ $_[0]->{$Special}->{Parent} = $_[1];
+}
+
+sub getProperty
+{
+ $_[0]->{$Special}->{$_[1]};
+}
+
+#?? remove after debugging
+sub toString
+{
+ my ($self) = @_;
+ my $str = "NamedNodeMap[";
+ while (my ($key, $val) = each %$self)
+ {
+ if ($key eq $Special)
+ {
+ $str .= "##Special (";
+ while (my ($k, $v) = each %$val)
+ {
+ if ($k eq "Values")
+ {
+ $str .= $k . " => [";
+ for my $a (@$v)
+ {
+# $str .= $a->getNodeName . "=" . $a . ",";
+ $str .= $a->toString . ",";
+ }
+ $str .= "], ";
+ }
+ else
+ {
+ $str .= $k . " => " . $v . ", ";
+ }
+ }
+ $str .= "), ";
+ }
+ else
+ {
+ $str .= $key . " => " . $val . ", ";
+ }
+ }
+ $str . "]";
+}
+
+1; # package return code
diff --git a/src/main/resources/project/lib/XML/DOM/NamedNodeMap.pod b/src/main/resources/project/lib/XML/DOM/NamedNodeMap.pod
new file mode 100644
index 0000000..62c2762
--- /dev/null
+++ b/src/main/resources/project/lib/XML/DOM/NamedNodeMap.pod
@@ -0,0 +1,130 @@
+=head1 NAME
+
+XML::DOM::NamedNodeMap - A hash table interface for XML::DOM
+
+=head1 DESCRIPTION
+
+Objects implementing the NamedNodeMap interface are used to represent
+collections of nodes that can be accessed by name. Note that
+NamedNodeMap does not inherit from NodeList; NamedNodeMaps are not
+maintained in any particular order. Objects contained in an object
+implementing NamedNodeMap may also be accessed by an ordinal index, but
+this is simply to allow convenient enumeration of the contents of a
+NamedNodeMap, and does not imply that the DOM specifies an order to
+these Nodes.
+
+Note that in this implementation, the objects added to a NamedNodeMap
+are kept in order.
+
+=head2 METHODS
+
+=over 4
+
+=item getNamedItem (name)
+
+Retrieves a node specified by name.
+
+Return Value: A Node (of any type) with the specified name, or undef if
+the specified name did not identify any node in the map.
+
+=item setNamedItem (arg)
+
+Adds a node using its nodeName attribute.
+
+As the nodeName attribute is used to derive the name which
+the node must be stored under, multiple nodes of certain
+types (those that have a "special" string value) cannot be
+stored as the names would clash. This is seen as preferable
+to allowing nodes to be aliased.
+
+Parameters:
+ I A node to store in a named node map.
+
+The node will later be accessible using the value of the nodeName
+attribute of the node. If a node with that name is
+already present in the map, it is replaced by the new one.
+
+Return Value: If the new Node replaces an existing node with the same
+name the previously existing Node is returned, otherwise undef is returned.
+
+DOMExceptions:
+
+=over 4
+
+=item * WRONG_DOCUMENT_ERR
+
+Raised if arg was created from a different document than the one that
+created the NamedNodeMap.
+
+=item * NO_MODIFICATION_ALLOWED_ERR
+
+Raised if this NamedNodeMap is readonly.
+
+=item * INUSE_ATTRIBUTE_ERR
+
+Raised if arg is an Attr that is already an attribute of another Element object.
+The DOM user must explicitly clone Attr nodes to re-use them in other elements.
+
+=back
+
+=item removeNamedItem (name)
+
+Removes a node specified by name. If the removed node is an
+Attr with a default value it is immediately replaced.
+
+Return Value: The node removed from the map or undef if no node with
+such a name exists.
+
+DOMException:
+
+=over 4
+
+=item * NOT_FOUND_ERR
+
+Raised if there is no node named name in the map.
+
+=back
+
+=item item (index)
+
+Returns the indexth item in the map. If index is greater than
+or equal to the number of nodes in the map, this returns undef.
+
+Return Value: The node at the indexth position in the NamedNodeMap, or
+undef if that is not a valid index.
+
+=item getLength
+
+Returns the number of nodes in the map. The range of valid child node
+indices is 0 to length-1 inclusive.
+
+=back
+
+=head2 Additional methods not in the DOM Spec
+
+=over 4
+
+=item getValues
+
+Returns a NodeList with the nodes contained in the NamedNodeMap.
+The NodeList is "live", in that it reflects changes made to the NamedNodeMap.
+
+When this method is called in a list context, it returns a regular perl list
+containing the values. Note that this list is not "live". E.g.
+
+ @list = $map->getValues; # returns a perl list
+ $nodelist = $map->getValues; # returns a NodeList (object ref.)
+ for my $val ($map->getValues) # iterate over the values
+
+=item getChildIndex (node)
+
+Returns the index of the node in the NodeList as returned by getValues, or -1
+if the node is not in the NamedNodeMap.
+
+=item dispose
+
+Removes all circular references in this NamedNodeMap and its descendants so the
+objects can be claimed for garbage collection. The objects should not be used
+afterwards.
+
+=back
diff --git a/src/main/resources/project/lib/XML/DOM/Node.pod b/src/main/resources/project/lib/XML/DOM/Node.pod
new file mode 100644
index 0000000..c32991d
--- /dev/null
+++ b/src/main/resources/project/lib/XML/DOM/Node.pod
@@ -0,0 +1,451 @@
+=head1 NAME
+
+XML::DOM::Node - Super class of all nodes in XML::DOM
+
+=head1 DESCRIPTION
+
+XML::DOM::Node is the super class of all nodes in an XML::DOM document.
+This means that all nodes that subclass XML::DOM::Node also inherit all
+the methods that XML::DOM::Node implements.
+
+=head2 GLOBAL VARIABLES
+
+=over 4
+
+=item @NodeNames
+
+The variable @XML::DOM::Node::NodeNames maps the node type constants to strings.
+It is used by XML::DOM::Node::getNodeTypeName.
+
+=back
+
+=head2 METHODS
+
+=over 4
+
+=item getNodeType
+
+Return an integer indicating the node type. See XML::DOM constants.
+
+=item getNodeName
+
+Return a property or a hardcoded string, depending on the node type.
+Here are the corresponding functions or values:
+
+ Attr getName
+ AttDef getName
+ AttlistDecl getName
+ CDATASection "#cdata-section"
+ Comment "#comment"
+ Document "#document"
+ DocumentType getNodeName
+ DocumentFragment "#document-fragment"
+ Element getTagName
+ ElementDecl getName
+ EntityReference getEntityName
+ Entity getNotationName
+ Notation getName
+ ProcessingInstruction getTarget
+ Text "#text"
+ XMLDecl "#xml-declaration"
+
+B: AttDef, AttlistDecl, ElementDecl and XMLDecl were added for
+completeness.
+
+=item getNodeValue and setNodeValue (value)
+
+Returns a string or undef, depending on the node type. This method is provided
+for completeness. In other languages it saves the programmer an upcast.
+The value is either available thru some other method defined in the subclass, or
+else undef is returned. Here are the corresponding methods:
+Attr::getValue, Text::getData, CDATASection::getData, Comment::getData,
+ProcessingInstruction::getData.
+
+=item getParentNode and setParentNode (parentNode)
+
+The parent of this node. All nodes, except Document,
+DocumentFragment, and Attr may have a parent. However, if a
+node has just been created and not yet added to the tree, or
+if it has been removed from the tree, this is undef.
+
+=item getChildNodes
+
+A NodeList that contains all children of this node. If there
+are no children, this is a NodeList containing no nodes. The
+content of the returned NodeList is "live" in the sense that,
+for instance, changes to the children of the node object that
+it was created from are immediately reflected in the nodes
+returned by the NodeList accessors; it is not a static
+snapshot of the content of the node. This is true for every
+NodeList, including the ones returned by the
+getElementsByTagName method.
+
+NOTE: this implementation does not return a "live" NodeList for
+getElementsByTagName. See L.
+
+When this method is called in a list context, it returns a regular perl list
+containing the child nodes. Note that this list is not "live". E.g.
+
+ @list = $node->getChildNodes; # returns a perl list
+ $nodelist = $node->getChildNodes; # returns a NodeList (object reference)
+ for my $kid ($node->getChildNodes) # iterate over the children of $node
+
+=item getFirstChild
+
+The first child of this node. If there is no such node, this returns undef.
+
+=item getLastChild
+
+The last child of this node. If there is no such node, this returns undef.
+
+=item getPreviousSibling
+
+The node immediately preceding this node. If there is no such
+node, this returns undef.
+
+=item getNextSibling
+
+The node immediately following this node. If there is no such node, this returns
+undef.
+
+=item getAttributes
+
+A NamedNodeMap containing the attributes (Attr nodes) of this node
+(if it is an Element) or undef otherwise.
+Note that adding/removing attributes from the returned object, also adds/removes
+attributes from the Element node that the NamedNodeMap came from.
+
+=item getOwnerDocument
+
+The Document object associated with this node. This is also
+the Document object used to create new nodes. When this node
+is a Document this is undef.
+
+=item insertBefore (newChild, refChild)
+
+Inserts the node newChild before the existing child node
+refChild. If refChild is undef, insert newChild at the end of
+the list of children.
+
+If newChild is a DocumentFragment object, all of its children
+are inserted, in the same order, before refChild. If the
+newChild is already in the tree, it is first removed.
+
+Return Value: The node being inserted.
+
+DOMExceptions:
+
+=over 4
+
+=item * HIERARCHY_REQUEST_ERR
+
+Raised if this node is of a type that does not allow children of the type of
+the newChild node, or if the node to insert is one of this node's ancestors.
+
+=item * WRONG_DOCUMENT_ERR
+
+Raised if newChild was created from a different document than the one that
+created this node.
+
+=item * NO_MODIFICATION_ALLOWED_ERR
+
+Raised if this node is readonly.
+
+=item * NOT_FOUND_ERR
+
+Raised if refChild is not a child of this node.
+
+=back
+
+=item replaceChild (newChild, oldChild)
+
+Replaces the child node oldChild with newChild in the list of
+children, and returns the oldChild node. If the newChild is
+already in the tree, it is first removed.
+
+Return Value: The node replaced.
+
+DOMExceptions:
+
+=over 4
+
+=item * HIERARCHY_REQUEST_ERR
+
+Raised if this node is of a type that does not allow children of the type of
+the newChild node, or it the node to put in is one of this node's ancestors.
+
+=item * WRONG_DOCUMENT_ERR
+
+Raised if newChild was created from a different document than the one that
+created this node.
+
+=item * NO_MODIFICATION_ALLOWED_ERR
+
+Raised if this node is readonly.
+
+=item * NOT_FOUND_ERR
+
+Raised if oldChild is not a child of this node.
+
+=back
+
+=item removeChild (oldChild)
+
+Removes the child node indicated by oldChild from the list of
+children, and returns it.
+
+Return Value: The node removed.
+
+DOMExceptions:
+
+=over 4
+
+=item * NO_MODIFICATION_ALLOWED_ERR
+
+Raised if this node is readonly.
+
+=item * NOT_FOUND_ERR
+
+Raised if oldChild is not a child of this node.
+
+=back
+
+=item appendChild (newChild)
+
+Adds the node newChild to the end of the list of children of
+this node. If the newChild is already in the tree, it is
+first removed. If it is a DocumentFragment object, the entire contents of
+the document fragment are moved into the child list of this node
+
+Return Value: The node added.
+
+DOMExceptions:
+
+=over 4
+
+=item * HIERARCHY_REQUEST_ERR
+
+Raised if this node is of a type that does not allow children of the type of
+the newChild node, or if the node to append is one of this node's ancestors.
+
+=item * WRONG_DOCUMENT_ERR
+
+Raised if newChild was created from a different document than the one that
+created this node.
+
+=item * NO_MODIFICATION_ALLOWED_ERR
+
+Raised if this node is readonly.
+
+=back
+
+=item hasChildNodes
+
+This is a convenience method to allow easy determination of
+whether a node has any children.
+
+Return Value: 1 if the node has any children, 0 otherwise.
+
+=item cloneNode (deep)
+
+Returns a duplicate of this node, i.e., serves as a generic
+copy constructor for nodes. The duplicate node has no parent
+(parentNode returns undef.).
+
+Cloning an Element copies all attributes and their values,
+including those generated by the XML processor to represent
+defaulted attributes, but this method does not copy any text
+it contains unless it is a deep clone, since the text is
+contained in a child Text node. Cloning any other type of
+node simply returns a copy of this node.
+
+Parameters:
+ I If true, recursively clone the subtree under the specified node.
+If false, clone only the node itself (and its attributes, if it is an Element).
+
+Return Value: The duplicate node.
+
+=item normalize
+
+Puts all Text nodes in the full depth of the sub-tree
+underneath this Element into a "normal" form where only
+markup (e.g., tags, comments, processing instructions, CDATA
+sections, and entity references) separates Text nodes, i.e.,
+there are no adjacent Text nodes. This can be used to ensure
+that the DOM view of a document is the same as if it were
+saved and re-loaded, and is useful when operations (such as
+XPointer lookups) that depend on a particular document tree
+structure are to be used.
+
+B: In the DOM Spec this method is defined in the Element and
+Document class interfaces only, but it doesn't hurt to have it here...
+
+=item getElementsByTagName (name [, recurse])
+
+Returns a NodeList of all descendant elements with a given
+tag name, in the order in which they would be encountered in
+a preorder traversal of the Element tree.
+
+Parameters:
+ I The name of the tag to match on. The special value "*" matches all tags.
+ I Whether it should return only direct child nodes (0) or any descendant that matches the tag name (1). This argument is optional and defaults to 1. It is not part of the DOM spec.
+
+Return Value: A list of matching Element nodes.
+
+NOTE: this implementation does not return a "live" NodeList for
+getElementsByTagName. See L.
+
+When this method is called in a list context, it returns a regular perl list
+containing the result nodes. E.g.
+
+ @list = $node->getElementsByTagName("tag"); # returns a perl list
+ $nodelist = $node->getElementsByTagName("tag"); # returns a NodeList (object ref.)
+ for my $elem ($node->getElementsByTagName("tag")) # iterate over the result nodes
+
+=back
+
+=head2 Additional methods not in the DOM Spec
+
+=over 4
+
+=item getNodeTypeName
+
+Return the string describing the node type.
+E.g. returns "ELEMENT_NODE" if getNodeType returns ELEMENT_NODE.
+It uses @XML::DOM::Node::NodeNames.
+
+=item toString
+
+Returns the entire subtree as a string.
+
+=item printToFile (filename)
+
+Prints the entire subtree to the file with the specified filename.
+
+Croaks: if the file could not be opened for writing.
+
+=item printToFileHandle (handle)
+
+Prints the entire subtree to the file handle.
+E.g. to print to STDOUT:
+
+ $node->printToFileHandle (\*STDOUT);
+
+=item print (obj)
+
+Prints the entire subtree using the object's print method. E.g to print to a
+FileHandle object:
+
+ $f = new FileHandle ("file.out", "w");
+ $node->print ($f);
+
+=item getChildIndex (child)
+
+Returns the index of the child node in the list returned by getChildNodes.
+
+Return Value: the index or -1 if the node is not found.
+
+=item getChildAtIndex (index)
+
+Returns the child node at the specifed index or undef.
+
+=item addText (text)
+
+Appends the specified string to the last child if it is a Text node, or else
+appends a new Text node (with the specified text.)
+
+Return Value: the last child if it was a Text node or else the new Text node.
+
+=item dispose
+
+Removes all circular references in this node and its descendants so the
+objects can be claimed for garbage collection. The objects should not be used
+afterwards.
+
+=item setOwnerDocument (doc)
+
+Sets the ownerDocument property of this node and all its children (and
+attributes etc.) to the specified document.
+This allows the user to cut and paste document subtrees between different
+XML::DOM::Documents. The node should be removed from the original document
+first, before calling setOwnerDocument.
+
+This method does nothing when called on a Document node.
+
+=item isAncestor (parent)
+
+Returns 1 if parent is an ancestor of this node or if it is this node itself.
+
+=item expandEntityRefs (str)
+
+Expands all the entity references in the string and returns the result.
+The entity references can be character references (e.g. "{" or "ῂ"),
+default entity references (""", ">", "<", "'" and "&") or
+entity references defined in Entity objects as part of the DocumentType of
+the owning Document. Character references are expanded into UTF-8.
+Parameter entity references (e.g. %ent;) are not expanded.
+
+=item to_sax ( %HANDLERS )
+
+E.g.
+
+ $node->to_sax (DocumentHandler => $my_handler,
+ Handler => $handler2 );
+
+%HANDLERS may contain the following handlers:
+
+=over 4
+
+=item * DocumentHandler
+
+=item * DTDHandler
+
+=item * EntityResolver
+
+=item * Handler
+
+Default handler when one of the above is not specified
+
+=back
+
+Each XML::DOM::Node generates the appropriate SAX callbacks (for the
+appropriate SAX handler.) Different SAX handlers can be plugged in to
+accomplish different things, e.g. L would check the node
+(currently only Document and Element nodes are supported), L
+would create a new DOM subtree (thereby, in essence, copying the Node)
+and in the near future, XML::Writer could print the node.
+All Perl SAX related work is still in flux, so this interface may change a
+little.
+
+See PerlSAX for the description of the SAX interface.
+
+=item check ( [$checker] )
+
+See descriptions for check() in L and L.
+
+=item xql ( @XQL_OPTIONS )
+
+To use the xql method, you must first I
+
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+
+ 
+ 
+ 
+ 
+ 
+ 
+ 
+
+ 
+
+ 
+
+ 
+
+ 
+
+ 
+
+ 
+ 
+ 
+
+ 
+
+ 
+
+ 
+
+ 
+
+ 
+
+ 
+
+ 
+
+ 
+
+ 
+
+
+