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

Data-Model documentation Contained in the Data-Model distribution.

Index

Code Index:

NAME

Top

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

SEE ALSO

Top

Data::Model::Driver::Queue::Q4M

AUTHOR

Top

Kazuhiro Osawa <yappo <at> shibuya <döt> pl>

LICENSE

Top

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

Data-Model documentation Contained in the Data-Model distribution. 
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;