File Coverage

blib/lib/Messaging/Message/Queue/ZERO.pm

Criterion	Covered	Total	%
statement	23	34	67.6
branch			n/a
condition			n/a
subroutine	10	24	41.6
pod	3	20	15.0
total	36	78	46.1

#+##############################################################################
#                                                                              #
# File: Messaging/Message/Queue/ZERO.pm                                        #
#                                                                              #
# Description: abstraction of a message queue returning empty messages         #
#                                                                              #
#-##############################################################################

#
# module definition
#

package Messaging::Message::Queue::ZERO;
use strict;
use warnings;
our $VERSION  = "1.7";
our $REVISION = sprintf("%d.%02d", q$Revision: 1.1 $ =~ /(\d+)\.(\d+)/);

#
# inheritance
#

our @ISA = qw(Messaging::Message::Queue);

#
# used modules
#

use No::Worries::Die qw(dief);
use Params::Validate qw(validate_with);

#
# constructor
#

sub new : method {
    my($class, %option, $self);

    $class = shift(@_);
    %option = validate_with(
        params      => \@_,
        spec        => {},
        allow_extra => 0,
    );
    $self = {};
    bless($self, $class);
    return($self);
}

#
# Directory::Queue methods that can be used
#

sub first : method {
    return("first");
}

sub next : method { ## no critic 'ProhibitBuiltinHomonyms'
    return("next");
}

sub count : method {
    return(1);
}

sub purge : method {
}

sub path : method {
    return("ZERO");
}

sub id : method {
    return("ZERO");
}

sub touch : method {
}

sub lock : method { ## no critic 'ProhibitBuiltinHomonyms'
    return(1);
}

sub unlock : method {
    return(1);
}

sub remove : method {
}

sub get : method {
    return("");
}

#
# Directory::Queue methods that cannot be used
#

sub add : method {
    dief("unsupported method: add()");
}

sub add_ref : method {
    dief("unsupported method: add_ref()");
}

sub add_path : method {
    dief("unsupported method: add_path()");
}

sub get_ref : method {
    dief("unsupported method: get_ref()");
}

sub get_path : method {
    dief("unsupported method: get_path()");
}

sub copy : method {
    dief("unsupported method: copy()");
}

#
# add a message object to the queue
#

sub add_message : method {
    dief("unsupported method: add_message()");
}

#
# get a message object from the queue
#

sub get_message : method {
    return(Messaging::Message->new());
}

1;

__DATA__