Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-08 01:05:46 -04:00
Code Issues Releases Wiki Activity

Some debugging and fix the Foo namespace

Browse source
This commit is contained in:
Ryan Voots 2016-01-01 23:46:00 -08:00
parent c756fea56d
commit 9364e7f05d
3 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
lib/Bot/BB3/.PluginManager.pm.swp Normal file
View file

Binary file not shown.

1
lib/Bot/BB3/PluginManager.pm
View file

@ -357,6 +357,7 @@ sub _parse_for_commands {
my( $self, $said, $commands ) = @_; my( $self, $said, $commands ) = @_;
my $command_re = join '|', map "\Q$_", keys %$commands; my $command_re = join '|', map "\Q$_", keys %$commands;
warn "$command_re";
$command_re = qr/$command_re/; #TODO move to _pre_build_chains and switch to Trie $command_re = qr/$command_re/; #TODO move to _pre_build_chains and switch to Trie
if( (!$said->{addressed} && $said->{body} =~ s/^\s*($command_re)[:,;]\s*(.+)/$2/) if( (!$said->{addressed} && $said->{body} =~ s/^\s*($command_re)[:,;]\s*(.+)/$2/)

2
lib/eval.pl
View file

@ -45,7 +45,7 @@ require JSON;
require Moose; require Moose;
require MooseX::Declare; require MooseX::Declare;
eval "use MooseX::Declare; class Foo { has dongs => ( is => ro, isa => 'Int' ); };"; eval "use MooseX::Declare; class LoadAllMooseXDeclare { has dongs => ( is => ro, isa => 'Int' ); };";
require "utf8_heavy.pl"; require "utf8_heavy.pl";
use arybase; use arybase;
use Errno; use Errno;