view release on metacpan or search on metacpan
lib/Apache/GD/Graph.pm view on Meta::CPAN
=back
=cut
use strict;
use Data::Dumper;
use Apache;
use Apache::Constants qw/OK/;
use HTTP::Date;
use GD;
use GD::Text;
view release on metacpan or search on metacpan
lib/Apache/Gallery.pm view on Meta::CPAN
use CGI::Cookie;
use Encode;
use HTTP::Date;
use Digest::MD5 qw(md5_base64);
use Data::Dumper;
# Regexp for escaping URI's
my $escape_rule = "^A-Za-z0-9\-_.!~*'()\/";
my $memoized;
lib/Apache/Gallery.pm view on Meta::CPAN
Examples of keys: B<ShutterSpeedValue>, B<ApertureValue>, B<SubjectDistance>,
and B<Camera>
You can view all the keys from the EXIF header using this perl-oneliner:
perl C<-e> 'use Data::Dumper; use Image::Info qw(image_info); print Dumper(image_info(shift));' filename.jpg
Default is: 'Picture Taken => DateTimeOriginal, Flash => Flash'
=item B<GallerySizes>
view release on metacpan or search on metacpan
Client/httunnel view on Meta::CPAN
use IO::Select ;
use IO::Pipe ;
use IO::Handle ;
BEGIN { eval { require Sys::Syslog } }
use HTTunnel::Client ;
use Data::Dumper ;
use POSIX qw(setsid) ;
$SIG{CHLD} = 'IGNORE' ;
view release on metacpan or search on metacpan
lib/Apache/Hadoop/Watcher/Base.pm view on Meta::CPAN
use strict;
use warnings;
use IO::Socket::INET;
use LWP::UserAgent;
use Data::Dumper;
our @ISA = qw();
our $VERSION = '0.01';
lib/Apache/Hadoop/Watcher/Base.pm view on Meta::CPAN
Apache::Hadoop::Watcher::Jmx
Apache::Hadoop::Watcher::Yarn
Apache::Hadoop::Watcher
IO::Socket::INET;
LWP::UserAgent;
Data::Dumper;
=head1 AUTHOR
Snehasis Sinha, E<lt>snehasis@cpan.orgE<gt>
view release on metacpan or search on metacpan
lib/Apache/Hadoop/WebHDFS.pm view on Meta::CPAN
=head2 list a HDFS directory on a secure hadop cluster
#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use Apache::Hadoop::WebHDFS;
my $username=getlogin();
my $hdfsclient = Apache::Hadoop::WebHDFS->new( {namenode =>"mynamenode.example.com",
namenodeport =>"50070",
authmethod =>"gssapi",
view release on metacpan or search on metacpan
lib/Apache/Handlers.pm view on Meta::CPAN
my %code = ( );
sub dump {
eval {
use Data::Dumper;
return Data::Dumper -> Dump([\%code]);
};
}
my %phases = qw:
CHILDINIT PerlChildInitHandler
lib/Apache/Handlers.pm view on Meta::CPAN
=over 4
=item dump
This will dump the current set of code references and return the string.
This uses L<Data::Dumper|Data::Dumper>.
=item reset
This will clear out all previously set code. This should only be used in
the C<startup.pl> or equivalent so that code doesn't get run twice during a
lib/Apache/Handlers.pm view on Meta::CPAN
=head1 SEE ALSO
L<Apache>,
L<Attribute::Handlers>,
L<Data::Dumper>.
=head1 AUTHOR
James G. Smith <jsmith@cpan.org>
view release on metacpan or search on metacpan
lib/Apache/HeavyCGI/Debug.pm view on Meta::CPAN
package Apache::HeavyCGI::Debug;
use base 'Class::Singleton';
use Data::Dumper;
use strict;
sub as_string {
my Apache::HeavyCGI::Debug $self = shift;
my Apache::HeavyCGI $mgr = shift;
lib/Apache/HeavyCGI/Debug.pm view on Meta::CPAN
while (($k,$v) = each %$mgr){
next unless defined $v;
$f{$k} = $v;
}
Data::Dumper::Dumper( \%f )
}
1;
=head1 NAME
Apache::HeavyCGI::Debug - inspect the Pseudohash as Hash with Data::Dumper
=head1 SYNOPSIS
push @layout, "<BR><PRE>",
$self->instance_of("Apache::HeavyCGI::Debug"),
view release on metacpan or search on metacpan
lib/Apache/Imager/Resize.pm view on Meta::CPAN
use File::Basename ();
use File::Path ();
use Apache::Constants (':common');
use Imager;
use Data::Dumper;
use Apache::ModuleConfig ();
use DynaLoader ();
use vars qw($VERSION);
view release on metacpan or search on metacpan
lib/Apache/JAF.pm view on Meta::CPAN
use Apache::Request ();
use Apache::Constants qw( :common REDIRECT );
use Apache::File ();
use Data::Dumper qw( Dumper );
use File::Find ();
our $WIN32 = $^O =~ /win32/i;
our $RX = $WIN32 ? qr/\:(?!(?:\/|\\))/ : qr/\:/;
our $VERSION = do { my @r = (q$Revision: 0.21 $ =~ /\d+/g); sprintf "%d."."%02d" x $#r, @r };
lib/Apache/JAF.pm view on Meta::CPAN
my $messages = $modeller->messages();
if ($messages) {
Apache::Cookie->new($self->{r},
-name => 'messages',
-path => '/',
-value => Data::Dumper::Dumper $messages)->bake();
}
} elsif ($self->{status} == OK && $self->{type} =~ /^text/ && !$self->{r}->header_only) {
my $VAR1;
if (exists $self->{cookies}{messages} && eval $self->{cookies}{messages}->value) {
$self->{res}{messages} = $VAR1;
view release on metacpan or search on metacpan
Language.pm view on Meta::CPAN
use vars qw(%CACHE $VERSION @ISA $DEBUG $DEFAULT_HANDLER $AUTOLOAD %DEBUG);
use Apache::Language::Constants;
use Apache::ModuleConfig;
use IO::File;
use Data::Dumper;
use I18N::LangTags qw(is_language_tag similarity_language_tag same_language_tag);
@ISA = qw(DynaLoader);
$VERSION = '0.14';
$DEBUG=0;
view release on metacpan or search on metacpan
xl_ => { class => 'DBD::Excel', },
yaswi_ => { class => 'DBD::Yaswi', },
};
sub dump_dbd_registry {
require Data::Dumper;
local $Data::Dumper::Sortkeys=1;
local $Data::Dumper::Indent=1;
print Data::Dumper->Dump([$dbd_prefix_registry], [qw($dbd_prefix_registry)]);
}
# --- Dynamically create the DBI Standard Interface
my $keeperr = { O=>0x0004 };
%attributes,
# merge in modified attr in %$old_dbh, this should also copy in
# the dbi_connect_closure attribute so we can reconnect again.
%{ $override_attr || {} },
};
#warn "connect_closure: ".Data::Dumper::Dumper([\%attributes, $override_attr]);
my $dbh;
unless ($dbh = $drh->$connect_meth($dsn, $user, $pass, $attr)) {
$user = '' if !defined $user;
$dsn = '' if !defined $dsn;
AutoCommit ChopBlanks InactiveDestroy
LongTruncOk PrintError PrintWarn Profile RaiseError
ShowErrorStatement TaintIn TaintOut
));
}
# use Data::Dumper; warn Dumper([$old_dbh, $attr]);
my $new_dbh = &$closure($old_dbh, $attr);
unless ($new_dbh) {
# need to copy err/errstr from driver back into $old_dbh
my $drh = $old_dbh->{Driver};
return $old_dbh->set_err($drh->err, $drh->errstr, $drh->state);
view release on metacpan or search on metacpan
lib/Apache/Logmonster.pm view on Meta::CPAN
our $VERSION = '5.36';
use Carp;
use Compress::Zlib;
use Cwd;
#use Data::Dumper;
use Date::Parse;
use FileHandle;
use File::Basename;
use File::Copy;
use Regexp::Log;
view release on metacpan or search on metacpan
use strict;
use Apache::DBI;
use DBI;
use Apache::Constants qw(OK NOT_FOUND SERVER_ERROR AUTH_REQUIRED);
use Apache::Request ();
use Data::Dumper;
use vars qw($VERSION %owa_mapping %owa_version);
my $DEBUG = 0;
$VERSION = '0.7';
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
ProxyStuff.pm view on Meta::CPAN
use Apache::Constants qw(:common);
use Apache::Log;
use Apache::Table;
use HTML::TokeParser;
use LWP::UserAgent;
use Data::Dumper;
@ISA = qw(LWP::UserAgent);
$VERSION = '0.10';
my $UA = __PACKAGE__->new;
view release on metacpan or search on metacpan
t/Mock/Apache/Request.pm view on Meta::CPAN
my $mock_r = new Mock::Apache:Request( 'cookie_id' => $cookie_id );
my $cookie = $mock_r->header_in( 'Cookie' );
use Data::Dumper;
print Dumper( $cookie );
=head1 AUTHOR
view release on metacpan or search on metacpan
t/response/TestApReqI18N/dump.pm view on Meta::CPAN
use strict;
use warnings FATAL => 'all';
use Apache::Constants 'OK';
use Apache::Request::I18N;
use Data::Dumper;
sub handler {
my $r = shift;
$r = Apache::Request::I18N->instance($r);
t/response/TestApReqI18N/dump.pm view on Meta::CPAN
$r->send_http_header('text/plain');
my %vars = map +($_, [ $r->param($_) ]), $r->param;
my @uploads = map [$_->name, $_->filename, $_->size], $r->upload;
print Data::Dumper->Dump([\%vars, \@uploads], [qw(*vars *uploads)]);
OK;
}
1;
view release on metacpan or search on metacpan
lib/Bundle/Apache/Roaming.pm view on Meta::CPAN
=head1 CONTENTS
File::Spec
Data::Dumper
Apache
Apache::Roaming
lib/Bundle/Apache/Roaming.pm view on Meta::CPAN
specified in the Perl README file.
=head1 SEE ALSO
L<CPAN(3)>, L<File::Spec(3)>, L<Data::Dumper(3)>, L<Apache(3)>,
L<Apache::Roaming(3)>
=cut
view release on metacpan or search on metacpan
lib/Apache/SWIT/Security/Maker.pm view on Meta::CPAN
}
package Apache::SWIT::Security::Maker;
use base 'Apache::SWIT::Subsystem::Maker';
use Apache::SWIT::Security::Role::Loader;
use Data::Dumper;
use YAML;
use Apache::SWIT::Maker::Config;
use Apache::SWIT::Maker::Manifest;
use Apache::SWIT::Maker::Conversions;
use File::Slurp;
view release on metacpan or search on metacpan
lib/Apache/SWIT.pm view on Meta::CPAN
use strict;
use warnings FATAL => 'all';
package Apache::SWIT;
use Carp;
use Data::Dumper;
use File::Slurp;
our $VERSION = 0.54;
sub swit_startup {}
lib/Apache/SWIT.pm view on Meta::CPAN
}
=head2 $class->swit_die($msg, $r, @data_to_dump)
Dies with first line of C<$msg> using Carp::croak and dumps request C<$r> and
C<@data_to_dump> with Data::Dumper into /tmp/swit_<time>.err file.
=cut
sub swit_die {
my ($class, $msg, $r, @more) = @_;
my $err = (split(/\n/, $msg))[0];
view release on metacpan or search on metacpan
lib/Apache/SdnFw.pm view on Meta::CPAN
my $s;
eval {
$s = Apache::SdnFw::lib::Core->new(%options);
$s->process();
#croak "test".Data::Dumper->Dump([$s]);
};
if ($options{env}{DBDEBUG}) {
_end_dbdebug($s);
}
view release on metacpan or search on metacpan
utils/minstren view on Meta::CPAN
# This is open-source software.
# See file 'COPYING' in original distribution for complete details.
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
use Getopt::Std;
use Data::Dumper;
$Data::Dumper::Indent = 1;
$Data::Dumper::Terse = 1;
$usage = "usage: $0 [-c <cipher_string>]\n";
getopts('c:') || die $usage;
$ciphercmd = '/usr/bin/openssl ciphers -v';
view release on metacpan or search on metacpan
t/Apache-Session-Browseable-Redis.t view on Meta::CPAN
# Choose your browseable fileds
Index => 'uid sn mail int2',
};
use Data::Dumper;
my $id;
my $json;
is( keys %{ $r->keys('*') }, 0, "Make sure database is empty" );
view release on metacpan or search on metacpan
lib/Apache/Session/Store/Memcached.pm view on Meta::CPAN
readonly => $session->{args}->{ReadOnly},
debug => $session->{args}->{Debug},
compress_threshold => $session->{args}->{CompressThreshold} || 10_000,
);
#use Data::Dumper;
#print STDERR Dumper $session->{args};
my $memd = new Cache::Memcached \%opts;
$self->{cache} = $memd;
bless $self,$class;
view release on metacpan or search on metacpan
lib/Apache/Session/Store/Memorycached.pm view on Meta::CPAN
package Apache::Session::Store::Memorycached;
use strict;
use Symbol;
use Data::Dumper;
use Cache::Memcached;
use Digest::MD5 qw(md5_hex);
use vars qw($VERSION);
$VERSION = '2.2';
view release on metacpan or search on metacpan
#############################################################################
#
# Apache::Session::Serialize::Dumper
# Serializes session objects using Data::Dumper
# Copyright(c) 2000 Pascal Fleury (fleury@users.sourceforge.net)
# Distribute under the Artistic License
#
############################################################################
package Apache::Session::Serialize::Dumper;
use strict;
use vars qw($VERSION);
use Data::Dumper;
$VERSION = "0.90";
sub serialize {
my $session = shift;
local $Data::Dump::Purity = 1;
local $Data::Dumper::Varname = "ASSD";
$session->{serialized} = Dumper( $session->{data} );
}
sub unserialize {
my $session = shift;
=pod
=head1 NAME
Apache::Session::Serialize::Dumper - Use Data::Dumper to zip up persistent data
=head1 SYNOPSIS
use Apache::Session::Serialize::Dumper;
$ref = Apache::Session::Serialize::Dumper::unserialize($zipped);
=head1 DESCRIPTION
This module fulfills the serialization interface of Apache::Session.
It serializes the data in the session object by use of Data::Dumper's
C<dump()> and Perl's C<eval()> functions. The result is a text object
ready for storage.
=head1 AUTHOR
This module was written by Pascal Fleury <fleury@users.sourceforge.net>.
=head1 SEE ALSO
L<Data::Dumper>
L<Apache::Session::Serialize::Base64>,
L<Apache::Session::Serialize::Storable>,
L<Apache::Session>
view release on metacpan or search on metacpan
t/lib/MyAuth.pm view on Meta::CPAN
}
sub verifiy_cred {
my %cred = @_;
#use Data::Dumper;
#print STDERR Dumper(\%cred);
# Check correct username and password
return 1 if ( $cred{'username'} eq 'foo' && $cred{'password'} eq 'baz' );
return 0;
view release on metacpan or search on metacpan
lib/Apache/SharedMem.pm view on Meta::CPAN
{
my $self = shift;
_init_dumper();
my $root_record = $self->_get_root || return undef;
return Data::Dumper::Dumper($root_record);
}
sub dump
{
my $self = shift;
my $namespace = defined $_[0] ? shift : croak('too few arguments');
_init_dumper();
if(my $ns_obj = $self->_get_namespace_ipcobj($self->_get_root, $namespace))
{
return Data::Dumper::Dumper($self->_get_record($ns_obj));
}
else
{
carp("can't read namespace $namespace: ", $self->error);
return undef;
lib/Apache/SharedMem.pm view on Meta::CPAN
$self->_root_lock(LOCK_SH);
$record = $self->_get_root;
$self->_root_unlock;
unless(ref $record && ref($record) eq 'HASH' && exists $record->{'map'})
{
$self->_debug("map dump: ", $record, Data::Dumper::Dumper($record)) if($options->{debug});
confess("Apache::SharedMem object initialization: wrong root map type")
}
# checking map version
unless(exists $record->{'version'} && $record->{'version'} >= 2)
lib/Apache/SharedMem.pm view on Meta::CPAN
{
# record not initialized
$record = {};
}
$self->_debug(4, 'dump: ', Data::Dumper::Dumper($record)) if($self->{options}->{debug});
return($record);
}
sub _store_namespace { $_[0]->_debug; $_[0]->_store_record($_[1], $_[0]->{namespace}) }
lib/Apache/SharedMem.pm view on Meta::CPAN
$self->_set_error('can\'t store any data in readonly mode');
$self->_set_status(FAILURE);
return undef;
}
$self->_debug(4, 'dump: ', Data::Dumper::Dumper($share)) if($self->{options}->{debug});
my $serialized;
# freeze the shared block
eval { $serialized = freeze($share) };
lib/Apache/SharedMem.pm view on Meta::CPAN
$self->_debug("setting status to $_[0]");
}
sub _init_dumper
{
require Data::Dumper;
$Data::Dumper::Indent = 2;
$Data::Dumper::Terse = 1;
$Data::Dumper::Quotekeys = 0;
}
sub _cleanup
{
if(defined $Apache::SharedMem::ROOTKEY)
lib/Apache/SharedMem.pm view on Meta::CPAN
Revision 1.45 2001/08/28 10:17:00 rs
little documentation fix
Revision 1.44 2001/08/28 08:45:12 rs
stop using autouse for Data::Dumper, mod_perl don't like it
add auto unlock on DESTROY, seem to work under mod_perl with Apache::Registry
TODO test with mod_perl handlers
Revision 1.43 2001/08/27 15:42:02 rs
bugfix in release method, on root map cleanup, ipc_mode must be defined
lib/Apache/SharedMem.pm view on Meta::CPAN
- Default IPC mode is now 0600
- We now keep ipc_mode and ipc_segment_size in the root map for calling IPC::ShareLite
with same values.
- Add "readonly" parameter to constructor
- Feature enhancement, add "dump" and "dump_map" methods
- Data::Dumper is now autoused
- Feature enhancement, release method now release root map when it go empty
- Feature enhancement, add a "destroy" method, that call "release" method on all root-map's
namespaces. Usefull for cleaning shared memory on Apache shutdown.
- Misc bugfixes
view release on metacpan or search on metacpan
lib/Apache/SiteControl/UserFactory.pm view on Meta::CPAN
use 5.008;
use strict;
use warnings;
use Carp;
use Data::Dumper;
use Apache::SiteControl::User;
use Crypt::CBC;
our $VERSION = "1.0";
view release on metacpan or search on metacpan
lib/Apache/Sling/LDAPSynch.pm view on Meta::CPAN
use Getopt::Long qw(:config bundling);
use Apache::Sling;
use Apache::Sling::Authn;
use Apache::Sling::Content;
use Apache::Sling::User;
use Data::Dumper;
use Fcntl ':flock';
use File::Temp;
use Net::LDAP;
require Exporter;
lib/Apache/Sling/LDAPSynch.pm view on Meta::CPAN
{
my ( $tmp_cache_file_handle, $tmp_cache_file_name ) =
File::Temp::tempfile();
my %synch_cache;
print {$tmp_cache_file_handle}
Data::Dumper->Dump( [ \%synch_cache ], [qw( synch_cache )] )
or croak q(Unable to print initial data dump of synch cache to file!);
close $tmp_cache_file_handle
or croak
q(Problem closing temporary file handle when initializing synch cache);
${ $class->{'Content'} }
lib/Apache/Sling/LDAPSynch.pm view on Meta::CPAN
sub update_synch_cache {
my ( $class, $synch_cache ) = @_;
my ( $tmp_cache_file_handle, $tmp_cache_file_name ) =
File::Temp::tempfile();
print {$tmp_cache_file_handle}
Data::Dumper->Dump( [$synch_cache], [qw( synch_cache )] )
or croak q(Unable to print data dump of synch cache to file!);
close $tmp_cache_file_handle
or croak
q(Problem closing temporary file handle when updating synch cache);
${ $class->{'Content'} }
lib/Apache/Sling/LDAPSynch.pm view on Meta::CPAN
sub update_synch_user_list {
my ( $class, $synch_user_list ) = @_;
my ( $tmp_user_list_file_handle, $tmp_user_list_file_name ) =
File::Temp::tempfile();
print {$tmp_user_list_file_handle}
Data::Dumper->Dump( [$synch_user_list], [qw( synch_user_list )] )
or croak q(Unable to print data dump of synch user list to file!);
close $tmp_user_list_file_handle
or croak
q(Problem closing temporary file handle when writing synch user list);
${ $class->{'Content'} }