Apache-Voodoo

 view release on metacpan or  search on metacpan

bin/voodoo-control  view on Meta::CPAN

=head1 SYNOPSIS

FIXME: Add documentation

=cut ###########################################################################

use strict;
use warnings;

use Getopt::Long;
use Data::Dumper;

# turn off buffered output
$| = 1;

my %options = (
	'verbose' => 0,
	'ignore'  => 0,
	'pretend' => 0
);

lib/Apache/Voodoo.pm  view on Meta::CPAN

package Apache::Voodoo;

$VERSION = "3.0200";

use strict;
use warnings;

use Data::Dumper;
use Time::HiRes;
use Apache::Voodoo::Exception;

sub new {
	my $class = shift;
	my $self = {};

	bless $self, $class;

	return $self;

lib/Apache/Voodoo/Application.pm  view on Meta::CPAN

use strict;
use warnings;

use Apache::Voodoo::Constants;
use Apache::Voodoo::Application::ConfigParser;

use Apache::Voodoo::Session;
use Apache::Voodoo::Debug;

use Data::Dumper;

sub new {
	my $class = shift;
	my $self = {};

	bless $self, $class;

#	$self->{'debug'} = 1;

	$self->{'id'}        = shift;

lib/Apache/Voodoo/Debug/Handler.pm  view on Meta::CPAN

		# connect to the debugging database
		my $dbh = DBI->connect_cached(@{$self->{constants}->debug_dbd()});
		unless ($dbh) {
			return $self->display_host_error("Can't connect to debugging database: ".DBI->errstr);
		}

		my $return;
		eval {
			$return = $self->$method($dbh,$params);
		};
		use Data::Dumper;
		warn Dumper $@;
		if ($@) {
			return $self->display_host_error("$@");
		}

		if (ref($return) eq "HASH") {
			$self->{mp}->content_type("application/json");
			$self->{mp}->print($self->{json}->to_json($return));
		}
		else {

lib/Apache/Voodoo/Debug/Log4perl.pm  view on Meta::CPAN

$VERSION = "3.0200";

use strict;
use warnings;

use base("Apache::Voodoo::Debug::Common");

use File::Spec;
use Log::Log4perl;
use Data::Dumper; $Data::Dumper::Terse = 1; $Data::Dumper::Indent = 1;

$Log::Log4perl::caller_depth = 3;

#
# Since log4perl wants to use one config file for the whole running perl program (one
# call to init), and # ApacheVoodo lets you define logging per application (multiple inits).
# We're using a singleton to get around that.  We append each config block to a hash and
# then init log4perl after the all the apps are loaded.  Kinda ugly, but until log4perl supports
# multiple configs, then it's what we're stuck with.
#

lib/Apache/Voodoo/Install.pm  view on Meta::CPAN

# Apache::Voodoo::Install::* objects.
#
###########################################################################
package Apache::Voodoo::Install;

$VERSION = "3.0200";

use strict;
use warnings;

use Data::Dumper;

################################################################################
# Sets / unsets the 'pretend' run mode
################################################################################
sub pretend {
	my $self = shift;
	$self->{'pretend'} = shift;
}

sub _printer {

lib/Apache/Voodoo/Install/Config.pm  view on Meta::CPAN

$VERSION = "3.0200";

use strict;
use warnings;

# There doesn't seem to be another "user input prompt" mechanism installed
# by default other that this one.  Seems kinda strange to have to use an
# object designed for make file creation for this...oh well.
use ExtUtils::MakeMaker qw{ prompt };
use Data::Dumper;

$Data::Dumper::Indent=1;
$Data::Dumper::Terse=1;
$Data::Dumper::Sortkeys=1;

sub new {
	my $class = shift;
	my %params = @_;

	my $self = {};
	if (defined($params{PREFIX})) {
		# take whatever is supplied
		foreach (keys %params) {
			$self->{$_} = $params{$_};

lib/Apache/Voodoo/Soap.pm  view on Meta::CPAN

	}
}

use MIME::Entity;

use Apache::Voodoo::MP;
use Apache::Voodoo::Engine;
use Apache::Voodoo::Exception;
use Exception::Class::DBI;

use Data::Dumper;

sub new {
	my $class = shift;

	my $self = {};
	bless $self,$class;

	$self->{'mp'}     = Apache::Voodoo::MP->new();
	$self->{'engine'} = Apache::Voodoo::Engine->new('mp' => $self->{'mp'});

t/Application-ConfigParser.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 55;
use Data::Dumper;

use lib("t");

BEGIN {
	# fall back to eq_or_diff if we don't have Test::Differences
	if (!eval q{ use Test::Differences; 1 }) {
		*eq_or_diff = \&is_deeply;
	}
}

t/Application.t  view on Meta::CPAN

use strict;
use warnings;

use lib("t");

use File::Copy;

use Test::More tests => 27;
use Data::Dumper;

BEGIN {
	# fall back to eq_or_diff if we don't have Test::Differences
	if (!eval q{ use Test::Differences; 1 }) {
		*eq_or_diff = \&is_deeply;
	}
}

use_ok('Apache::Voodoo::Constants')   || BAIL_OUT($@);
use_ok('Apache::Voodoo::Application') || BAIL_OUT($@);

t/Table.t  view on Meta::CPAN

use strict;
use warnings;

use Data::Dumper;
use Test::More tests => 17;

use_ok('File::Temp');
use_ok('DBI');
use_ok('Apache::Voodoo::Exception');
use_ok('Apache::Voodoo::Table');
use_ok('Apache::Voodoo::Table::Probe');

################################################################################
# Tests related to checking the config syntax

t/Validate.t  view on Meta::CPAN

use strict;
use warnings;

use Test::More tests => 113;
use Data::Dumper;

BEGIN {
	use_ok('Apache::Voodoo::Validate');
};
require_ok('Apache::Voodoo::Validate');

my %u_int_old = (
	'type' => 'unsigned_int',
	'max' => 4294967295
);

t/app_newstyle/V/a/view.pm  view on Meta::CPAN

package app_newstyle::V::a::view;

use strict;
use warnings;

use base("Apache::Voodoo::View");
use Data::Dumper;

sub init {
	my $self   = shift;
	my $config = shift;

	$self->content_type('text/plain');
	$self->{data} = {};
}

sub params {

t/app_newstyle/V/a/view.pm.orig  view on Meta::CPAN

package app_newstyle::V::a::view;

use strict;
use warnings;

use base("Apache::Voodoo::View");
use Data::Dumper;

sub init {
	my $self   = shift;
	my $config = shift;

	$self->content_type('text/plain');
	$self->{data} = {};
}

sub params {