view release on metacpan or search on metacpan
lib/Acme/CatalystX/ILoveDebug.pm view on Meta::CPAN
1;
=head1 NAME
Acme::CatalystX::ILoveDebug - Make all uris generated by an application trigger the debug page.
=head1 DESCRIPTION
Frivolous L<Catalyst> application class role to demonstrate a trivial application class role.
=head1 METHODS
=head2 uri_for
Wraps the normal uri_for call, injecting a parameter of C<< dump_info => 1 >>
into the call so that all URIs generated will cause the debug screen..
=head1 AUTHOR
Tomas Doran (t0m) C<< <bobtfish@bobtfish.net> >>.
view release on metacpan or search on metacpan
bin/coinbase.pl view on Meta::CPAN
$request->headers->push_header( ACCESS_SIGNATURE => $sig );
}
);
if ($verbose) {
# a handler to dump out the request for debugging
$ua->add_handler( request_send => sub {
#print "$prog: verbose mode: BEGIN dump of request object: ***********\n";
#shift->dump;
#print "$prog: verbose mode: END dump of request object: *************\n";
return
bin/coinbase.pl view on Meta::CPAN
or
perl -Ilib bin/coinbase.pl --use-curl
both with and without curl the script outputs some debug info
=head1 DESCRIPTION
Tests checking a balance using the coinbase api
view release on metacpan or search on metacpan
Added PREREQ for Text::Balanced 1.99 as per RT #1443
Removed the MY override of test_via_harness, fails on Strawberry RT #50225
1.02 04 Sep 2002
----------------
Removed some debug information that would show up if the module died.
Also applied a patch from Jouke Visser to preserve the original scripts
line numbering.
This means that if you have a script that uses Acme::Comment and that
script emits a warning or an error, the line numbering will now be
correct.
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
no warnings;
my $self_package = shift;
# XXX Using parse_arguments here might cause confusion, because the
# subclass's boolean_arguments and paired_arguments can conflict, causing
# difficult debugging. Consider using something truly local.
my ($args, @export_list) = do {
local *boolean_arguments = sub {
qw(
-base -Base -mixin -selfless
-XXX -dumper -yaml
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
no warnings;
my $self_package = shift;
# XXX Using parse_arguments here might cause confusion, because the
# subclass's boolean_arguments and paired_arguments can conflict, causing
# difficult debugging. Consider using something truly local.
my ($args, @export_list) = do {
local *boolean_arguments = sub {
qw(
-base -Base -mixin -selfless
-XXX -dumper -yaml
view release on metacpan or search on metacpan
lib/Acme/Debug.pm view on Meta::CPAN
our %EXPORT_TAGS = ( 'all' => [ qw( ) ] ); # use Acme::Debug ':all';
our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
our @EXPORT = qw( );
our $VERSION = '0.01';
my $debug = $ENV{Acme_Debug_DEBUG} || 0;
my $silent = $ENV{Acme_Debug_SILENT} || 0;
my $verbose = $ENV{Acme_Debug_VERBOSE} || 0;
my $bug = $ENV{Acme_Debug_REGEX} || 'b[^u]*u[^g]*g';
# sub acme_debug = \&DB::DB;
=head1 Environment Variables
These boolean variables may be set to divulge more information.
lib/Acme/Debug.pm view on Meta::CPAN
my ($v, $d, $x) = File::Spec->splitpath($f);
# if ($line =~ /b[^u]*u[^g]*g/mi) {
if ($line =~ /$bug/mi) {
$i_bugs++;
unless ($f =~ /perl5db.pl/) {
push(@bugs, ($debug?"[$i]":'')." line $l of $x: $line");
}
}
}
sub END {
lib/Acme/Debug.pm view on Meta::CPAN
1;
=head1 AUTHOR
Richard Foley, E<lt>acme.debug@rfi.net<gt>
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2004 by Richard Foley
view release on metacpan or search on metacpan
t/base/verify.t view on Meta::CPAN
my $method = q|verify|;
my $tag;
my( $mf, $wt ) = qw| {Pearl} {Tanya} |;
AFSMTS_class_wrap { debug_level => -t STDOUT ? 10 : 1 }, \%st;
isa_ok $bb, q|Acme::FSM|, q|constructed object|;
$tag = q|undefined|;
AFSMTS_method_wrap $method, undef, q|Hillary|, $wt, $mf, '';
like $@, qr.\Q{Hillary}({Tanya}): {Pearl} !isa defined., AFSMTS_croakson $tag;
view release on metacpan or search on metacpan
lib/Acme/Free/API/Geodata/GeoIP.pm view on Meta::CPAN
my $agent = WWW::Mechanize->new(cookie_jar => {});
$agent->agent('PerlMonks contest/1 (https://perlmonks.org/?node_id=11161472)');
$agent->stack_depth(1);
$self->{agent} = $agent;
if(!defined($self->{debug})) {
$self->{debug} = 0;
}
return $self;
}
lib/Acme/Free/API/Geodata/GeoIP.pm view on Meta::CPAN
$decoded = decode_json($content);
$ok = 1;
};
if(!$ok || !defined($decoded)) {
$self->_debuglog("Failed to decode response. Not a JSON document?");
$self->_debuglog(Dumper($decoded));
return;
}
#$self->_debuglog(Dumper($decoded));
return $decoded;
}
lib/Acme/Free/API/Geodata/GeoIP.pm view on Meta::CPAN
# these are copied from CAVACs vast framework. But we don't want hundreds of dependencies in this example code, only a couple of functions
sub _fetchURL($self, $url) {
$self->{agent}->get($url);
if(!$self->{agent}->success()) {
$self->_debuglog("Network error while fetching URL $url");
return;
}
my $response = $self->{agent}->response();
if(!defined($response)) {
$self->_debuglog("Could not get agent response");
return;
}
my $content = $response->decoded_content;
if(!defined($content) || !length($content)) {
$self->_debuglog("Could not get response content");
return;
}
#$self->_debuglog(Dumper($content));
return $content;
}
sub _debuglog($self, $message) {
if(!$self->{debug}) {
return;
}
print STDERR $message, "\n";
}
lib/Acme/Free/API/Geodata/GeoIP.pm view on Meta::CPAN
=head1 SYNOPSIS
use Acme::Free::API::Geodata::GeoIP;
my $agent = Acme::Free::API::Geodata::GeoIP->new(debug => 1);
my $geodata = $agent->lookup('24.48.0.1');
if(!defined($geodata)) {
die("Lookup failed");
lib/Acme/Free/API/Geodata/GeoIP.pm view on Meta::CPAN
=head1 DESCRIPTION
This module looks up GeoIP data through a public API, see L<https://www.freepublicapis.com/ip-geolocation-api>.
It returns a hashref on success, undefined on failure. To see what went wrong, set debug to a true value in new().
=head1 SEE ALSO
Call for API implementations on PerlMonks: L<https://perlmonks.org/?node_id=11161472>
view release on metacpan or search on metacpan
eg/ghost_acme.pl view on Meta::CPAN
my $self = shift;
$SIG{HUP} = sub { $self->hangup }; # Listen USR2 (reload)
}
sub hangup {
my $self = shift;
$self->log->debug("Hang up!");
}
sub startup {
my $self = shift;
my $max = 100;
my $i = 0;
while ($self->ok) {
$i++;
sleep 3;
$self->log->debug(sprintf("> %d/%d", $i, $max));
last if $i >= $max;
}
}
1;
view release on metacpan or search on metacpan
lib/Acme/Globus.pm view on Meta::CPAN
) ;
$ssh->error
and die "Couldn't establish SSH connection: " . $ssh->error ;
my $debug = 0 ;
say STDERR "\t" . '=' x 20 if $debug ;
say STDERR "\t" . $command if $debug ;
say STDERR "\t" . '-' x 20 if $debug ;
my $response = $ssh->capture($command)
or carp "remote command failed: " . $ssh->error ;
return $response ;
view release on metacpan or search on metacpan
inc/Module/Install/XSUtil.pm view on Meta::CPAN
sub _verbose{
print STDERR q{# }, @_, "\n";
}
sub _xs_debugging{
return $ENV{XS_DEBUG} || scalar( grep{ $_ eq '-g' } @ARGV );
}
sub _xs_initialize{
my($self) = @_;
inc/Module/Install/XSUtil.pm view on Meta::CPAN
$self->makemaker_args->{OBJECT} = '$(O_FILES)';
$self->clean_files('$(O_FILES)');
$self->clean_files('*.stackdump') if $^O eq 'cygwin';
if($self->_xs_debugging()){
# override $Config{optimize}
if(_is_msvc()){
$self->makemaker_args->{OPTIMIZE} = '-Zi';
}
else{
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
no warnings;
my $self_package = shift;
# XXX Using parse_arguments here might cause confusion, because the
# subclass's boolean_arguments and paired_arguments can conflict, causing
# difficult debugging. Consider using something truly local.
my ($args, @export_list) = do {
local *boolean_arguments = sub {
qw(
-base -Base -mixin -selfless
-XXX -dumper -yaml
view release on metacpan or search on metacpan
script/gen-generic-ind-company-names view on Meta::CPAN
#$SPEC{point} = {
# v => 1.1,
# summary => 'Return line with point marked by a marker',
# description => <<'_',
#
#This is a utility function useful for testing/debugging. `parse_cmdline()`
#expects a command-line and a cursor position (`$line`, `$point`). This routine
#expects `$line` with a marker character (by default it's the caret, `^`) and
#return (`$line`, `$point`) to feed to `parse_cmdline()`.
#
#Example:
script/gen-generic-ind-company-names view on Meta::CPAN
#
# point($cmdline, $marker) -> any
#
#Return line with point marked by a marker.
#
#This is a utility function useful for testing/debugging. C<parse_cmdline()>
#expects a command-line and a cursor position (C<$line>, C<$point>). This routine
#expects C<$line> with a marker character (by default it's the caret, C<^>) and
#return (C<$line>, C<$point>) to feed to C<parse_cmdline()>.
#
#Example:
script/gen-generic-ind-company-names view on Meta::CPAN
#our %Levels = (
# fatal => 10,
# error => 20,
# warn => 30,
# info => 40,
# debug => 50,
# trace => 60,
#);
#
#our %Level_Aliases = (
# off => 0,
script/gen-generic-ind-company-names view on Meta::CPAN
# sub foo {
# ...
# # produce some logs. no need to configure output or level.
# log_error "an error occured: %03d - %s", $errcode, $errmsg;
# ...
# log_debug "http response: %s", $http; # automatic dumping of data
# }
# 1;
#
#=head2 Consuming logs
#
script/gen-generic-ind-company-names view on Meta::CPAN
#In your application (consumer/listener):
#
# use Foo;
# use Log::ger::Output 'Screen'; # configure output
# # level is by default 'warn'
# foo(); # the error message is shown, but debug message is not.
#
#=head3 Choosing multiple outputs
#
#Instead of screen, you can output to multiple outputs (including multiple
#files):
script/gen-generic-ind-company-names view on Meta::CPAN
#=head3 Choosing level
#
#One way to set level:
#
# use Log::ger::Util;
# Log::ger::Util::set_level('debug'); # be more verbose
# foo(); # the error message as well as debug message are now shown
#
#There are better ways, e.g. letting users configure log level via configuration
#file or command-line option. See L<Log::ger::Manual::Tutorial::300_Level> for
#more details.
#
script/gen-generic-ind-company-names view on Meta::CPAN
#still use the same framework.
#
#B<Dynamic.> Outputs and levels can be changed anytime during run-time and logger
#routines will be updated automatically. This is useful in situation like a
#long-running server application: you can turn on tracing logs temporarily to
#debug problems, then turn them off again, without restarting your server.
#
#B<Interoperability.> There are modules to interop with Log::Any, either consume
#Log::Any logs (see L<Log::Any::Adapter::LogGer>) or produce logs to be consumed
#by Log::Any (see L<Log::ger::Output::LogAny>).
#
script/gen-generic-ind-company-names view on Meta::CPAN
#=head1 SEE ALSO
#
#Some other popular logging frameworks: L<Log::Any>, L<Log::Contextual>,
#L<Log::Log4perl>, L<Log::Dispatch>, L<Log::Dispatchouli>.
#
#If you still prefer debugging using the good old C<print()>, there's
#L<Debug::Print>.
#
#=head1 AUTHOR
#
#perlancar <perlancar@cpan.org>
script/gen-generic-ind-company-names view on Meta::CPAN
# $csro_a->[0] <=> $csro_b->[0] ||
# $csro_a->[1] <=> $csro_b->[1] ||
# $a cmp $b
# } keys %$conf;
#
# my %seen_profiles; # for debugging message
# for my $section0 (@sections) {
# my %keyvals;
# my $sect_name;
# for my $word (split /\s+/, $section0) {
# if ($word =~ /(.*?)=(.*)/) {
view release on metacpan or search on metacpan
This test requires GLUT:
If you have X installed, you can try the scripts in ./examples/
Most of them do not use GLUT.
It is recommended that you install FreeGLUT for improved Makefile.PL
configuration, installation and debugging.
};
print "Attempting to run examples/texhack instead...\n";
`perl examples/texhack`;
view release on metacpan or search on metacpan
inc/Inline/C.pm view on Meta::CPAN
\"$cmd\" with error code $errcode
The build directory was:
$build_dir
To debug the problem, cd to the build directory, and inspect the output files.
END
if ($cmd =~ /^make >/) {
for (sort keys %ENV) {
$output .= "Environment $_ = '$ENV{$_}'\n" if /^(?:MAKE|PATH)/;
view release on metacpan or search on metacpan
lib/Acme/MJD.pm view on Meta::CPAN
#11910 I see you omitted $! from the error message. It won't tell you what went wrong if you don't ask it to.
#11911 You wrote the same thing twice here. The cardinal rule of programming is that you never ever write the same thing twice.
#11912 Evidently it's important to you to get the wrong answer as quickly as possible.
#11913 Gee, I don't know. I wonder what the manual says about that?
#11914 Well, no duh. That's because you ignored the error message, dimwit.
#11915 Only Sherlock Holmes can debug the program by pure deduction from the output. You are not Sherlock Holmes. Run the fucking debugger already.
#11916 Always ignore the second error message unless the meaning is obvious.
#11917 Read. Learn. Evolve.
#11918 Well, then get one that *does* do auto-indent. You can't do good work with bad tools.
#11919 No. You must believe the ERROR MESSAGE. You MUST believe the error message.
#11920 The error message is the Truth. The error message is God.
view release on metacpan or search on metacpan
lib/Acme/MUDLike.pm view on Meta::CPAN
# per-user variables
#
my $player;
# STDERR->print("debug: " . $request->request->url->path . "\n"); # XXX
# STDERR->print("debug: " . $request->request->as_string . "\n"); # XXX
$SIG{PIPE} = 'IGNORE'; # XXX not helping at all. grr.
#
# static files
#
view release on metacpan or search on metacpan
Revision history for Perl extension Acme-MadokaMagica
0.09 2019-02-01T09:28:39Z
- remove debug print...
0.08 2019-02-01T09:25:53Z
- not use Mouse and fix soul gem calc
0.07 2017-03-16T11:12:20Z
view release on metacpan or search on metacpan
lib/Acme/Magpie.pm view on Meta::CPAN
package Acme::Magpie;
use strict;
use vars qw/$VERSION %Nest %symtab/;
$VERSION = '0.06';
use constant debug => 0;
use Devel::Symdump;
sub import {
my $self = shift;
my $steal_from = caller;
for my $sym ( sort Devel::Symdump->rnew($steal_from)->functions() ) {
next unless $sym =~ /^\Q$steal_from/;
print "$sym\n" if debug;
if ( $self->shiny($sym) ) {
print "stealing $sym\n" if debug;
my ($pkg, $name) = $sym =~ /^(.*::)(.*)$/;
local %symtab;
{
no strict 'refs';
*symtab = \%{ $pkg };
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
asap_tcp_tls
asci_val
ascomalarm
asc_slmd
asctrl_agent
as_debug
asdis
asf_rmcp
asgcypresstcps
asgenf
asi
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
de_cache_query
decap
decauth
decbsrv
dec_dlm
decladebug
dec_mbadmin
dec_mbadmin_h
dec_notes
dectalk
decvms_sysmgt
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
minilock
minirem
mini_sql
minivend
minotaur_sa
mipi_debug
mipv6tls
mira
miroconnect
mirrtex
mit_dov
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
raxa_mgmt
razor
rbakcup1
rbakcup2
rblcheckd
rbr_debug
rbr_discovery
rbsystem
rbt_smc
rbt_wanopt
rcc_host
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
taurus_wh
tbrpf
tc_ads_discovery
tcc_http
tcim_control
tclprodebugger
tcoaddressbook
tcoflashagent
tcoregagent
tcpdataserver
tcp_id_port
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
unidata_ldm
unieng
unify
unify_adapter
unifyadmin
unify_debug
unihub_server
unikeypro
unimobilectrl
uniport
unisql
lib/Acme/MetaSyntactic/services.pm view on Meta::CPAN
waste
watchdoc
watchdoc_pod
watchdog_nt
watchme_7272
watcomdebug
watcom_sql
watershed_lm
watilapp
wbem_exp_https
wbem_http
view release on metacpan or search on metacpan
lib/Acme/MetaSyntactic/vim.pm view on Meta::CPAN
cquit
crewind
cunabbrev
cunmap
cwindow
debuggreedy
delcommand
delete
DeleteFirst
delfunction
delmarks
lib/Acme/MetaSyntactic/vim.pm view on Meta::CPAN
cq
cr
cuna
cu
cw
debugg
delc
d
delf
delm
diffg
lib/Acme/MetaSyntactic/vim.pm view on Meta::CPAN
cscopetag
cscopetagorder
cscopeverbose
cursorcolumn
cursorline
debug
define
delcombine
dictionary
diff
diffexpr
view release on metacpan or search on metacpan
script/meta view on Meta::CPAN
=back
=head1 EXAMPLES OF USE
Ever needed to debug with the help of a few C<print()> statements?
Simply map some keystrokes to insert a warning where you want it.
With B<meta>, you will never need to think about what write in the
string argument:
nmap _wa :r!meta donmartin<CR>iwarn"<Esc>A";<Esc>==
view release on metacpan or search on metacpan
lib/Acme/Mobile/Therbligs.pm view on Meta::CPAN
sub count_therbligs {
my $self = shift;
my $text = shift;
my $case = shift;
my $debug = shift; # for diagnostics
unless (ref($self)) {
($debug, $case, $text, $self) = ($case, $text, $self, $Self);
}
my $last = ""; # last character
my $shift = 0; # shift flag
my $start = $case; # sentence start flag
my $thurb = 0; # therblig count
foreach my $char (split //, $text) {
if ($debug) {
print STDERR
"# last=$last char=$char start=$start shift=$shift thurb=$thurb\n";
}
unless ($self->{NO_SHIFT_CAPS}) {
lib/Acme/Mobile/Therbligs.pm view on Meta::CPAN
if ($self->{CHAR}->{$char}->[0] eq ($self->{CHAR}->{$last}->[0]||""));
$last = $char;
}
if ($debug) {
print STDERR
"# last=$last char= start=$start shift=$shift thurb=$thurb\n";
}
return $thurb;
view release on metacpan or search on metacpan
_build/build_params view on Meta::CPAN
'test_files' => 't/ xt/',
'dist_abstract' => undef,
'create_readme' => undef,
'prefix_relpaths' => {},
'share_dir' => undef,
'debug' => undef,
'meta_merge' => {},
'get_options' => {},
'dist_version_from' => 'lib/Acme/MotorcycleGang.pm',
'_added_to_INC' => [
'/Users/ytsunoda/Program/cpan/Acme-MotorcycleGang/.build/F0uDtLTw/_build/lib'
],
'auto_configure_requires' => 1,
'create_license' => undef,
'debugger' => undef,
'html_css' => '',
'cpan_client' => 'cpan',
'mymetafile2' => 'MYMETA.json',
'bundle_inc_preload' => [],
'build_elements' => [
view release on metacpan or search on metacpan
inc/Spiffy.pm view on Meta::CPAN
no warnings;
my $self_package = shift;
# XXX Using parse_arguments here might cause confusion, because the
# subclass's boolean_arguments and paired_arguments can conflict, causing
# difficult debugging. Consider using something truly local.
my ($args, @export_list) = do {
local *boolean_arguments = sub {
qw(
-base -Base -mixin -selfless
-XXX -dumper -yaml
view release on metacpan or search on metacpan
use Test::More;
use IO::File;
use CGI qw(-no_debug);
use File::Spec;
use strict;
my @filenames;
$fh = $filehandles[2];
print $fh <<EOF;
use Acme::No;
no CGI $good_no_test;
use CGI $good_test qw(-no_debug);
my \$q = CGI->new or die;
die unless UNIVERSAL::isa(\$q, 'CGI');
1;
EOF
view release on metacpan or search on metacpan
v1.2 Fri Aug 17 2012 10:11:25 PDT
- Fix test failures under Test::Simple 0.95_02 (thanks Slaven Rezic)
v1.1 Sun 27 Jan 2008 20:28:38 GMT
- Fix a couple of stupid coverage and debug errors
v1.0 Sun 27 Jan 2008 17:39:00 GMT
- Initial release
view release on metacpan or search on metacpan
my $read_chunked = 1;
my $sock = $self->{"sock"};
LOOP: while( my $line = readline($sock) ) {
(my $debugline = $line) =~ s/\r|\n//smg;
print "Reading line from socket: $debugline$/" if( $self->{"cfg"}->{"DEBUG"} );
if( $head && $line eq "\r\n" ) {
$head = 0;
last LOOP;
} else {
$return_head .= $line;
view release on metacpan or search on metacpan
lib/Acme/POE/Tree.pm view on Meta::CPAN
Run the tree until the user decides they've had enough.
=head1 AUTHOR
Rocco Caputo <rcaputo@cpan.org> with debugging and feedback from
irc.perl.org channel #poe.
=head1 BUG TRACKER
https://rt.cpan.org/Dist/Display.html?Status=Active&Queue=Acme-POE-Tree
view release on metacpan or search on metacpan
lib/Acme/Perl/VM.pm view on Meta::CPAN
use Acme::Perl::VM::Scope;
use Acme::Perl::VM::PP;
use Acme::Perl::VM::B;
our $PL_runops = (APVM_TRACE || APVM_STACK)
? \&runops_debug
: \&runops_standard;
our $PL_op;
our $PL_curcop;
lib/Acme/Perl/VM.pm view on Meta::CPAN
our $PL_last_in_gv;
our @PL_ppaddr;
our $color = 'GREEN BOLD'; # for debugging log
sub not_implemented;
{
my $i = 0;
lib/Acme/Perl/VM.pm view on Meta::CPAN
deb ' SPECIAL' if $flags & OPf_SPECIAL;
deb "\n";
}
sub runops_debug{
_op_trace();
while(${ $PL_op = &{$PL_ppaddr[$PL_op->type]} }){
if(APVM_STACK){
dump_stack();
}