sydney/Autobot
1
0 Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Changed module naming scheme to appease Perl::Critic.

Browse Source
This commit is contained in:
Elijah Perrault committed 2011-02-17 17:41:33 -07:00
1 parent 7a9230c75a
commit a4ae87a86c
14 files changed
+40 -40
Download Patch File Download Diff File Expand all files Collapse all files

No files matched your search

modules/EightBall.pm
+3 -3
View File
@@ -1,7 +1,7 @@
# Module: EightBall. See below for documentation.
# Copyright (C) 2010-2011 Xelhua Development Group, et al.
# This program is free software; rights to this code are stated in doc/LICENSE.
package m_EightBall;
package M::EightBall;
use strict;
use warnings;
use feature qw(switch);
@@ -13,8 +13,8 @@ our $ANSWER = 0;
sub _init
{
# Create the 8BALL and RIGBALL commands.
cmd_add("8BALL", 0, 0, \%m_EightBall::HELP_8BALL, \&m_EightBall::c_8ball) or return 0;
cmd_add("RIGBALL", 1, "cmd.rigball", \%m_EightBall::HELP_RIGBALL, \&m_EightBall::rigball) or return 0;
cmd_add("8BALL", 0, 0, \%M::EightBall::HELP_8BALL, \&M::EightBall::c_8ball) or return 0;
cmd_add("RIGBALL", 1, "cmd.rigball", \%M::EightBall::HELP_RIGBALL, \&M::EightBall::rigball) or return 0;
# Success.
return 1;