File Coverage

blib/lib/Crixa/HasMQ.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Crixa::HasMQ;
2              
3 1     1   483 use strict;
  1         1  
  1         33  
4 1     1   4 use warnings;
  1         1  
  1         26  
5 1     1   3 use namespace::autoclean;
  1         2  
  1         5  
6              
7             our $VERSION = '0.12';
8              
9 1     1   61 use Moose::Role;
  1         1  
  1         7  
10              
11 1     1   3644 use Moose::Util::TypeConstraints qw( duck_type );
  1         2  
  1         8  
12              
13             # XXX - Test::Net::RabbitMQ doesn't support some of the methods we call
14             # internally so we won't require them but it sure would be nice to patch
15             # Test::Net::RabbitMQ to include these:
16             #
17             # ack
18             # basic_qos
19             # exchange_delete
20             # queue_delete
21             my $mq_api_type = duck_type [
22             qw(
23             channel_open
24             connect
25             disconnect
26             exchange_declare
27             get
28             publish
29             queue_bind
30             queue_declare
31             )
32             ];
33              
34             has _mq => (
35             is => 'ro',
36             isa => $mq_api_type,
37             required => 1,
38             );
39              
40             1;
41              
42             # ABSTRACT: For internal use only
43              
44             __END__
45              
46             =pod
47              
48             =head1 NAME
49              
50             Crixa::HasMQ - For internal use only
51              
52             =head1 VERSION
53              
54             version 0.12
55              
56             =head1 DESCRIPTION
57              
58             This is used internally by Crixa. There are no user accessible parts here.
59              
60             =encoding UTF-8
61              
62             =head1 AUTHORS
63              
64             =over 4
65              
66             =item *
67              
68             Chris Prather <chris@prather.org>
69              
70             =item *
71              
72             Dave Rolsky <autarch@urth.org>
73              
74             =back
75              
76             =head1 COPYRIGHT AND LICENSE
77              
78             This software is copyright (c) 2012 - 2015 by Chris Prather.
79              
80             This is free software; you can redistribute it and/or modify it under
81             the same terms as the Perl 5 programming language system itself.
82              
83             =cut