Browse files

Fixed module name.

  • Loading branch information...
1 parent 40ea833 commit e2522cad3ca3c8f091ef793175fa2aca76e3149e @cooldaemon committed Mar 5, 2010
View
3 Changes
@@ -1,4 +1,7 @@
Revision history for Perl extension RabbitFoot
+1.00 Fri Mar 5 11:30:00 2010
+ - fix module name.
+
0.01 Sun Dec 6 20:54:03 2009
- original version
View
4 Makefile.PL
@@ -1,6 +1,6 @@
use inc::Module::Install;
-name 'RabbitFoot';
-all_from 'lib/RabbitFoot.pm';
+name 'Net-RabbitFoot';
+all_from 'lib/Net/RabbitFoot.pm';
requires 'Moose';
requires 'MooseX::AttributeHelpers';
View
12 README
@@ -1,16 +1,16 @@
-This is Perl module RabbitFoot.
+This is Perl module Net::RabbitFoot.
-RabbitFoot is an AMQP(Advanced Message Queuing Protocol) client library, that is intended to allow you to interact with AMQP-compliant message brokers/servers such as RabbitMQ in an asynchronous fashion.
+Net::RabbitFoot is an AMQP(Advanced Message Queuing Protocol) client library, that is intended to allow you to interact with AMQP-compliant message brokers/servers such as RabbitMQ in an asynchronous fashion.
-You can use RabbitFoot to -
+You can use Net::RabbitFoot to -
* Declare and delete exchanges
* Declare, delete, bind and unbind queues
* Set QoS
* Publish, consume, get, ack and recover messages
* Select, commit and rollback transactions
-RabbitFoot is known to work with RabbitMQ versions 1.7.2 and version 0-8 of the AMQP specification.
+Net::RabbitFoot is known to work with RabbitMQ versions 1.7.2 and version 0-8 of the AMQP specification.
INSTALLATION
@@ -25,9 +25,9 @@ Then install it:
DOCUMENTATION
-RabbitFoot documentation is available as in POD. So you can do:
+Net::RabbitFoot documentation is available as in POD. So you can do:
- % perldoc RabbitFoot
+ % perldoc Net::RabbitFoot
to read the documentation online with your favorite pager.
View
20 lib/RabbitFoot.pm → lib/Net/RabbitFoot.pm
@@ -1,4 +1,4 @@
-package RabbitFoot;
+package Net::RabbitFoot;
use strict;
use warnings;
@@ -9,7 +9,7 @@ use Coro::AnyEvent;
use File::ShareDir ();
-use RabbitFoot::Channel;
+use Net::RabbitFoot::Channel;
our $VERSION = '1.00';
@@ -44,7 +44,9 @@ sub default_amqp_spec {
sub open_channel {
my $self = shift;
- return RabbitFoot::Channel->new(arc => $self->_do('open_channel', @_,));
+ return Net::RabbitFoot::Channel->new(
+ arc => $self->_do('open_channel', @_,)
+ );
}
sub _do {
@@ -67,13 +69,13 @@ __END__
=head1 NAME
-RabbitFoot - An Asynchronous and multi channel Perl AMQP client.
+Net::RabbitFoot - An Asynchronous and multi channel Perl AMQP client.
=head1 SYNOPSIS
- use RabbitFoot;
+ use Net::RabbitFoot;
- my $rf = RabbitFoot->new()->load_xml_spec(
+ my $rf = Net::RabbitFoot->new()->load_xml_spec(
'/path/to/amqp0-8.xml',
)->connect(
host => 'localhosti',
@@ -89,17 +91,17 @@ RabbitFoot - An Asynchronous and multi channel Perl AMQP client.
=head1 DESCRIPTION
-RabbitFoot is an AMQP(Advanced Message Queuing Protocol) client library, that is intended to allow you to interact with AMQP-compliant message brokers/servers such as RabbitMQ in an asynchronous fashion.
+Net::RabbitFoot is an AMQP(Advanced Message Queuing Protocol) client library, that is intended to allow you to interact with AMQP-compliant message brokers/servers such as RabbitMQ in an asynchronous fashion.
-You can use RabbitFoot to -
+You can use Net::RabbitFoot to -
* Declare and delete exchanges
* Declare, delete, bind and unbind queues
* Set QoS
* Publish, consume, get, ack and recover messages
* Select, commit and rollback transactions
-RabbitFoot is known to work with RabbitMQ versions 1.7.2 and version 0-8 of the AMQP specification.
+Net::RabbitFoot is known to work with RabbitMQ versions 1.7.2 and version 0-8 of the AMQP specification.
=head1 AUTHOR
View
2 lib/RabbitFoot/Channel.pm → lib/Net/RabbitFoot/Channel.pm
@@ -1,4 +1,4 @@
-package RabbitFoot::Channel;
+package Net::RabbitFoot::Channel;
use strict;
use warnings;
View
2 lib/RabbitFoot/Cmd.pm → lib/Net/RabbitFoot/Cmd.pm
@@ -1,4 +1,4 @@
-package RabbitFoot::Cmd;
+package Net::RabbitFoot::Cmd;
use Moose;
extends qw(MooseX::App::Cmd);
View
4 lib/RabbitFoot/Cmd/Command/bind_queue.pm → lib/Net/RabbitFoot/Cmd/Command/bind_queue.pm
@@ -1,8 +1,8 @@
-package RabbitFoot::Cmd::Command::bind_queue;
+package Net::RabbitFoot::Cmd::Command::bind_queue;
use Moose;
extends qw(MooseX::App::Cmd::Command);
-with qw(RabbitFoot::Cmd::Role::Config RabbitFoot::Cmd::Role::Command);
+with qw(Net::RabbitFoot::Cmd::Role::Config Net::RabbitFoot::Cmd::Role::Command);
has queue => (
isa => 'Str',
View
4 ...abbitFoot/Cmd/Command/declare_exchange.pm → ...abbitFoot/Cmd/Command/declare_exchange.pm
@@ -1,10 +1,10 @@
-package RabbitFoot::Cmd::Command::declare_exchange;
+package Net::RabbitFoot::Cmd::Command::declare_exchange;
use List::MoreUtils qw(none);
use Moose;
extends qw(MooseX::App::Cmd::Command);
-with qw(RabbitFoot::Cmd::Role::Config RabbitFoot::Cmd::Role::Command);
+with qw(Net::RabbitFoot::Cmd::Role::Config Net::RabbitFoot::Cmd::Role::Command);
has exchange => (
isa => 'Str',
View
4 lib/RabbitFoot/Cmd/Command/declare_queue.pm → ...t/RabbitFoot/Cmd/Command/declare_queue.pm
@@ -1,8 +1,8 @@
-package RabbitFoot::Cmd::Command::declare_queue;
+package Net::RabbitFoot::Cmd::Command::declare_queue;
use Moose;
extends qw(MooseX::App::Cmd::Command);
-with qw(RabbitFoot::Cmd::Role::Config RabbitFoot::Cmd::Role::Command);
+with qw(Net::RabbitFoot::Cmd::Role::Config Net::RabbitFoot::Cmd::Role::Command);
has queue => (
isa => 'Str',
View
4 ...RabbitFoot/Cmd/Command/delete_exchange.pm → ...RabbitFoot/Cmd/Command/delete_exchange.pm
@@ -1,8 +1,8 @@
-package RabbitFoot::Cmd::Command::delete_exchange;
+package Net::RabbitFoot::Cmd::Command::delete_exchange;
use Moose;
extends qw(MooseX::App::Cmd::Command);
-with qw(RabbitFoot::Cmd::Role::Config RabbitFoot::Cmd::Role::Command);
+with qw(Net::RabbitFoot::Cmd::Role::Config Net::RabbitFoot::Cmd::Role::Command);
has exchange => (
isa => 'Str',
View
0 lib/RabbitFoot/Cmd/Command/delete_queue.pm → ...et/RabbitFoot/Cmd/Command/delete_queue.pm
File renamed without changes.
View
4 lib/RabbitFoot/Cmd/Command/purge_queue.pm → ...Net/RabbitFoot/Cmd/Command/purge_queue.pm
@@ -1,8 +1,8 @@
-package RabbitFoot::Cmd::Command::purge_queue;
+package Net::RabbitFoot::Cmd::Command::purge_queue;
use Moose;
extends qw(MooseX::App::Cmd::Command);
-with qw(RabbitFoot::Cmd::Role::Config RabbitFoot::Cmd::Role::Command);
+with qw(Net::RabbitFoot::Cmd::Role::Config Net::RabbitFoot::Cmd::Role::Command);
has queue => (
isa => 'Str',
View
4 lib/RabbitFoot/Cmd/Command/unbind_queue.pm → ...et/RabbitFoot/Cmd/Command/unbind_queue.pm
@@ -1,8 +1,8 @@
-package RabbitFoot::Cmd::Command::unbind_queue;
+package Net::RabbitFoot::Cmd::Command::unbind_queue;
use Moose;
extends qw(MooseX::App::Cmd::Command);
-with qw(RabbitFoot::Cmd::Role::Config RabbitFoot::Cmd::Role::Command);
+with qw(Net::RabbitFoot::Cmd::Role::Config Net::RabbitFoot::Cmd::Role::Command);
has queue => (
isa => 'Str',
View
8 lib/RabbitFoot/Cmd/Role/Command.pm → lib/Net/RabbitFoot/Cmd/Role/Command.pm
@@ -1,16 +1,16 @@
-package RabbitFoot::Cmd::Role::Command;
+package Net::RabbitFoot::Cmd::Role::Command;
use FindBin;
use Coro;
-use RabbitFoot;
+use Net::RabbitFoot;
use Moose::Role;
requires qw(_run);
has spec => (
isa => 'Str',
is => 'rw',
- default => RabbitFoot::default_amqp_spec(),
+ default => Net::RabbitFoot::default_amqp_spec(),
metaclass => 'MooseX::Getopt::Meta::Attribute',
cmd_aliases => 's',
documentation => 'AMQP specification',
@@ -115,7 +115,7 @@ sub execute {
my $self = shift;
my ($opt, $args,) = @_;
- my $rf = RabbitFoot->new(
+ my $rf = Net::RabbitFoot->new(
verbose => $self->verbose,
)->load_xml_spec(
$self->spec,
View
2 lib/RabbitFoot/Cmd/Role/Config.pm → lib/Net/RabbitFoot/Cmd/Role/Config.pm
@@ -1,4 +1,4 @@
-package RabbitFoot::Cmd::Role::Config;
+package Net::RabbitFoot::Cmd::Role::Config;
use FindBin;
use Config::Any;
View
0 lib/auto/RabbitFoot/fixed_amqp0-8.xml → lib/auto/Net/RabbitFoot/fixed_amqp0-8.xml
File renamed without changes.
View
4 rabbit_foot
@@ -3,7 +3,7 @@
use strict;
use warnings;
-use RabbitFoot::Cmd;
+use Net::RabbitFoot::Cmd;
-RabbitFoot::Cmd->run;
+Net::RabbitFoot::Cmd->run;
View
16 t/00_compile.t
@@ -2,14 +2,14 @@ use strict;
use Test::More tests => 11;
BEGIN {
- use_ok 'RabbitFoot';
- use_ok 'RabbitFoot::Cmd';
- use_ok 'RabbitFoot::Cmd::Role::Command';
- use_ok 'RabbitFoot::Cmd::Role::Config';
- use_ok 'RabbitFoot::Cmd::Command::declare_queue';
- use_ok 'RabbitFoot::Cmd::Command::bind_queue';
- use_ok 'RabbitFoot::Cmd::Command::purge_queue';
- use_ok 'RabbitFoot::Cmd::Command::declare_exchange';
+ use_ok 'Net::RabbitFoot';
+ use_ok 'Net::RabbitFoot::Cmd';
+ use_ok 'Net::RabbitFoot::Cmd::Role::Command';
+ use_ok 'Net::RabbitFoot::Cmd::Role::Config';
+ use_ok 'Net::RabbitFoot::Cmd::Command::declare_queue';
+ use_ok 'Net::RabbitFoot::Cmd::Command::bind_queue';
+ use_ok 'Net::RabbitFoot::Cmd::Command::purge_queue';
+ use_ok 'Net::RabbitFoot::Cmd::Command::declare_exchange';
use_ok 'AnyEvent::RabbitMQ';
use_ok 'AnyEvent::RabbitMQ::Channel';
View
4 xt/04_anyevent.t
@@ -27,13 +27,13 @@ plan skip_all => 'Connection failure: '
. $conf->{host} . ':' . $conf->{port} if $@;
plan tests => 24;
-use RabbitFoot ();
+use Net::RabbitFoot ();
use AnyEvent::RabbitMQ;
my $ar = AnyEvent::RabbitMQ->new();
lives_ok sub {
- $ar->load_xml_spec(RabbitFoot::default_amqp_spec())
+ $ar->load_xml_spec(Net::RabbitFoot::default_amqp_spec())
}, 'load xml spec';
my $done = AnyEvent->condvar;
View
6 xt/05_coro.t
@@ -28,12 +28,12 @@ plan skip_all => 'Connection failure: '
plan tests => 23;
use Coro;
-use RabbitFoot;
+use Net::RabbitFoot;
-my $rf = RabbitFoot->new();
+my $rf = Net::RabbitFoot->new();
lives_ok sub {
- $rf->load_xml_spec(RabbitFoot::default_amqp_spec())
+ $rf->load_xml_spec(Net::RabbitFoot::default_amqp_spec())
}, 'load xml spec';
lives_ok sub {
View
8 xt/06_multi_channel.t
@@ -28,10 +28,10 @@ plan skip_all => 'Connection failure: '
plan tests => 6;
use Coro;
-use RabbitFoot;
+use Net::RabbitFoot;
-my $rf = RabbitFoot->new()->load_xml_spec(
- RabbitFoot::default_amqp_spec()
+my $rf = Net::RabbitFoot->new()->load_xml_spec(
+ Net::RabbitFoot::default_amqp_spec()
)->connect(
(map {$_ => $conf->{$_}} qw(host port user pass vhost)),
timeout => 1,
@@ -43,7 +43,7 @@ my $done = 0;
my @queues = map {
my $queue = 'test_q' . $_;
my $ch = $rf->open_channel();
- isa_ok($ch, 'RabbitFoot::Channel');
+ isa_ok($ch, 'Net::RabbitFoot::Channel');
$ch->declare_queue(queue => $queue);

0 comments on commit e2522ca

Please sign in to comment.