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";
}
}
view release on metacpan or search on metacpan
lib/MojoX/Aliyun.pm view on Meta::CPAN
AccessKeyId => $self->access_key,
$self->region_id ? (RegionId => $self->region_id) : (),
$params ? %$params : (),
);
# say Dumper(\%auth_params); use Data::Dumper;
# Thanks to https://github.com/lemontv/AliyunPerlLib/blob/master/Aliyun/Auth.pm
my %dumb = %auth_params; $dumb{Timestamp} = uri_escape($dumb{Timestamp});
my @tmps = map { join('=', $_, $dumb{$_}) } sort keys(%dumb);
my $StringToSign = join("&", @tmps);
view release on metacpan or search on metacpan
lib/App/AltSQL.pm view on Meta::CPAN
=cut
use Moose;
use Getopt::Long qw(GetOptionsFromArray);
use Params::Validate;
use Data::Dumper;
use Config::Any;
use Hash::Union qw(union);
our $VERSION = 0.05;
our $| = 1;
view release on metacpan or search on metacpan
tools/generate-spec-pm.pl view on Meta::CPAN
use strict;
use warnings;
use 5.010;
use FindBin '$Bin';
use Data::Dumper;
use YAML::PP;
my $specfile = "$Bin/../share/appspec-spec.yaml";
my $pm = "$Bin/../lib/App/AppSpec/Spec.pm";
my $yp = YAML::PP->new( schema => [qw/ JSON /] );
my $SPEC = $yp->load_file($specfile);
local $Data::Dumper::Sortkeys = 1;
local $Data::Dumper::Indent = 1;
my $dump = Data::Dumper->Dump([$SPEC], ['SPEC']);
open my $fh, '<', $pm or die $!;
my $module = do { local $/; <$fh> };
close $fh;
view release on metacpan or search on metacpan
lib/App/Asciio/Elements.pm view on Meta::CPAN
use strict;
use warnings;
use Carp ;
use Data::Dumper ;
use Data::TreeDumper ;
use File::Slurp ;
use Clone;
use List::Util qw(min max) ;
use List::MoreUtils qw(any minmax first_value) ;
view release on metacpan or search on metacpan
lib/App/AutoCRUD/View/Dumper.pm view on Meta::CPAN
use strict;
use warnings;
use Moose;
use namespace::autoclean;
use Data::Dumper;
extends 'App::AutoCRUD::View';
sub render {
my ($self, $data, $context) = @_;
local $Data::Dumper::Indent = 1;
my $output = Dumper $data;
return [200, ['Content-type' => 'text/plain'], [$output] ];
}
1;
view release on metacpan or search on metacpan
lib/App/Automaton.pm view on Meta::CPAN
use Moo;
use YAML::Tiny;
use Module::Load;
use Data::Dumper;
has conf => ( is => 'rw' );
has yaml_conf => ( is => 'rw' );
has conf_file => ( is => 'rw' );
has found_bits => ( is => 'rw' );
view release on metacpan or search on metacpan
lib/App/BS/CLI.pm view on Meta::CPAN
use v5.40;
use Carp;
use Pod::Usage;
use Const::Fast;
use Data::Dumper;
use Getopt::Long qw(GetOptionsFromArray :config auto_abbrev permute bundling);
const our $S_MULTI_BAREARG => "Two bare argument handlers are defined. Please"
. " remove either 'getopts->{\"<>\"}' or 'handle_bareargs' in 'new'.";
view release on metacpan or search on metacpan
lib/App/BambooCli.pm view on Meta::CPAN
use Carp;
use Scalar::Util;
use List::Util;
#use List::MoreUtils;
use Getopt::Alt;
use Data::Dumper qw/Dumper/;
use English qw/ -no_match_vars /;
use Path::Tiny;
use YAML::Syck qw/ LoadFile DumpFile /;
use App::BambooCli::Config;
view release on metacpan or search on metacpan
lib/App/Basis/Queue.pm view on Meta::CPAN
# we are only interested in 10 messages
if( ++$counter > 10) {
$q->unsubscribe( queue => $queue) ;
} else {
say Data::Dumper( $data) ;
}
}
my $queue = App::Basis::Queue->new( dbh => $dbh) ;
$queue->subscribe( queue => '/logs/*', callback => \&handler) ;
view release on metacpan or search on metacpan
lib/App/BatParser.pm view on Meta::CPAN
=head1 SYNOPSYS
use App::BatParser;
use Path::Tiny;
use Data::Dumper;
my $parser = App::BatParser->new;
my $bat_string = Path::Tiny::path('t/cmd/simple.cmd')->slurp;
say Dumper($parser->parse($bat_string));
view release on metacpan or search on metacpan
lib/App/Beeminder/Hook.pm view on Meta::CPAN
package App::Beeminder::Hook;
use Dancer ':syntax';
use JSON::Any;
use autodie;
use Data::Dumper;
# ABSTRACT: Integrate Github and Beeminder
our $VERSION = '0.1';