Result:
found more than 550 distributions - search limited to the first 2001 files matching your query ( run in 0.622 )


Apache-Syntax-Highlight-Perl

 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


Apache-Test

 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


Apache-Tika-Async

 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


Apache-UploadSvr

 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


Apache-UpnpImgBrowser

 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


Apache-Voodoo

 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


Apache-WebDAV

 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


Apache-Wyrd

 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


Apache-XPP

 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


Apache-forks

 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


Apache-iNcom

 view release on metacpan or  search on metacpan

ChangeLog  view on Meta::CPAN


	* 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


Apache2-API

 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


Apache2-ASP

 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


Apache2-AUS

 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


Apache2-AuthAny

 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


Apache2-AuthCASpbh

 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


Apache2-AuthCookieDBI

 view release on metacpan or  search on metacpan

t/utils.t  view on Meta::CPAN

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';

t/utils.t  view on Meta::CPAN

        $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';

t/utils.t  view on Meta::CPAN

    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,

t/utils.t  view on Meta::CPAN

        $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);

t/utils.t  view on Meta::CPAN

    ];
    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"};

t/utils.t  view on Meta::CPAN

            || $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


Apache2-AuthEnv

 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


Apache2-AutoIndex-XSLT

 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


Apache2-EmbedFLV

 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


Apache2-EmbedMP3

 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


Apache2-FileManager

 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


Apache2-HTML-Detergent

 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


Apache2-Imager-Resize

 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


Apache2-Instrument

 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


Apache2-LogNotify

 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


Apache2-PageKit

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

	! 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


Apache2-Proxy

 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


Apache2-REST

 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


( run in 0.622 second using v1.01-cache-2.11-cpan-a5abf4f5562 )