-
Notifications
You must be signed in to change notification settings - Fork 0
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
Adam
committed
Feb 21, 2013
1 parent
3f2c8bc
commit ba048f9
Showing
1 changed file
with
230 additions
and
28 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,37 +1,245 @@ | ||
package Pipette; | ||
|
||
use 5.00503; | ||
use strict; | ||
|
||
require Exporter; | ||
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); | ||
|
||
@ISA = qw(Exporter); | ||
@EXPORT = qw($_BASE $_CONFIG $_DESTROY_ENABLED $_PIPETTE_API_KEY | ||
$_PIPETTE_CLIENT_ID $_URI_ID $_URI_KEY); | ||
|
||
# Items to export into callers namespace by default. Note: do not export | ||
# names by default without a very good reason. Use EXPORT_OK instead. | ||
# Do not simply export all your public functions/methods/constants. | ||
use vars qw($VERSION @ISA @EXPORT); | ||
$VERSION = '0.01'; | ||
|
||
# This allows declaration use Pipette ':all'; | ||
# If you do not need this, moving things directly into @EXPORT or @EXPORT_OK | ||
# will save memory. | ||
%EXPORT_TAGS = ( 'all' => [ qw( | ||
) ] ); | ||
use strict; | ||
|
||
@EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); | ||
use 5.010_000; | ||
|
||
@EXPORT = qw( | ||
); | ||
BEGIN { | ||
$_BASE = ""; | ||
$_CONFIG = ""; | ||
$_DESTROY_ENABLED = ""; | ||
$_PIPETTE_API_KEY = ""; | ||
$_PIPETTE_CLIENT_ID = ""; | ||
$_URI_ID = ""; | ||
$_URI_KEY = ""; | ||
} | ||
|
||
$VERSION = '0.01'; | ||
|
||
########### | ||
## SETUP ## | ||
########### | ||
|
||
sub setup | ||
{ | ||
|
||
} | ||
|
||
|
||
############## | ||
## API ROOT ## | ||
############## | ||
|
||
sub generateBaseQueryString | ||
{ | ||
|
||
} | ||
|
||
|
||
sub getDocumentation | ||
{ | ||
|
||
} | ||
|
||
|
||
sub displayDocumentation | ||
{ | ||
|
||
} | ||
|
||
|
||
############## | ||
## DROPLETS ## | ||
############## | ||
|
||
sub showAllActiveDroplets | ||
{ | ||
|
||
} | ||
|
||
|
||
sub showDroplet | ||
{ | ||
|
||
} | ||
|
||
|
||
sub newDroplet | ||
{ | ||
|
||
} | ||
|
||
|
||
sub rebootDroplet | ||
{ | ||
|
||
} | ||
|
||
|
||
sub powerCycleDroplet | ||
{ | ||
|
||
} | ||
|
||
|
||
sub shutdownDroplet | ||
{ | ||
|
||
} | ||
|
||
|
||
sub powerOffDroplet | ||
{ | ||
|
||
} | ||
|
||
|
||
sub powerOnDroplet | ||
{ | ||
|
||
} | ||
|
||
|
||
sub resetRootPassword | ||
{ | ||
|
||
} | ||
|
||
|
||
sub resizeDroplet | ||
{ | ||
|
||
} | ||
|
||
|
||
sub takeSnapshot | ||
{ | ||
|
||
} | ||
|
||
|
||
sub restoreDroplet | ||
{ | ||
|
||
} | ||
|
||
|
||
sub rebuildDroplet | ||
{ | ||
|
||
} | ||
|
||
|
||
sub enableAutomaticBackups | ||
{ | ||
|
||
} | ||
|
||
|
||
sub disableAutomaticBackups | ||
{ | ||
|
||
} | ||
|
||
|
||
sub destroyDroplet | ||
{ | ||
|
||
} | ||
|
||
|
||
|
||
############# | ||
## REGIONS ## | ||
############# | ||
|
||
sub allRegions | ||
{ | ||
|
||
} | ||
|
||
|
||
|
||
############ | ||
## IMAGES ## | ||
############ | ||
|
||
sub allImages | ||
{ | ||
|
||
} | ||
|
||
|
||
sub showImage | ||
{ | ||
|
||
} | ||
|
||
|
||
sub destroyImage | ||
{ | ||
|
||
} | ||
|
||
|
||
|
||
############## | ||
## SSH KEYS ## | ||
############## | ||
|
||
sub allSSHKeys | ||
{ | ||
|
||
} | ||
|
||
|
||
sub showSSHKey | ||
{ | ||
|
||
} | ||
|
||
|
||
sub addSSHKey | ||
{ | ||
|
||
} | ||
|
||
|
||
sub editSSHKey | ||
{ | ||
|
||
} | ||
|
||
|
||
sub destroySSHKey | ||
{ | ||
|
||
} | ||
|
||
|
||
|
||
########### | ||
## SIZES ## | ||
########### | ||
|
||
sub allSizes | ||
{ | ||
|
||
} | ||
|
||
|
||
# Preloaded methods go here. | ||
|
||
1; | ||
__END__ | ||
# Below is stub documentation for your module. You'd better edit it! | ||
=head1 NAME | ||
|
@@ -54,8 +262,6 @@ Blah blah blah. | |
None by default. | ||
=head1 SEE ALSO | ||
Mention other useful documentation such as the documentation of | ||
|
@@ -75,9 +281,5 @@ Adam M Dutko, E<lt>[email protected]<gt> | |
Copyright (C) 2013 by Adam M Dutko | ||
This library is free software; you can redistribute it and/or modify | ||
it under the same terms as Perl itself, either Perl version 5.12.4 or, | ||
at your option, any later version of Perl 5 you may have available. | ||
=cut | ||
This module may be modified, used, copied and redistributed at your own risk. | ||
Publicly redistributed modified versions must use a different name. |