CDP

 view release on metacpan or  search on metacpan

MANIFEST  view on Meta::CPAN

Changes
Makefile.PL
MANIFEST
README
t/CDP.t
lib/CDP.pm
lib/CDP/backupTask.pm
lib/CDP/Connect.pm
lib/CDP/diskSafe.pm
lib/CDP/Dump.pm
lib/CDP/host.pm
lib/CDP/mySQL.pm
lib/CDP/storagepool.pm
lib/CDP/taskRun.pm
lib/CDP/user.pm
lib/CDP/volume.pm
META.yml                                 Module meta-data (added by MakeMaker)

lib/CDP.pm  view on Meta::CPAN

package CDP;
our $VERSION = '0.032';

use 5.008006;
use strict;
use warnings;

use CDP::backupTask		qw /:ALL/;
use CDP::diskSafe		qw /:ALL/;
use CDP::mySQL			qw /:ALL/;
use CDP::taskRun 		qw /:ALL/;
use CDP::volume			qw /:ALL/;
use CDP::Connect		qw /:ALL/;
use CDP::host 			qw /:ALL/;
use CDP::storagepool	qw /:ALL/;
use CDP::user 			qw /:ALL/;
use CDP::Dump 			qw /:ALL/;

lib/CDP.pm  view on Meta::CPAN

=head1 SYNOPSIS

This module is designed to provide a cleaner procedurally driven 
interface to the 

You may import all methods:
  use CDP qw/:ALL/;

Or You may impliment each module independently.

  use CDP::backupTask     qw /:ALL/;
  use CDP::diskSafe       qw /:ALL/;
  use CDP::mySQL          qw /:ALL/;
  use CDP::taskRun        qw /:ALL/;
  use CDP::volume         qw /:ALL/;
  use CDP::Connect        qw /:ALL/;
  use CDP::host           qw /:ALL/;
  use CDP::storagepool    qw /:ALL/;
  use CDP::user           qw /:ALL/;
  use CDP::Dump           qw /:ALL/;

lib/CDP/backupTask.pm  view on Meta::CPAN

package CDP::backupTask;

use Frontier::Client;

use strict;
use warnings;

our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, );
require Exporter;      
require DynaLoader;
require AutoLoader;

lib/CDP/backupTask.pm  view on Meta::CPAN

%EXPORT_TAGS = (
    'ALL' => \@EXPORT_OK,
    'CONST' => [qw//],
);

Exporter::export_ok_tags(keys %EXPORT_TAGS);


sub editBackupTask {
    my $client = shift;
    $client->call('backupTask.editBackupTask',@_);
}

sub getScheduledTaskIdsByHost {
    my $client = shift;
    $client->call('backupTask.getScheduledTaskIdsByHost',@_);
}

sub runNow {
    my $client = shift;
    $client->call('backupTask.runNow',@_);
}

sub scheduleBackupTask {
    my $client = shift;
    $client->call('backupTask.scheduleBackupTask',@_);
}

sub scheduleMinutelyBackupTask {
    my $client = shift;
    $client->call('backupTask.scheduleMinutelyBackupTask',@_);
}


1;
__END__