File Coverage

lib/MediaCloud/JobManager/Broker/Null.pm
Criterion Covered Total %
statement 27 49 55.1
branch n/a
condition n/a
subroutine 9 20 45.0
pod 0 11 0.0
total 36 80 45.0


line stmt bran cond sub pod time code
1             package MediaCloud::JobManager::Broker::Null;
2              
3             #
4             # Null broker used for initialization
5             #
6             # Usage:
7             #
8             # MediaCloud::JobManager::Broker::Null->new();
9             #
10              
11 1     1   8 use strict;
  1         2  
  1         42  
12 1     1   7 use warnings;
  1         3  
  1         51  
13 1     1   6 use Modern::Perl "2012";
  1         4  
  1         20  
14              
15 1     1   200 use Moose;
  1         3  
  1         8  
16             with 'MediaCloud::JobManager::Broker';
17              
18 1     1   11014 use Readonly;
  1         4  
  1         117  
19              
20 1     1   9 use Log::Log4perl qw(:easy);
  1         4  
  1         14  
21             Log::Log4perl->easy_init(
22                 {
23                     level => $DEBUG,
24                     utf8 => 1,
25                     layout => "%d{ISO8601} [%P]: %m%n"
26                 }
27             );
28              
29             # flush sockets after every write
30             $| = 1;
31              
32 1     1   1515 use MediaCloud::JobManager;
  1         3  
  1         51  
33 1     1   10 use MediaCloud::JobManager::Job;
  1         3  
  1         635  
34              
35             # Constructor
36             sub BUILD
37             {
38 0     0 0       my $self = shift;
39 0               my $args = shift;
40             }
41              
42             sub start_worker($$)
43             {
44 0     0 0       my ( $self, $function_name ) = @_;
45              
46 0               LOGDIE( "FIXME not implemented." );
47             }
48              
49             sub run_job_sync($$$$)
50             {
51 0     0 0       my ( $self, $function_name, $args, $priority ) = @_;
52              
53 0               LOGDIE( "FIXME not implemented." );
54             }
55              
56             sub run_job_async($$$$)
57             {
58 0     0 0       my ( $self, $function_name, $args, $priority ) = @_;
59              
60 0               LOGDIE( "FIXME not implemented." );
61             }
62              
63             sub job_id_from_handle($$)
64             {
65 0     0 0       my ( $self, $job_handle ) = @_;
66              
67 0               LOGDIE( "FIXME not implemented." );
68             }
69              
70             sub set_job_progress($$$$)
71             {
72 0     0 0       my ( $self, $job, $numerator, $denominator ) = @_;
73              
74 0               LOGDIE( "FIXME not implemented." );
75             }
76              
77             sub job_status($$$)
78             {
79 0     0 0       my ( $self, $function_name, $job_id ) = @_;
80              
81 0               LOGDIE( "FIXME not implemented." );
82             }
83              
84             sub show_jobs($)
85             {
86 0     0 0       my $self = shift;
87              
88 0               LOGDIE( "FIXME not implemented." );
89             }
90              
91             sub cancel_job($)
92             {
93 0     0 0       my ( $self, $job_id ) = @_;
94              
95 0               LOGDIE( "FIXME not implemented." );
96             }
97              
98             sub server_status($$)
99             {
100 0     0 0       my $self = shift;
101              
102 0               LOGDIE( "FIXME not implemented." );
103             }
104              
105             sub workers($)
106             {
107 0     0 0       my $self = shift;
108              
109 0               LOGDIE( "FIXME not implemented." );
110             }
111              
112 1     1   15 no Moose; # gets rid of scaffolding
  1         3  
  1         9  
113              
114             1;
115