POD fixes and removing debug output

This commit is contained in:
Wouter van Oijen 2006-07-11 09:05:22 +00:00
parent f3346bd008
commit 2d9565775f
53 changed files with 267 additions and 215 deletions

View file

@ -75,15 +75,15 @@ our $HELP = {
my @activities = map { s/^WebGUI::Workflow::Activity:://; $_; }
map { @{ $workflows{$_} } }
keys %workflows;
use Data::Dumper;
$session->errorHandler->warn(Dumper \@activities);
#use Data::Dumper;
#$session->errorHandler->warn(Dumper \@activities);
return map {
my ($namespace, $tag) = ($_, $_);
$tag =~ s/([a-z])([A-Z])/$1 $2/g; #Separate studly caps
$tag =~ s/([A-Z]+(?![a-z]))/$1 /g; #Separate acronyms
$tag = lc $tag;
$namespace = join '', 'Workflow_Activity_', $namespace;
$session->errorHandler->warn($tag.' '.$namespace);
#$session->errorHandler->warn($tag.' '.$namespace);
{ tag => "$tag",
namespace => $namespace }
} @activities;