Result:
found more than 558 distributions - search limited to the first 2001 files matching your query
( run in 1.353 )
Acme-Hyperindex
view release on metacpan or search on metacpan
lib/Acme/Hyperindex.pm view on Meta::CPAN
elsif ( ref $item eq 'ARRAY' ) {
$item = $item->[$index];
}
else {
ref($item) or croak "Hyperindexing on '$index', but datastructure is at maximum depth";
die "Hmm, error in hyperindexing: index => $index item => $item";
}
}
if ( ref $item ) {
if ( ref($item) eq 'ARRAY' and wantarray ) {
Acme-ID-CompanyName
view release on metacpan or search on metacpan
script/gen-generic-ind-company-names view on Meta::CPAN
read DATA, my($content), $toc->{$_[1]}[1];
my ($order, $lineoffset) = split(';', $toc->{$_[1]}[2]);
$content =~ s/^#//gm;
$content = "# line ".($data_linepos + $order+1 + $lineoffset)." \"".__FILE__."\"\n" . $content;
open my $fh, '<', \$content
or die "DataPacker error loading $_[1]: $!";
return $fh;
}
return;
};
}
script/gen-generic-ind-company-names view on Meta::CPAN
#No arguments.
#
#Returns an enveloped result (an array).
#
#First element (status) is an integer containing HTTP status code
#(200 means OK, 4xx caller error, 5xx function error). Second element
#(msg) is a string containing error message, or 'OK' if status is
#200. Third element (payload) is optional, the actual result. Fourth
#element (meta) is called result metadata and is optional, a hash
#that contains extra information.
#
#Return value: (any)
script/gen-generic-ind-company-names view on Meta::CPAN
# # disallow_directives
# bless \%attrs, $class;
#}
#
## borrowed from Parse::CommandLine. differences: returns arrayref. return undef
## on error (instead of dying).
#sub _parse_command_line {
# my ($self, $str) = @_;
#
# $str =~ s/\A\s+//ms;
# $str =~ s/\s+\z//ms;
script/gen-generic-ind-company-names view on Meta::CPAN
#If set to false, then directives will not be parsed. Lines such as below will be
#considered a regular comment:
#
# ;!include foo.ini
#
#and lines such as below will be considered a syntax error (B<regardless> of the
#C<allow_bang_only> setting):
#
# !include foo.ini
#
#B<NOTE: Turning this setting off violates IOD specification.>
script/gen-generic-ind-company-names view on Meta::CPAN
#
#=head2 new(%attrs) => obj
#
#=head2 $reader->read_file($filename)
#
#Read IOD configuration from a file. Die on errors.
#
#=head2 $reader->read_string($str)
#
#Read IOD configuration from a string. Die on errors.
#
#=head1 HOMEPAGE
#
#Please visit the project's homepage at L<https://metacpan.org/release/Config-IOD-Reader>.
#
script/gen-generic-ind-company-names view on Meta::CPAN
#If set to false, then directives will not be parsed. Lines such as below will be
#considered a regular comment:
#
# ;!include foo.ini
#
#and lines such as below will be considered a syntax error (B<regardless> of the
#C<allow_bang_only> setting):
#
# !include foo.ini
#
#B<NOTE: Turning this setting off violates IOD specification.>
script/gen-generic-ind-company-names view on Meta::CPAN
#
#=head2 new(%attrs) => obj
#
#=head2 $reader->read_file($filename[ , $callback ]) => hash
#
#Read IOD configuration from a file. Die on errors.
#
#See C<read_string> for more information on C<$callback> argument.
#
#=head2 $reader->read_string($str[ , $callback ]) => hash
#
#Read IOD configuration from a string. Die on errors.
#
#C<$callback> is an optional coderef argument that will be called during various
#stages. It can be useful if you want more information (especially ordering). It
#will be called with hash argument C<%args>
#
script/gen-generic-ind-company-names view on Meta::CPAN
# }
#
# my $sc = "";
# my $cn;
# {
# my $errp = "Invalid clause name syntax '$c0'"; # error prefix
# if (!$expr && $c =~ s/\A!(?=.)//) {
# die "$errp, syntax should be !CLAUSE"
# unless $c =~ $clause_name_re;
# $sc = "!";
# } elsif (!$expr && $c =~ s/(?<=.)\|\z//) {
script/gen-generic-ind-company-names view on Meta::CPAN
#
#=over
#
#=item * pass_through
#
#Ignore errors (unknown/ambiguous option) and still make GetOptions return true.
#
#=item * no_pass_through (default)
#
#=item * no_auto_abbrev
#
script/gen-generic-ind-company-names view on Meta::CPAN
#
#our $re_addr = qr/\(0x([0-9a-f]+)/o;
#
#our %Levels = (
# fatal => 10,
# error => 20,
# warn => 30,
# info => 40,
# debug => 50,
# trace => 60,
#);
script/gen-generic-ind-company-names view on Meta::CPAN
#=head2 Producing logs
#
#In your module (producer):
#
# package Foo;
# use Log::ger; # will install some logger routines e.g. log_warn, log_error
#
# 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;
#
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
#
#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
#=back
#
#Returns an enveloped result (an array).
#
#First element (status) is an integer containing HTTP status code
#(200 means OK, 4xx caller error, 5xx function error). Second element
#(msg) is a string containing error message, or 'OK' if status is
#200. Third element (payload) is optional, the actual result. Fourth
#element (meta) is called result metadata and is optional, a hash
#that contains extra information.
#
#Return value: (any)
script/gen-generic-ind-company-names view on Meta::CPAN
#No arguments.
#
#Returns an enveloped result (an array).
#
#First element (status) is an integer containing HTTP status code
#(200 means OK, 4xx caller error, 5xx function error). Second element
#(msg) is a string containing error message, or 'OK' if status is
#200. Third element (payload) is optional, the actual result. Fourth
#element (meta) is called result metadata and is optional, a hash
#that contains extra information.
#
#Return value: (any)
script/gen-generic-ind-company-names view on Meta::CPAN
#=back
#
#Returns an enveloped result (an array).
#
#First element (status) is an integer containing HTTP status code
#(200 means OK, 4xx caller error, 5xx function error). Second element
#(msg) is a string containing error message, or 'OK' if status is
#200. Third element (payload) is optional, the actual result. Fourth
#element (meta) is called result metadata and is optional, a hash
#that contains extra information.
#
#Return value: (any)
script/gen-generic-ind-company-names view on Meta::CPAN
# # try to load module that declare new props first
# if (!$opt_aup && !$prop_proplist) {
# $modprefix //= $prefix;
# my $mod = "Perinci/Sub/Property$modprefix/$prop.pm";
# eval { require $mod };
# # hide technical error message from require()
# if ($@) {
# die "Unknown property '$prefix/$prop' (and couldn't ".
# "load property module '$mod'): $@" if $@;
# }
# $prop_proplist = $proplist->{$prop};
script/gen-generic-ind-company-names view on Meta::CPAN
#=head1 FUNCTIONS
#
#=head2 normalize_function_metadata($meta[ , \%opts ]) => HASH
#
#Normalize and check L<Rinci> function metadata C<$meta>. Return normalized
#metadata, which is a shallow copy of C<$meta>. Die on error.
#
#Available options:
#
#=over
#
script/gen-generic-ind-company-names view on Meta::CPAN
#
# use Data::Sah qw(gen_validator);
# my $validator = gen_validator("rinci::function_meta*");
# say $validator->($data) ? "valid" : "INVALID!";
#
# # Data::Sah can also create validator that returns nice error message string
# # and/or coerced value. Data::Sah can even create validator that targets other
# # language, like JavaScript. All from the same schema. See its documentation
# # for more details.
#
#To validate function parameters against this schema (requires L<Params::Sah>):
script/gen-generic-ind-company-names view on Meta::CPAN
#The only required argument is B<rows>.
#Where arguments were not supported in the original release,
#the first supporting version is noted.
#
#If you pass an unknown argument,
#C<generate_table> will die with an error message.
#
#=over 4
#
#
#=item *
Acme-Incorporated
view release on metacpan or search on metacpan
lib/Acme/Incorporated.pm view on Meta::CPAN
As you'd expect.
Some of our competitors, being the jealous types, and some troublemakers,
having nothing better to do, claim that our fulfillment and quality assurance
departments are full of errors. We disclaim this, specifically in five parts:
=over 4
=item C<bad_product>
Some people claim that we ship bad products, up to 30% of the time. This is
not true. All of our products work exactly as we have designed them to work.
Any error rests with the user, or more likely a competing product clever
disguised as ours.
=item C<breaks>
Another claim is that our work breaks up to 10% of the time. This is a lie
Acme-Insult-Glax
view release on metacpan or search on metacpan
t/00_compile.t view on Meta::CPAN
is my $adjective = adjective(), hash {
field args => hash {
field lang => string 'en';
field template => string '<adjective>'
};
field error => F();
field insult => D();
}, 'adjective is a hash';
isa_ok $adjective, ['Acme::Insult::Glax'], 'adjective is a *blessed* hash';
$adjective->{insult} = 'Just a test';
is $adjective, 'Just a test', 'stringify';
t/00_compile.t view on Meta::CPAN
is my $adjective = insult(), hash {
field args => hash {
field lang => string 'en';
field template => D() # template subject to change
};
field error => F();
field insult => D();
}, 'insult is a hash';
isa_ok $adjective, ['Acme::Insult::Glax'], 'insult is a *blessed* hash';
$adjective->{insult} = 'Just a test';
is $adjective, 'Just a test', 'stringify';
Acme-Intraweb
view release on metacpan or search on metacpan
lib/Acme/Intraweb.pm view on Meta::CPAN
=head1 DESCRIPTION
Acme::Intraweb allows you to use modules not yet installed on your
system. Rather than throw annoying errors about "Could not locate
package Foo::Bar in @INC", Acme::Intraweb will just go to your
closest CPAN mirror and try to install the module for you, so your
program can go on it's merry way.
=head1 USE
Acme-JTM-Experiment
view release on metacpan or search on metacpan
lib/Acme/JTM/Experiment.pm view on Meta::CPAN
different Perl constructrs that may have compatibility issues. By
trying it with this module, I can test this across CPAN Testers.
=head1 CURRENT EXPERIMENT
I am trying to get to the bottom of this error, which seems to
happen on 32 bit architectures only:
L<http://www.cpantesters.org/cpan/report/d639aefc-9182-11e8-a601-21f641e34ae1>
I am suspecting that some type of integer math isn't getting done as I
would like on those platforms, likely due to a sign issue. I'm trying
Acme-JWT
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# Whether or not inc::Module::Install is actually loaded, the
# $INC{inc/Module/Install.pm} is what will still get set as long as
# the caller loaded module this in the documented manner.
# If not set, the caller may NOT have loaded the bundled version, and thus
# they may not have a MI version that works with the Makefile.PL. This would
# result in false errors or unexpected behaviour. And we don't want that.
my $file = join( '/', 'inc', split /::/, __PACKAGE__ ) . '.pm';
unless ( $INC{$file} ) { die <<"END_DIE" }
Please invoke ${\__PACKAGE__} with:
inc/Module/Install.pm view on Meta::CPAN
# If the modification time is only slightly in the future,
# sleep briefly to remove the problem.
my $a = $s - time;
if ( $a > 0 and $a < 5 ) { sleep 5 }
# Too far in the future, throw an error.
my $t = time;
if ( $s > $t ) { die <<"END_DIE" }
Your installer $0 has a modification time in the future ($s > $t).
Acme-JavaTrace
view release on metacpan or search on metacpan
lib/Acme/JavaTrace.pm view on Meta::CPAN
=head1 SYNOPSIS
On the command-line:
perl -wMAcme::JavaTrace program_with_strange_errors.pl
Inside a module:
use Acme::JavaTrace;
warn "some kind of non-fatal exception occured";
lib/Acme/JavaTrace.pm view on Meta::CPAN
experience by porting the Java paradigm to print stack traces, which
is more professional than Perl's way. C<< </buzzword> >>
This is achieved by modifying the functions C<warn()> and C<die()>
in order to replace the standard messages by complete stack traces
that precisely indicates how and where the error or warning occurred.
Other than this, their use should stay unchanged, even when using
C<die()> inside C<eval()>.
For a explanation of why I wrote this module, you can read the slides
of my lightning talk I<Entreprise Perl>, available here:
Acme-Jrush
view release on metacpan or search on metacpan
Revision history for Acme-Jrush
0.04 2012-12-27 23:25
Update to fix syntax error from CPAN workshop version.
0.01 Date/time
First version, released on an unsuspecting world.
Acme-Jungle-CrawlerExample
view release on metacpan or search on metacpan
lib/Data/News.pm view on Meta::CPAN
has csv => (
is => 'ro',
isa => 'Text::CSV_XS',
default => sub {
my $csv = Text::CSV_XS->new()
or die "Cannot use CSV: " . Text::CSV_XS->error_diag();
$csv->eol("\r\n");
return $csv;
},
);
Acme-KeyboardMarathon
view release on metacpan or search on metacpan
1.23 2014/04/14
Added "source-tree-marathon.pl"
Work from James Raspass <jraspass@gmail.com> that vastly improves speed
Corrected minor scoping error in "fox" test
1.22 2014/03/24
Corrected error where 'i' or 'I' was assigned the wrong value
Cleaned the new() method for clarity of distance calculation
1.21 2014/03/21
Avoiding copying values from @_ on distance
Corrected a MANIFEST error
Added a longer test using "Call of the Wild" by Jack London
1.20 2014/03/21
Added \r with a score of 0. Since in unix return is \n and in
Acme-LAUTER-DEUTSCHER
view release on metacpan or search on metacpan
Revision history for Acme-LAUTER-DEUTSCHER
1.02 Tue Nov 15 07:56:01 EST 2005
* Fixed plan error in POD coverage test
1.01 Sun Nov 13 21:01:44 EST 2005
* Module is now PGP signed
1.00 Sun Nov 13 15:20:35 EST 2005
Acme-Lambda-Expr
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# Whether or not inc::Module::Install is actually loaded, the
# $INC{inc/Module/Install.pm} is what will still get set as long as
# the caller loaded module this in the documented manner.
# If not set, the caller may NOT have loaded the bundled version, and thus
# they may not have a MI version that works with the Makefile.PL. This would
# result in false errors or unexpected behaviour. And we don't want that.
my $file = join( '/', 'inc', split /::/, __PACKAGE__ ) . '.pm';
unless ( $INC{$file} ) { die <<"END_DIE" }
Please invoke ${\__PACKAGE__} with:
Acme-Lambda
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
# Whether or not inc::Module::Install is actually loaded, the
# $INC{inc/Module/Install.pm} is what will still get set as long as
# the caller loaded module this in the documented manner.
# If not set, the caller may NOT have loaded the bundled version, and thus
# they may not have a MI version that works with the Makefile.PL. This would
# result in false errors or unexpected behaviour. And we don't want that.
my $file = join( '/', 'inc', split /::/, __PACKAGE__ ) . '.pm';
unless ( $INC{$file} ) {
die <<"END_DIE";
Please invoke ${\__PACKAGE__} with:
Acme-Lexical-Thief
view release on metacpan or search on metacpan
CONTRIBUTING view on Meta::CPAN
* Translation
Translations of documentation would be welcome.
For translations of error messages and other strings embedded in the
code, check with me first. Sometimes the English strings may not in
a stable state, so it would be a waste of time translating them.
Coding Style
I tend to write using something approximating the Allman style, using
Acme-Lingua-EN-Inflect-Modern
view release on metacpan or search on metacpan
t/00-report-prereqs.t view on Meta::CPAN
$static_prereqs
);
# Add dynamic prereqs to the included modules list (if we can)
my ($source) = grep { -f } 'MYMETA.json', 'MYMETA.yml';
my $cpan_meta_error;
if ( $source && $HAS_CPAN_META
&& (my $meta = eval { CPAN::Meta->load_file($source) } )
) {
$full_prereqs = _merge_prereqs($full_prereqs, $meta->prereqs);
}
else {
$cpan_meta_error = $@; # capture error from CPAN::Meta->load_file($source)
$source = 'static metadata';
}
my @full_reports;
my @dep_errors;
my $req_hash = $HAS_CPAN_META ? $full_prereqs->as_string_hash : $full_prereqs;
# Add static includes into a fake section
for my $mod (@include) {
$req_hash->{other}{modules}{$mod} = 0;
t/00-report-prereqs.t view on Meta::CPAN
$have = "undef" unless defined $have;
push @reports, [$mod, $want, $have];
if ( $DO_VERIFY_PREREQS && $HAS_CPAN_META && $type eq 'requires' ) {
if ( $have !~ /\A$lax_version_re\z/ ) {
push @dep_errors, "$mod version '$have' cannot be parsed ($req_string)";
}
elsif ( ! $full_prereqs->requirements_for( $phase, $type )->accepts_module( $mod => $have ) ) {
push @dep_errors, "$mod version '$have' is not in required range '$want'";
}
}
}
else {
push @reports, [$mod, $want, "missing"];
if ( $DO_VERIFY_PREREQS && $type eq 'requires' ) {
push @dep_errors, "$mod is not installed ($req_string)";
}
}
}
if ( @reports ) {
t/00-report-prereqs.t view on Meta::CPAN
if ( @full_reports ) {
diag "\nVersions for all modules listed in $source (including optional ones):\n\n", @full_reports;
}
if ( $cpan_meta_error || @dep_errors ) {
diag "\n*** WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING ***\n";
}
if ( $cpan_meta_error ) {
my ($orig_source) = grep { -f } 'MYMETA.json', 'MYMETA.yml';
diag "\nCPAN::Meta->load_file('$orig_source') failed with: $cpan_meta_error\n";
}
if ( @dep_errors ) {
diag join("\n",
"\nThe following REQUIRED prerequisites were not satisfied:\n",
@dep_errors,
"\n"
);
}
pass('Reported prereqs');
Acme-Lingua-ZH-Remix
view release on metacpan or search on metacpan
0.99
- Re-shipping to fix error in META.json
0.98
- Made to be Moo-based.
0.97
Acme-Locals
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
return
unless system( 'sudo', $^X, $0, "--config=$config",
"--installdeps=$missing" );
print << ".";
*** The 'sudo' command exited with error! Resuming...
.
}
return _prompt(
qq(
Acme-LookOfDisapproval
view release on metacpan or search on metacpan
},
{
"class" : "Dist::Zilla::Plugin::Run::AfterBuild",
"config" : {
"Dist::Zilla::Plugin::Run::Role::Runner" : {
"fatal_errors" : 1,
"quiet" : 1,
"run" : [
"bash -c \"test -e .ackrc && grep -q -- '--ignore-dir=.latest' .ackrc || echo '--ignore-dir=.latest' >> .ackrc; if [[ `dirname '%d'` != .build ]]; then test -e .ackrc && grep -q -- '--ignore-dir=%d' .ackrc || echo '--ignore-dir=%...
],
"version" : "0.050"
"config" : {
"Dist::Zilla::Plugin::Run::Role::Runner" : {
"eval" : [
"if ('%d' =~ /^%n-[.[:xdigit:]]+$/) { unlink '.latest'; symlink '%d', '.latest'; }"
],
"fatal_errors" : 0,
"quiet" : 1,
"version" : "0.050"
}
},
"name" : "@Author::ETHER/.latest",
},
{
"class" : "Dist::Zilla::Plugin::Run::AfterRelease",
"config" : {
"Dist::Zilla::Plugin::Run::Role::Runner" : {
"fatal_errors" : 0,
"quiet" : 0,
"run" : [
"REDACTED"
],
"version" : "0.050"
"config" : {
"Dist::Zilla::Plugin::Run::Role::Runner" : {
"eval" : [
"print \"release complete!\\xa\""
],
"fatal_errors" : 1,
"quiet" : 1,
"version" : "0.050"
}
},
"name" : "@Author::ETHER/release complete",
Acme-Loopy
view release on metacpan or search on metacpan
CONTRIBUTING view on Meta::CPAN
* Translation
Translations of documentation would be welcome.
For translations of error messages and other strings embedded in the
code, check with me first. Sometimes the English strings may not in
a stable state, so it would be a waste of time translating them.
Coding Style
I tend to write using something approximating the Allman style, using
Acme-Lou
view release on metacpan or search on metacpan
author/en2kana.csv view on Meta::CPAN
enter,エンター
entrance,エントランス
envelope,エンベãƒãƒ¼ãƒ—
equal,イコール
eraser,イレーザー
error,エラー
escape,エスケープ
especially,エスペシャリー
essence,エッセンス
essentially,エッセンシャリー
even,イーブン
Acme-MCP
view release on metacpan or search on metacpan
lib/Acme/MCP.pm view on Meta::CPAN
while ( my $line = <STDIN> ) {
chomp $line;
my $request;
try { $request = $json->decode($line) }
catch ($e) {
$self->_send_error( undef, -32700, 'Parse error' );
next;
}
$self->_handle_request($request);
}
}
lib/Acme/MCP.pm view on Meta::CPAN
}
elsif ( $method eq 'tools/call' ) {
$self->_handle_tool_call( $id, $req->{params} );
}
else {
$self->_send_error( $id, -32601, 'Method not found: ' . $method );
}
}
method _handle_tool_call ( $id, $params ) {
my $t_name = $params->{name};
lib/Acme/MCP.pm view on Meta::CPAN
try {
my $result = $tool->{code}->($args);
$self->_send_tool_result( $id, $result );
}
catch ($e) {
$self->_send_tool_result( $id, { error => $e }, 1 );
}
}
else {
$self->_send_error( $id, -32602, 'Unknown tool: ' . $t_name );
}
}
method _send_response ( $id, $result ) {
print STDOUT $json->encode( { jsonrpc => '2.0', id => $id, result => $result } ) . "\n";
}
method _send_tool_result ( $id, $content, $is_error = 0 ) {
$self->_send_response(
$id,
{ content => [ { type => 'text', text => ref($content) ? $json->encode($content) : $content } ],
isError => $is_error ? JSON::PP::true : JSON::PP::false
}
);
}
method _send_error ( $id, $code, $message ) {
print STDOUT $json->encode( { jsonrpc => '2.0', id => $id, error => { code => $code, message => $message } } ) . "\n";
}
};
#
1;
Acme-MITHALDU-BleedingOpenGL
view release on metacpan or search on metacpan
BleedingOpenGL.pm view on Meta::CPAN
Acme::MITHALDU::BleedingOpenG - bleeding edge OpenGL experiments - you WILL get cut
=head1 DESCRIPTION
This is a fork of the official L<OpenGL> in which i implement modern OpenGL
functions not available in L<OpenGL> crudely, cluelessly and without any error
checking. The only reason this is on CPAN is to make development of
L<Microidium|https://github.com/wchristian/Microidium> a little easier.
You'd be insane to use this. I make no guarantees to not break this horribly at
any point.
Acme-MITHALDU-XSGrabBag
view release on metacpan or search on metacpan
inc/Inline.pm view on Meta::CPAN
$o->env_untaint if UNTAINT;
if (not $o->{INLINE}{object_ready}) {
$o->check_config_file; # Final DIRECTORY set here.
push @config, $o->with_configs;
my $language = $o->{API}{language};
croak M04_error_nocode($language_id) unless $o->{API}{code};
$o->check_module;
}
$o->env_untaint if UNTAINT;
$o->obj_untaint if UNTAINT;
print_version() if $version_requested;
$o->reportbug() if $o->{CONFIG}{REPORTBUG};
if (not $o->{INLINE}{object_ready}
or $o->{CONFIG}{PRINT_INFO}
) {
eval "require $o->{INLINE}{ILSM_module}";
croak M05_error_eval('glue', $@) if $@;
$o->push_overrides;
bless $o, $o->{INLINE}{ILSM_module};
$o->validate(@config);
}
else {
inc/Inline.pm view on Meta::CPAN
$o->{INLINE}{ILSM_suffix} ne 'bundle' and
$o->{INLINE}{ILSM_suffix} ne 'sl' and
ref($o) eq 'Inline'
) {
eval "require $o->{INLINE}{ILSM_module}";
croak M05_error_eval('glue', $@) if $@;
$o->push_overrides;
bless $o, $o->{INLINE}{ILSM_module};
$o->validate(@config);
}
$o->load;
inc/Inline.pm view on Meta::CPAN
else {
$o->{INLINE}{md5} = $o->{API}{code};
}
return if $o->{CONFIG}{_INSTALL_};
return unless $o->{CONFIG}{VERSION};
croak M26_error_version_without_name()
unless $o->{CONFIG}{NAME};
my @pkgparts = split(/::/, $o->{API}{pkg});
my $realname = File::Spec->catfile(@pkgparts) . '.pm';
my $realname_unix = File::Spec::Unix->catfile(@pkgparts) . '.pm';
inc/Inline.pm view on Meta::CPAN
my @endparts = splice(@dirparts, 0 - @pkgparts);
$dirparts[-1] = 'arch'
if $dirparts[-2] eq 'blib' && $dirparts[-1] eq 'lib';
File::Spec->catfile(@endparts) eq $realname
or croak M28_error_grokking_path($realpath);
$realpath =
File::Spec->catpath($volume,File::Spec->catdir(@dirparts),"");
$o->{API}{version} = $o->{CONFIG}{VERSION};
$o->{API}{module} = $o->{CONFIG}{NAME};
inc/Inline.pm view on Meta::CPAN
$o->{API}{modpname} = File::Spec->catdir(@modparts);
my $suffix = $Config{dlext};
my $obj = File::Spec->catfile($realpath,'auto',$o->{API}{modpname},
"$o->{API}{modfname}.$suffix");
croak M30_error_no_obj($o->{CONFIG}{NAME}, $o->{API}{pkg},
$realpath) unless -f $obj;
@{$o->{CONFIG}}{qw( PRINT_INFO
REPORTBUG
FORCE_BUILD
inc/Inline.pm view on Meta::CPAN
package $module;
push \@$ {module}::ISA, qw(Exporter DynaLoader);
sub dl_load_flags { $global }
${module}::->bootstrap;
END
croak M43_error_bootstrap($module, $@) if $@;
}
#==============================================================================
# Create file that satisfies the Makefile dependency for this object
#==============================================================================
inc/Inline.pm view on Meta::CPAN
$Inline::languages = $config{languages};
{
no warnings ('numeric'); # These warnings were a pain with devel releases.
# If there's a problem with the version number, the
# error message will output $config{version} anyway.
croak M18_error_old_version($config{version}, $DIRECTORY)
unless (defined $config{version} and
$config{version} =~ /TRIAL/ or
$config{version} >= 0.40);
} # numeric warnings re-enabled.
inc/Inline.pm view on Meta::CPAN
END
return $usage;
}
sub M04_error_nocode {
my ($language) = @_;
return <<END;
No $language source code found for Inline.
END
}
sub M05_error_eval {
my ($subroutine, $msg) = @_;
return <<END;
An eval() failed in Inline::$subroutine:
$msg
inc/Inline.pm view on Meta::CPAN
END
#'
}
sub M18_error_old_version {
my ($old_version, $directory) = @_;
$old_version ||= '???';
return <<END;
You are using Inline version $Inline::VERSION with a directory that was
configured by Inline version $old_version. This version is no longer supported.
inc/Inline.pm view on Meta::CPAN
END
#'
}
sub M22_usage_register {
my ($language, $error) = @_;
return <<END;
The module Inline::$language does not support the Inline API, because it does
properly support the register() method. This module will not work with Inline
and should be uninstalled from your system. Please advise your sysadmin.
The following error was generating from this module:
$error
END
}
sub M23_usage_alias_used {
inc/Inline.pm view on Meta::CPAN
$err
END
}
sub M26_error_version_without_name {
return <<END;
Specifying VERSION option without NAME option is not permitted.
END
}
inc/Inline.pm view on Meta::CPAN
but there is no entry for that module in %INC.
END
}
sub M28_error_grokking_path {
my ($path) = @_;
return <<END;
Can't calculate a path from '$path' in %INC
END
}
sub M29_error_relative_path {
my ($name, $path) = @_;
return <<END;
Can't load installed extension '$name'
from relative path '$path'.
END
#'
}
sub M30_error_no_obj {
my ($name, $pkg, $path) = @_;
<<END;
The extension '$name' is not properly installed in path:
'$path'
inc/Inline.pm view on Meta::CPAN
END
#'
}
sub M32_error_md5_validation {
my ($md5, $inl) = @_;
return <<END;
The source code fingerprint:
$md5
inc/Inline.pm view on Meta::CPAN
This module needs to be reinstalled.
END
}
sub M33_error_old_inline_version {
my ($inl) = @_;
return <<END;
The following extension is not compatible with this version of Inline.pm.
$inl
inc/Inline.pm view on Meta::CPAN
You need to reinstall this extension.
END
}
sub M34_error_incorrect_version {
my ($inl) = @_;
return <<END;
The version of your extension does not match the one indicated by your
Inline source code, according to:
inc/Inline.pm view on Meta::CPAN
This module should be reinstalled.
END
}
sub M35_error_no_object_file {
my ($obj, $inl) = @_;
return <<END;
There is no object file:
$obj
inc/Inline.pm view on Meta::CPAN
ERROR. The loader that was invoked is for compiled languages only.
END
}
sub M43_error_bootstrap {
my ($mod, $err) = @_;
return <<END;
Had problems bootstrapping Inline module '$mod'
$err
inc/Inline.pm view on Meta::CPAN
END
}
sub M45_usage_with {
return <<END;
Syntax error detected using 'use Inline with ...'.
Should be specified as:
use Inline with => 'module1', 'module2', ..., 'moduleN';
END
}
sub M46_usage_with_bad {
my $mod = shift;
return <<END;
Syntax error detected using 'use Inline with => "$mod";'.
'$mod' could not be found.
END
}
Acme-MJD
view release on metacpan or search on metacpan
lib/Acme/MJD.pm view on Meta::CPAN
#11901 You can't just make shit up and expect the computer to know what you mean, Retardo!
#11902 You said it didn't work, but you didn't say what it would have done if it *had* worked.
#11903 What are you really trying to accomplish here?
#11904 Who the fuck cares which one is faster?
#11905 Now is the time in our program where you look at the manual.
#11906 Look at the error message! Look at the error message!
#11907 Looking for a compiler bug is the strategy of LAST resort. LAST resort.
#11908 Premature optimization is the root of all evil.
#11909 Bad programmer! No cookie!
#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.
#11921 It could be anything. Too bad you didn't bother to diagnose the error, huh?
#11922 You don't suppress error messages, you dumbass, you PAY ATTENTION and try to understand them.
#11923 Never catch a signal except as a last resort.
#11924 Well, if you don't know what it does, why did you put it in your program?
#11925 Gosh, that wasn't very bright, was it?
#11926 That's like taking a crap on someone's doorstep and then ringing the doorbell to ask for toilet paper.
#11927 A good approach to that problem would be to hire a computer programmer.
#11928 First get a book on programming. Then read it. Then write the program.
#11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.
#11930 Would you like to see my rate card?
#11931 I think you are asking the wrong question here.
#11932 Holy cow.
#11933 Because it's a syntax error.
#11934 Because this is Perl, not C.
#11935 Because this is Perl, not Lisp.
#11936 Because that's the way it is.
#11937 Because.
#11938 If you have `some weird error', the problem is probably with your frobnitzer.
#11939 Because the computer cannot read your mind. Guess what? I cannot read your mind *either*.
#11940 You said `It doesn't work'. The next violation will be punished by death.
#11941 Of course it doesn't work! That's because you don't know what you are doing!
#11942 Sure, but you have to have some understanding also.
#11943 Ah yes, and you are the first person to have noticed this bug since 1987. Sure.
Acme-MUDLike
view release on metacpan or search on metacpan
lib/Acme/MUDLike.pm view on Meta::CPAN
# * /goto should put you inside an arbitrary object, /look should list as exits and/or items the object references contained by that object
# in other words, break away from our rigid API for inventory/room/etc.
#
# * need a black list black list, so we can re-add ourself to things that get serialized by Acme::State even though we're in %INC
#
# * need an error log viewabe by all.
#
# * eval and its output should be sent to the whole room.
#
# * Better account management.
#
lib/Acme/MUDLike.pm view on Meta::CPAN
new function(){
jQuery.each( ("blur,focus,load,resize,scroll,unload,click,dblclick," +
"mousedown,mouseup,mousemove,mouseover,mouseout,change,select," +
"submit,keydown,keypress,keyup,error").split(","), function(i,o){
// Handle event binding
jQuery.fn[o] = function(f){
return f ? this.bind(o, f) : this.trigger(o);
};
lib/Acme/MUDLike.pm view on Meta::CPAN
}
var status;
try {
status = jQuery.httpSuccess( xml ) && isTimeout != "timeout" ?
s.ifModified && jQuery.httpNotModified( xml, s.url ) ? "notmodified" : "success" : "error";
// Make sure that the request was successful or notmodified
if ( status != "error" ) {
// Cache Last-Modified header, if ifModified mode.
var modRes;
try {
modRes = xml.getResponseHeader("Last-Modified");
} catch(e) {} // swallow exception thrown by FF if header is not available
lib/Acme/MUDLike.pm view on Meta::CPAN
if( s.global )
jQuery.event.trigger( "ajaxSuccess", [xml, s] );
} else
jQuery.handleError(s, xml, status);
} catch(e) {
status = "error";
jQuery.handleError(s, xml, status, e);
}
// The request was completed
if( s.global )
lib/Acme/MUDLike.pm view on Meta::CPAN
return xml;
},
handleError: function( s, xml, status, e ) {
// If a local callback was specified, fire it
if ( s.error ) s.error( xml, status, e );
// Fire the global callback
if ( s.global )
jQuery.event.trigger( "ajaxError", [xml, s, e] );
},
Acme-Machi
view release on metacpan or search on metacpan
t/Acme-Machi.t view on Meta::CPAN
# Cannot use instance method to construct object
#############################################################
{
local $@;
isnt(eval{$loli_first->new(); 1}, 1, 'caller test')
&& like($@, qr/cannot.+?instance method.+/i, 'Die with a pre-defined error msg');
}
#############################################################
# Cannot change one's habit with undefined key word
#############################################################
Acme-Markdown-Embarrassing
view release on metacpan or search on metacpan
2.1 Date/time
Still embarrassing (do not zoom images)
2.0 Date/time
Still embarrassing (fix pod errors)
1.9 Date/time
Still embarrassing (pod images)
1.8 Date/time
Acme-Marvel-CinematicUniverse-Characters
view release on metacpan or search on metacpan
lib/Acme/Marvel/CinematicUniverse/Mite.pm view on Meta::CPAN
my @bool = ( \&false, \&true );
*_HAS_AUTOCLEAN = $bool[ 0+!! eval { require namespace::autoclean } ];
*STRICT = $bool[ 0+!! ( $ENV{PERL_STRICT} || $ENV{EXTENDED_TESTING} || $ENV{AUTHOR_TESTING} || $ENV{RELEASE_TESTING} ) ];
};
# Exportable error handlers
sub _error_handler {
my ( $func, $message, @args ) = @_;
if ( @args ) {
require Data::Dumper;
local $Data::Dumper::Terse = 1;
local $Data::Dumper::Indent = 0;
lib/Acme/Marvel/CinematicUniverse/Mite.pm view on Meta::CPAN
my $next = do { require Carp; \&{"Carp::$func"} };
@_ = ( $message );
goto $next;
}
sub carp { unshift @_, 'carp' ; goto \&_error_handler }
sub croak { unshift @_, 'croak' ; goto \&_error_handler }
sub confess { unshift @_, 'confess'; goto \&_error_handler }
# Exportable guard function
{
my $GUARD_PACKAGE = __PACKAGE__ . '::Guard';
*{"$GUARD_PACKAGE\::DESTROY"} = sub { $_[0][0] or $_[0][1]->() };
lib/Acme/Marvel/CinematicUniverse/Mite.pm view on Meta::CPAN
# Changes to this filename must be coordinated with Mite::Compiled
my $mite_file = $orig . '.mite.pm';
local $@;
if ( not eval { require $mite_file; 1 } ) {
my $e = $@;
croak "Compiled Mite file ($mite_file) for $file is missing or an error occurred loading it: $e";
}
}
'warnings'->import;
'strict'->import;
Acme-Matt-Daemon
view release on metacpan or search on metacpan
inc/Module/AutoInstall.pm view on Meta::CPAN
return
unless system( 'sudo', $^X, $0, "--config=$config",
"--installdeps=$missing" );
print << ".";
*** The 'sudo' command exited with error! Resuming...
.
}
return _prompt(
qq(
( run in 1.353 second using v1.01-cache-2.11-cpan-9288abcf80b )