| line | stmt | bran | cond | sub | pod | time | code | 
| 1 |  |  |  |  |  |  | package URI::amqps; | 
| 2 | 3 |  |  | 3 |  | 5318 | use strict; | 
|  | 3 |  |  |  |  | 6 |  | 
|  | 3 |  |  |  |  | 71 |  | 
| 3 | 3 |  |  | 3 |  | 16 | use warnings; | 
|  | 3 |  |  |  |  | 6 |  | 
|  | 3 |  |  |  |  | 86 |  | 
| 4 |  |  |  |  |  |  |  | 
| 5 | 3 |  |  | 3 |  | 709 | use parent qw(URI::amqp); | 
|  | 3 |  |  |  |  | 443 |  | 
|  | 3 |  |  |  |  | 16 |  | 
| 6 |  |  |  |  |  |  |  | 
| 7 |  |  |  |  |  |  | =head1 NAME | 
| 8 |  |  |  |  |  |  |  | 
| 9 |  |  |  |  |  |  | URI::amqps - secure AMQP (RabbitMQ) URI | 
| 10 |  |  |  |  |  |  |  | 
| 11 |  |  |  |  |  |  | =head1 SYNOPSIS | 
| 12 |  |  |  |  |  |  |  | 
| 13 |  |  |  |  |  |  | my $uri = URI->new('amqps://user:pass@host.domain:1234/'); | 
| 14 |  |  |  |  |  |  | my $ar = AnyEvent::RabbitMQ->new->load_xml_spec()->connect( | 
| 15 |  |  |  |  |  |  | host  => $uri->host, | 
| 16 |  |  |  |  |  |  | port  => $uri->port, | 
| 17 |  |  |  |  |  |  | user  => $uri->user, | 
| 18 |  |  |  |  |  |  | pass  => $uri->password, | 
| 19 |  |  |  |  |  |  | vhost => $uri->vhost, | 
| 20 |  |  |  |  |  |  | tls   => $uri->secure, | 
| 21 |  |  |  |  |  |  | ... | 
| 22 |  |  |  |  |  |  | ); | 
| 23 |  |  |  |  |  |  | =head1 DESCRIPTION | 
| 24 |  |  |  |  |  |  |  | 
| 25 |  |  |  |  |  |  | URI extension for secure AMQP protocol (https://www.rabbitmq.com/uri-spec.html) | 
| 26 |  |  |  |  |  |  |  | 
| 27 |  |  |  |  |  |  | same as L | 
| 28 |  |  |  |  |  |  |  | 
| 29 |  |  |  |  |  |  | =cut | 
| 30 |  |  |  |  |  |  |  | 
| 31 | 3 |  |  | 3 | 1 | 2101 | sub secure { 1 } | 
| 32 |  |  |  |  |  |  |  | 
| 33 | 0 |  |  | 0 | 1 |  | sub default_port { 5671 } | 
| 34 |  |  |  |  |  |  |  | 
| 35 |  |  |  |  |  |  |  | 
| 36 |  |  |  |  |  |  | =head1 LICENSE | 
| 37 |  |  |  |  |  |  |  | 
| 38 |  |  |  |  |  |  | Copyright (C) Avast Software. | 
| 39 |  |  |  |  |  |  |  | 
| 40 |  |  |  |  |  |  | This library is free software; you can redistribute it and/or modify | 
| 41 |  |  |  |  |  |  | it under the same terms as Perl itself. | 
| 42 |  |  |  |  |  |  |  | 
| 43 |  |  |  |  |  |  | =head1 AUTHOR | 
| 44 |  |  |  |  |  |  |  | 
| 45 |  |  |  |  |  |  | Jan Seidl Eseidl@avast.comE | 
| 46 |  |  |  |  |  |  |  | 
| 47 |  |  |  |  |  |  | =cut | 
| 48 |  |  |  |  |  |  |  | 
| 49 |  |  |  |  |  |  | 1; |