view release on metacpan or search on metacpan
lib/Apache/Syntax/Highlight/Perl.pm view on Meta::CPAN
}
# We have already in cache
else {
$str = get_cache( file => $key, dir => $r->dir_config('HighlightCacheDir') || '/tmp', debug => $debug );
}
use Data::Dumper;
print STDERR ("[$$] " . $r->filename . "\n" . Dumper(\%stat)) if $debug;
}
# When we must highlight?
if ( $have_to_cache || ! $str ) {
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/TestConfig.pm view on Meta::CPAN
my $class = shift;
$class->new({thaw => 1, @_});
}
sub freeze {
require Data::Dumper;
local $Data::Dumper::Terse = 1;
my $data = Data::Dumper::Dumper(shift);
chomp $data;
$data;
}
sub sync_vars {
view all matches for this distribution
view release on metacpan or search on metacpan
bin/script.pl view on Meta::CPAN
GetOptions(
'jar|j=s' => \my $tika_path,
);
use Data::Dumper;
if( ! $tika_path ) {
my $tika_glob = File::Spec->rel2abs( dirname($0) ) . '/../jar/*.jar';
$tika_path = Apache::Tika::Async->best_jar_file(glob $tika_glob);
die "Tika not found in '$tika_glob'" unless $tika_path and -f $tika_path;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/UploadSvr.pm view on Meta::CPAN
$self->dispatch;
}
sub as_string {
my($self) = @_;
require Data::Dumper;
join "", "<PRE>", Data::Dumper::Dumper($self), "</PRE>\n";
}
sub dispatch {
my($self) = @_;
my $r = $self->{R};
view all matches for this distribution
view release on metacpan or search on metacpan
UpnpImgBrowser.pm view on Meta::CPAN
use File::Basename qw(fileparse);
use Net::UPnP::ControlPoint;
use Net::UPnP::AV::MediaServer;
use SOAP::Lite maptype => {};
use XML::Simple;
use Data::Dumper;
use POSIX qw(strftime);
use Cache::FileCache;
use URI::Escape;
use LWP::Simple;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/Voodoo.pm view on Meta::CPAN
$VERSION = "3.0200";
use strict;
use warnings;
use Data::Dumper;
use Time::HiRes;
use Apache::Voodoo::Exception;
sub new {
my $class = shift;
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/WebDAV.pm view on Meta::CPAN
our $VERSION = '0.01';
use Apache;
use Apache::Constants qw(:response :http);
use Apache::Util qw(unescape_uri escape_uri);
use Data::Dumper;
use Encode;
use File::Spec;
use File::Find::Rule::Filesys::Virtual;
use URI;
use URI::Escape;
view all matches for this distribution
view release on metacpan or search on metacpan
Wyrd/Chart.pm view on Meta::CPAN
use base qw(Apache::Wyrd::Interfaces::Setter Apache::Wyrd);
use GD::Graph;
use GD::Graph::colour qw(:colours :convert :lists);
use Apache::Wyrd::Services::SAK qw(:tag :file token_parse token_hash);
use Digest::SHA qw(sha1_hex);
use Data::Dumper;
=pod
=head1 NAME
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache/XPP.pm view on Meta::CPAN
At present there are only 4 levels of debugging :
0 - no debugging (default)
1 - some debugging
2 - verbose debugging
3 - adds some Data::Dumper calls
=item C<$debuglines>
Optionally, you can activate the $debuglines, which will cause all
debugging output to include the line numbers (in this file) of the debugging.
lib/Apache/XPP.pm view on Meta::CPAN
warn "xpp: parsing source" . ($debuglines ? '' : "\n") if ($debug);
my @codesrc;
{
if ($debug >= 3) {
eval "use Data::Dumper;";
local($Data::Dumper::Indent) = 0;
}
warn "xpp: parsing source:\n<<\n$string\n>>" . ($debuglines ? '' : "\n") if ($debug);
# The regex in the while() statement below is somewhat complex. It was placed in one line for efficiency,
# but this is how it came to be:
lib/Apache/XPP.pm view on Meta::CPAN
# while (($string =~ s/^(.*?)\<\?(?:xpp)?(=)?(.*?\s*)\?\>//so) || ($string =~ s/^(.+)$//so)) {
while (($string =~ s/^((?:(?!<\?).)*)<\?(?:xpp)?(=)?((?:(?!<\?|\?>).)*(?:<\?(?:xpp)?(?:=)?(?:(?!<\?|\?>).)*(?:(?!\?>).)*\?>)?(?:(?!\?>).)*)\?>//so) || ($string =~ s/^(.+)$//so)) {
my $text = $1;
my $print = $2 ? 1 : 0;
my $code = $3;
warn Data::Dumper->Dump([$text,$code], [qw(text code)]) if ($debug >= 3);
$text =~ s#\\#\\\\#gso;
$text =~ s#\'#\\\'#gso;
if ($text) {
lib/Apache/XPP.pm view on Meta::CPAN
Revision 1.27 2002/01/16 21:06:01 kasei
Updated VERSION variables to 2.01
Revision 1.26 2002/01/16 21:00:02 kasei
- Added PREREQ_PM arguments to Makefile.PL
- XPP.pm now only uses Data::Dumper if $debug >= 3 (not listed as a prereq)
Revision 1.25 2000/09/23 01:22:06 dweimer
Fixed VHostIncludeDir's, thanks david.
Revision 1.24 2000/09/20 00:33:18 zhobson
view all matches for this distribution
view release on metacpan or search on metacpan
eg/printenv.cgi view on Meta::CPAN
##
use threads;
use threads::shared;
use Data::Dumper;
use Benchmark qw(:all);
print "Content-type: text/plain\n\n";
### print environment details ###
view all matches for this distribution
view release on metacpan or search on metacpan
* lib/DBIx/UserDB.pm (group_get): $gid renamed to $gidorname.
* lib/Apache/iNcom/OrderManager.pm (checkout): Variable $profile
is really variable $order. items is an array ref. Remove
Data::Dumper reference.
(order_report): %fdat of calling page was overwritten. Order data
is now passed into the %order global hash.
* lib/Apache/iNcom/CartManager.pm (apply_charges): Didn't
deference array.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache2/API/Request.pm view on Meta::CPAN
#
# # Send warning with headers to explain bad cookie
# else {
# warn( "COOKIE ERROR: "
# . $req->jar_status . "\n"
# . Data::Dumper::Dumper( $self->r->headers_in() ) );
# }
sub cookies
{
my $self = shift( @_ );
view all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution
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 all matches for this distribution