1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
package presque::worker::Queue; use Moose; has base_uri => ( is => 'ro', isa => 'Str', required => 1 ); sub push { my ( $self, ) = @_; } sub pull { my ( $self, ) = @_; } sub delete { my ( $self, ) = @_; } 1;