File Coverage

blib/lib/Data/Model/Mixin/Queue/Q4M.pm

Criterion	Covered	Total	%
statement	10	18	55.5
branch	0	4	0.0
condition			n/a
subroutine	4	6	66.6
pod	0	3	0.0
total	14	31	45.1

package Data::Model::Mixin::Queue::Q4M;
use strict;
use warnings;

use Carp ();
$Carp::Internal{(__PACKAGE__)}++;

sub register_method {
    +{
        queue_running => \&queue_running,
        queue_abort   => \&queue_abort,
    };
}

sub queue_running {
    my $self = $_[0];
    my $driver = $self->get_base_driver;
    Carp::croak "Can't find base_driver" unless $driver;

    $driver->queue_running( @_ );
}

sub queue_abort {
    my $self = $_[0];
    my $driver = $self->get_base_driver;
    Carp::croak "Can't find base_driver" unless $driver;

    $driver->queue_abort( @_ );
}

1;

=head1 NAME

Data::Model::Mixin::Queue::Q4M - add methods for Driver::Queue::Q4M

=head1 SEE ALSO

L

=head1 AUTHOR

Kazuhiro Osawa Eyappo  shibuya  plE

=head1 LICENSE

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut