view release on metacpan or search on metacpan
lib/Apache2/ASP/ASPHandler.pm view on Meta::CPAN
use warnings 'all';
use base 'Apache2::ASP::HTTPHandler';
use Carp 'confess';
use vars __PACKAGE__->VARS;
use Data::Dumper;
#==============================================================================
sub run
{
my ($s, $context, $args) = @_;
view release on metacpan or search on metacpan
examples/CGI/htdocs/env.cgi view on Meta::CPAN
#!/usr/bin/perl
use strict;
use warnings;
use CGI;
use Data::Dumper;
my $cgi = CGI->new;
print $cgi->header('text/plain'), Data::Dumper->Dump([\%ENV], ['*ENV']);
exit(0);
view release on metacpan or search on metacpan
bin/auth-any-user.pl view on Meta::CPAN
use warnings;
use Apache2::AuthAny::DB ();
use Getopt::Long;
use Data::Dumper qw(Dumper);
my $usage = "Usage: auth-any-user.pl [options] user\n" .
"Use 'auth-any-user.pl --help' for complete documentation\n";
my $full_usage = <<'USAGE';
view release on metacpan or search on metacpan
lib/Apache2/AuthCASpbh/UserAgent.pm view on Meta::CPAN
use parent qw(LWP::UserAgent);
use Apache2::AuthCASpbh qw(cfg_value open_session);
use CGI qw ();
use Data::Dumper qw ();
use XML::Simple qw();
sub new {
my ($class, %conf) = @_;
view release on metacpan or search on metacpan
use Apache2::RequestRec; # from mocks
use Apache2::Const -compile => qw( OK HTTP_FORBIDDEN );
use Crypt::CBC; # from mocks
use Digest::MD5 qw( md5_hex ); # from mocks
use Digest::SHA;
use Data::Dumper;
use Mock::Tieable;
use Test::More tests => 71;
use constant CLASS_UNDER_TEST => 'Apache2::AuthCookieDBI';
$got_session_key,
qr/\A ${test_user}:/x,
'authen_cred returns session key starting with username when all OK.'
)
|| Test::More::diag( 'Mock request object contains: ',
Data::Dumper::Dumper($r) );
}
sub test_authen_ses_key {
my $auth_name = 'testing_authen_ses_key';
my $secret_key = 'test secret key';
CLASS_UNDER_TEST->authen_ses_key( $r, $encrypted_session_key );
like(
$r->log->error->[-1],
qr/ bad \s encrypted \s session_key /xm,
'authen_ses_key() on bad encrypted key'
) || Test::More::diag( '$r contains: ', Data::Dumper::Dumper($r) );
$r = set_up( $auth_name, $mock_config );
my $seperator = q{:};
my $public_part = join( $seperator,
$r->log->info->[2], # there are 2 prior messages from _dbi_connect
qr/user $user was not a member of any of the required groups @groups/,
'group() logs expected info message for user not in any group.'
)
|| Test::More::diag( 'Mock request object contains: ',
Data::Dumper::Dumper($r) );
# Test what happens when the user is in a group
my $group = 'some_group';
{
no warnings qw(once redefine);
];
Test::More::is_deeply( $mock_dbh->{'connect_cached_args'},
$expected,
'_dbi_connect() calls connect_cached() with expected arguments.' )
|| Test::More::diag( 'Sensor object contains: ',
Data::Dumper::Dumper($mock_dbh) );
Test::More::is_deeply( $r->log->error(), [],
'_dbi_connect() - no unexpected errors.' );
my $test_dsn = $mock_config->{"${auth_name}DBI_DSN"};
|| $got_failures++;
}
if ($got_failures) {
Test::More::diag( 'Mock request object contains: ',
Data::Dumper::Dumper($r) );
}
return TRUE;
}
sub test_user_is_active {
view release on metacpan or search on metacpan
lib/Apache2/AuthEnv.pm view on Meta::CPAN
use warnings FATAL => 'all', NONFATAL => 'redefine';
use vars qw($VERSION);
use Carp;
use Data::Dumper;
use Safe;
use Memoize;
use Memoize::Expire;
use Storable qw(freeze thaw dclone);
view release on metacpan or search on metacpan
examples/fakeup.pl view on Meta::CPAN
#!/usr/bin/perl -w
use strict;
use Data::Dumper;
use constant PRINTF => '%y\t%m\t%M\t%n\t%U\t%u\t%G\t%g\t%s\t%TY-%Tm-%Td '.
'%TH:%TM\t%T@\t%CY-%Cm-%Cd %CH:%CM\t%C@\t%h\t%f\t%p\n';
use constant PRINTF_FIELDS => qw(type mode perms links uid owner gid
group size mtime unixmtime ctime unixctime path filename absfile);
view release on metacpan or search on metacpan
lib/Apache2/EmbedFLV.pm view on Meta::CPAN
use Apache2::RequestIO ();
use Apache2::RequestUtil ();
use Apache2::Util ();
use Apache2::Const -compile => qw/OK :common DIR_MAGIC_TYPE/;
use Apache2::EmbedFLV::Template;
use Data::Dumper;
use Cwd;
use Digest::MD5 qw/md5_hex/;
sub handler {
my($r) = shift;
view release on metacpan or search on metacpan
lib/Apache2/EmbedMP3.pm view on Meta::CPAN
use Apache2::RequestIO ();
use Apache2::RequestUtil ();
use Apache2::Util ();
use Apache2::Const -compile => qw/OK :common DIR_MAGIC_TYPE/;
use Apache2::EmbedMP3::Template;
use Data::Dumper;
use Cwd;
use Music::Tag;
use Digest::MD5 qw/md5_hex/;
sub handler {
view release on metacpan or search on metacpan
FileManager.pm view on Meta::CPAN
use File::Remove qw(remove);
use File::stat;
use Archive::Any;
use POSIX qw(strftime);
use CGI::Cookie;
#use Data::Dumper;
require 5.005_62;
our $VERSION = '0.20';
view release on metacpan or search on metacpan
lib/Apache2/HTML/Detergent/Config.pm view on Meta::CPAN
my ($self, $type) = @_;
return unless defined $type;
$type =~ s!^\s*([^/]+/[^/;]+).*!\L$1!;
# ok so i'm not on crack
#warn $type;
#require Data::Dumper;
#warn Data::Dumper::Dumper($self->types);
return $self->types->{$type};
}
=head2 COPYRIGHT & LICENSE
view release on metacpan or search on metacpan
lib/Apache2/Imager/Resize.pm view on Meta::CPAN
use Apache2::RequestUtil;
use Apache2::Request;
use APR::Finfo;
use APR::Const qw(:finfo);
use Imager;
use Data::Dumper;
use vars qw($VERSION);
$VERSION = '0.16';
=head1 NAME
view release on metacpan or search on metacpan
lib/Apache2/Instrument.pm view on Meta::CPAN
use Apache2::Const -compile => qw(OK);
use Apache2::RequestUtil ();
use Apache2::RequestRec ();
use Apache2::Log ();
use Data::Dumper;
sub notes {
my ( $class, $r, $v ) = @_;
if ( defined $v ) {
return $r->pnotes( $class, $v );
view release on metacpan or search on metacpan
lib/Apache2/LogNotify.pm view on Meta::CPAN
use Apache2::Process;
use APR::Table;
use APR::Finfo ();
use Mail::Mailer;
use IPC::Cache;
use Data::Dumper;
our $VERSION = 0.10;
my $cache = new IPC::Cache( { namespace => 'LogNotify',
expires_in => 86400 } );
$cache->purge();
view release on metacpan or search on metacpan
! Add protection of static pages with the require_login config
attribute. (Boris Zentner)
- Fix two cases where a filehandle can be used even if open failed
(Boris Zentner)
- Fix uri_prefix so that the url did not grow anymore (Boris Zentner)
- Remove unused modules Data::Dumper and Carp from View.pm (Boris Zentner)
- Fix to deliver static pages unzipped if desired (Anton Permyakov)
- Fix case where wrong cached file is used for xsl files with
reload="no" and first called without parameters in the
URL (Boris Zentner, Ben Ausden)
1.08
view release on metacpan or search on metacpan
lib/Apache2/Proxy.pm view on Meta::CPAN
use URI;
use Net::HTTP;
use HTTP::Response;
use HTTP::Headers;
use HTTP::Headers::Util ();
use Data::Dumper;
use Net::DNS;
our $Resolver = Net::DNS::Resolver->new;
use constant DEBUG => 1;
use constant VERBOSE_DEBUG => 0;
view release on metacpan or search on metacpan
lib/Apache2/REST.pm view on Meta::CPAN
use Apache2::REST::Response ;
use Apache2::REST::Request ;
use Apache2::REST::Conf ;
use Data::Dumper ;
our $VERSION = '0.07';
=head1 NAME
view release on metacpan or search on metacpan
t/response/TestApache/conf.pm view on Meta::CPAN
use base qw(Apache2::SQLRequest);
use Apache2::RequestIO ();
use Apache2::Const -compile => qw(OK);
use Data::Dumper qw(Dumper);
sub handler : method {
my $r = shift->SUPER::new(shift);
my $conf = $r->{conf};
$r->content_type('text/plain');
view release on metacpan or search on metacpan
my %summary;
my @keys=qw/. _ S R W K L D C G I bw iw cw nr nb/;
@summary{@keys}=$obj->summary(@keys);
use Data::Dumper;
t_debug Dumper \%summary;
is_deeply \%summary, {
'.' => '13',
'C' => '0',
view release on metacpan or search on metacpan
lib/Apache2/ScoreboardDumper.pm view on Meta::CPAN
vhost => $worker_score->vhost,
};
$worker_stats{ $worker_score->status }++;
}
$Data::Dumper::Terse = 1;
$Data::Dumper::Indent = 0;
my $scores = Dumper( @worker_scores );
$r->log->info( "Scores: $scores" );
my $stats = Dumper( %worker_stats );
view release on metacpan or search on metacpan
lib/Apache2/SiteControl/UserFactory.pm view on Meta::CPAN
use 5.008;
use strict;
use warnings;
use Carp;
use Data::Dumper;
use Apache2::SiteControl::User;
use Crypt::CBC;
our $engine;
our $encryption_key;
view release on metacpan or search on metacpan
'Apache2::RequestUtil' => 0,
'Apache2::RequestRec' => 0,
'Apache2::RequestIO' => 0,
'Apache2::Const' => 0,
'DirHandle' => 0,
'Data::Dumper' => 0,
},
build_requires => {
'Module::Build' => 0,
'Apache::TestMB' => 0,
'Apache::Test' => 0,
view release on metacpan or search on metacpan
t/005provider-MMapDB.t view on Meta::CPAN
use Apache::TestUtil;
use Apache::TestUtil qw(t_catfile);
use Test::Deep;
use File::Basename 'dirname';
use File::Path ();
use Data::Dumper; $Data::Dumper::Useqq=1;
plan tests=>23;
#plan 'no_plan';
my $data=<<'EOD';
view release on metacpan or search on metacpan
lib/Apache2/WurflPremium.pm view on Meta::CPAN
package Apache2::WurflPremium;
use strict;
use warnings;
use Data::Dumper;
use Apache2::Const;
use Apache2::RequestRec;
use APR::Table;
view release on metacpan or search on metacpan
lib/HTTPD/Bench/ApacheBench.pm view on Meta::CPAN
# show response times (in ms) for $run2, 7th repetition
print join(', ', @{$run2->iteration(6)->response_times}) . "\n";
# dump the entire regression object (WARNING, this could be a LOT OF DATA)
use Data::Dumper;
my $d = Data::Dumper->new([$ro]);
print $d->Dumpxs;
=head1 GOALS
view release on metacpan or search on metacpan
examples/expand.pl view on Meta::CPAN
# Write all data to plain text file
open my $out_fh, '>', $out or die "Failed to create output file $out - $!";
binmode $out_fh, ':encoding(utf8)';
use Data::Dumper;
# Provide a callback to send data through to the file
my $alc = ApacheLog::Compressor->new(
on_log_line => sub {
my ($self, $data) = @_;
# Use the helper method to expand back to plain text representation
view release on metacpan or search on metacpan
examples/api_products.pl view on Meta::CPAN
# use warnings;
use v5.10;
use FindBin qw/$Bin/;
use lib "$Bin/../lib";
use Apigee::Edge;
use Data::Dumper;
die "ENV APIGEE_ORG/APIGEE_USR/APIGEE_PWD is required." unless $ENV{APIGEE_ORG} and $ENV{APIGEE_USR} and $ENV{APIGEE_PWD};
my $apigee = Apigee::Edge->new(
org => $ENV{APIGEE_ORG},
usr => $ENV{APIGEE_USR},
view release on metacpan or search on metacpan
script/_acme-cpanauthors view on Meta::CPAN
#This is the default Log::ger formatter, which: 1) passes the argument as-is if
#there is only a single argument; or, if there are more than one argument, 2)
#treats the arguments like sprintf(), where the first argument is the template
#and the rest are variables to be substituted to the conversions inside the
#template. In the second case, reference arguments will be dumped using
#L<Data::Dmp> or L<Data::Dumper> by default (but the dumper is configurable by
#setting C<$Log::ger::_dumper>; see for example L<Log::ger::UseDataDump> or
#L<Log::ger::UseDataDumpColor>).
#
#The same code is already included in L<Log::ger::Heavy>; this module just
#repackages it so it's more reusable.
script/_acme-cpanauthors view on Meta::CPAN
# $Data::Dmp::OPT_REMOVE_PRAGMAS = 1;
# 1;
# };
# if ($@) {
# no warnings 'once';
# require Data::Dumper;
# $Log::ger::_dumper = sub {
# local $Data::Dumper::Terse = 1;
# local $Data::Dumper::Indent = 0;
# local $Data::Dumper::Useqq = 1;
# local $Data::Dumper::Deparse = 1;
# local $Data::Dumper::Quotekeys = 0;
# local $Data::Dumper::Sortkeys = 1;
# local $Data::Dumper::Trailingcomma = 1;
# local $Data::Dumper::Useqq = 1; # to show "\034", possible bug in Data::Dumper
# Data::Dumper::Dumper($_[0]);
# };
# } else {
# $Log::ger::_dumper = sub { Data::Dmp::dmp($_[0]) };
# }
# }
view release on metacpan or search on metacpan
lib/App/Acmeman.pm view on Meta::CPAN
use Pod::Man;
use Getopt::Long qw(:config gnu_getopt no_ignore_case);
use POSIX qw(strftime time floor);
use App::Acmeman::Config;
use App::Acmeman::Domain qw(:files);
use Data::Dumper;
use Text::ParseWords;
use App::Acmeman::Log qw(:all :sysexits);
use feature 'state';
our $VERSION = '3.10';
view release on metacpan or search on metacpan
lib/App/Alice/Config.pm view on Meta::CPAN
package App::Alice::Config;
use FindBin;
use Data::Dumper;
use File::ShareDir qw/dist_dir/;
use Getopt::Long;
use Any::Moose;
has assetdir => (
lib/App/Alice/Config.pm view on Meta::CPAN
my ($self, $data) = @_;
my $config = $data || $self->serialized;
mkdir $self->path if !-d $self->path;
open my $fh, ">", $self->fullpath;
{
local $Data::Dumper::Terse = 1;
local $Data::Dumper::Indent = 1;
print $fh Dumper($config)
or warn "Can not write config file: $!\n";
}
}