File Coverage

blib/lib/MMM/Report.pm

Criterion	Covered	Total	%
statement	9	32	28.1
branch	0	10	0.0
condition			n/a
subroutine	3	9	33.3
pod	6	6	100.0
total	18	57	31.5

package MMM::Report;

use strict;
use warnings;
use base qw(MMM);

=head1 NAME

MMM::MirrorQueue

=head1 METHODS

=cut

sub new {
    my ($class, @args) = @_;
    my $mmm = $class->SUPER::new(@args) or return;

    if (!$mmm->{nofork}) {
        Sys::Syslog::openlog('mmm', 'pid', $mmm->configval('default', 'syslog_facilities', 'daemon'));
        $mmm->{use_syslog} = 1;
    }

    $mmm
}

=head2 header

Return the string to show at the beginning

=cut

sub header {
}

=head2 body

=cut

sub body {
}

=head2 body_queue

Return a string about body of each queue

=cut

sub body_queue {
}

=head2 footer

Return the string to show at the end

=cut

sub footer {
}

=head2 run

The main routine

=cut

sub run {
    my ($self) = @_;
    foreach my $q ($self->get_tasks_by_name($self->list_tasks)) {
        push(@{$self->{tasks}}, [ $q, { $q->state_info() } ]);
    }
    $self->header();
    foreach my $q (sort { $a->[0]->name cmp $b->[0]->name }
        @{$self->{tasks} || []}) {
        $q->[0]->is_disable and next;
        $self->body_queue($q->[0], %{ $q->[1] || {} });
    }
    $self->footer();
    $self->{tasks} = undef;
}

1;

__END__