File Coverage

blib/lib/CDP/backupTask.pm
Criterion Covered Total %
statement 1 3 33.3
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 2 4 50.0


line stmt bran cond sub pod time code
1             package CDP::backupTask;
2              
3 1     1   607 use Frontier::Client;
  0            
  0            
4              
5             use strict;
6             use warnings;
7              
8             our ($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, );
9             require Exporter;
10             require DynaLoader;
11             require AutoLoader;
12              
13             @ISA = qw(Exporter DynaLoader AutoLoader);
14             # Items to export into callers namespace by default. Note: do not export
15             # names by default without a very good reason. Use EXPORT_OK instead.
16             # Do not simply export all your public functions/methods/constants.
17             @EXPORT =qw//;
18              
19             @EXPORT_OK =
20             qw/
21             editBackupTask
22             getScheduledTaskIdsByHost
23             runNow
24             scheduleBackupTask
25             scheduleMinutelyBackupTask
26             /;
27              
28             %EXPORT_TAGS = (
29             'ALL' => \@EXPORT_OK,
30             'CONST' => [qw//],
31             );
32              
33             Exporter::export_ok_tags(keys %EXPORT_TAGS);
34              
35              
36             sub editBackupTask {
37             my $client = shift;
38             $client->call('backupTask.editBackupTask',@_);
39             }
40              
41             sub getScheduledTaskIdsByHost {
42             my $client = shift;
43             $client->call('backupTask.getScheduledTaskIdsByHost',@_);
44             }
45              
46             sub runNow {
47             my $client = shift;
48             $client->call('backupTask.runNow',@_);
49             }
50              
51             sub scheduleBackupTask {
52             my $client = shift;
53             $client->call('backupTask.scheduleBackupTask',@_);
54             }
55              
56             sub scheduleMinutelyBackupTask {
57             my $client = shift;
58             $client->call('backupTask.scheduleMinutelyBackupTask',@_);
59             }
60              
61              
62             1;
63             __END__