Result:
found more than 1015 distributions - search limited to the first 2001 files matching your query
( run in 0.746 )
Alt-CWB-ambs
view release on metacpan or search on metacpan
lib/CWB/CEQL.pm view on Meta::CPAN
sub ceql_query {
my ($self, $input) = @_;
$input =~ s/\s+/ /g; # change all whitespace to single blanks
$input =~ s/^\s+//; $input =~ s/\s+$//; # remove leading/trailing whitespace
# check whether there's something in the query that looks like a distance operator (same regexp as used in proximity_query rule)
if ($input =~ /(?<!\\)((<<|>>)[^<>\\ ]*(<<|>>))/) {
return $self->Call("proximity_query", $input);
}
else {
return $self->Call("phrase_query", $input);
Alt-Crypt-OpenSSL-PKCS12-Broadbean
view release on metacpan or search on metacpan
$opt{'compat-version'} = 5.003_07 unless exists $opt{'compat-version'};
$opt{'compat-version'} = int_parse_version($opt{'compat-version'});
my $int_min_perl = int_parse_version(5.003_07);
# Each element of this hash looks something like:
# 'Poison' => {
# 'base' => '5.008000',
# 'provided' => 1,
# 'todo' => '5.003007'
# },
LOOKBEHIND_END_t8|||Viu
LOOKBEHIND_END_tb_p8|||Viu
LOOKBEHIND_END_tb_pb|||Viu
LOOKBEHIND_END_tb|||Viu
LOOKBEHIND_END|||Viu
looks_like_bool|5.027008||Viu
looks_like_number|5.003007|5.003007|
LOOP_PAT_MODS|5.009005||Viu
lop|5.005000||Viu
lossless_NV_to_IV|5.031001||Vniu
LOWEST_ANYOF_HRx_BYTE|5.031002||Viu
L_R_TZSET|5.009005|5.009005|Vn
* otherwise call the original that doesn't have an upper limit parameter */
# define D_PPP_GENERIC_MULTI_ARG_TO(name, s, e,r,l) \
(((((e) - (s)) <= 0) \
/* We could just do nothing, but modern perls croak */ \
? (croak("Attempting case change on zero length string"), \
0) /* So looks like it returns something, and will compile */ \
: ((e) - (s)) < UTF8SKIP(s)) \
? (croak(D_PPP_TOO_SHORT_MSG, \
s[0], (int) ((e) - (s)), (int) UTF8SKIP(s)), \
0) \
: D_PPP_TO_ ## name ## _CALLEE(s,r,l))
#endif
# define D_PPP_GENERIC_SINGLE_ARG_TO_UTF8(name, s, e, r, l) \
(((((e) - (s)) <= 0) \
? (croak("Attempting case change on zero length string"), \
0) /* So looks like it returns something, and will compile */ \
: ((e) - (s)) < UTF8SKIP(s)) \
? (croak(D_PPP_TOO_SHORT_MSG, \
s[0], (int) ((e) - (s)), (int) UTF8SKIP(s)), \
0) \
/* Get the changed code point and store its UTF-8 */ \
Alt-Crypt-RSA-BigInt
view release on metacpan or search on metacpan
inc/Devel/CheckLib.pm view on Meta::CPAN
It works by trying to compile some code - which defaults to this:
int main(void) { return 0; }
and linking it to the specified libraries. If something pops out the end
which looks executable, it gets executed, and if main() returns 0 we know
that it worked. That tiny program is
built once for each library that you specify, and (without linking) once
for each header file.
If you want to check for the presence of particular functions in a
Alt-Date-Extract-SHARYANTO
view release on metacpan or search on metacpan
lib/Date/Extract.pm view on Meta::CPAN
L<DateTime::Format::Natural> should be your first choice. There's also
L<Time::ParseDate> which fits many formats. Finally, you can coerce
L<Date::Manip> to do your bidding.
But I needed something that will take an arbitrary block of text, search it for
something that looks like a date string, and extract it. This module fills this
niche. By design it will produce few false positives. This means it will not
catch nearly everything that looks like a date string. So if you have the string
"do homework for class 2019" it won't return a L<DateTime> object with the year
set to 2019. This is what your users would probably expect.
=head1 METHODS
Alt-Lexical-Var-ButSupportModernPerl
view release on metacpan or search on metacpan
lib/Lexical/Sub.pm view on Meta::CPAN
name located in the current package. A C<Lexical::Sub> declaration
can change this to refer to any particular subroutine, bypassing the
package system entirely. A subroutine name that includes an explicit
package part, such as "C<&main::foo>", always refers to the subroutine
in the specified package, and is unaffected by this module. A symbolic
reference through a string value, such as "C<&{'foo'}>", also looks in
the package system, and so is unaffected by this module.
Bareword references to subroutines, such as "C<foo(123)>", only work on
Perl 5.11.2 and later. On earlier Perls you must use the C<&> sigil,
as in "C<&foo(123)>".
lib/Lexical/Sub.pm view on Meta::CPAN
=head1 BUGS
Subroutine invocations without the C<&> sigil cannot be correctly
processed on Perl versions earlier than 5.11.2. This is because
the parser needs to look up the subroutine early, in order to let any
prototype affect parsing, and it looks up the subroutine by a different
mechanism than is used to generate the call op. (Some forms of sigilless
call have other complications of a similar nature.) If an attempt
is made to call a lexical subroutine via a bareword on an older Perl,
this module will probably still be able to intercept the call op, and
will throw an exception to indicate that the parsing has gone wrong.
Alt-Sub-Delete-NewPackageSeparator
view release on metacpan or search on metacpan
t/Test/Builder.pm view on Meta::CPAN
=item B<todo>
my $todo_reason = $Test->todo;
my $todo_reason = $Test->todo($pack);
todo() looks for a $TODO variable in your tests. If set, all tests
will be considered 'todo' (see Test::More and Test::Harness for
details). Returns the reason (ie. the value of $TODO) if running as
todo tests, false otherwise.
todo() is about finding the right package to look for $TODO in. It
Alter
view release on metacpan or search on metacpan
listkids|||
list|||
load_module_nocontext|||vn
load_module|5.006000||pv
localize|||
looks_like_bool|||
looks_like_number|||
lop|||
mPUSHi|5.009002||p
mPUSHn|5.009002||p
mPUSHp|5.009002||p
mPUSHu|5.009002||p
Alvis-Convert
view release on metacpan or search on metacpan
lib/Alvis/Document/Type.pm view on Meta::CPAN
# by other means
# BTW, File::Type should make it clear and checkable what its
# "I dunno" reply is
if ($type eq 'application' && $sub_type eq 'octet-stream')
{
if ($self->_looks_like_HTML($text))
{
($type,$sub_type)=('text','html');
}
elsif ($self->_looks_like_RSS($text))
{
# not a MIME type
($type,$sub_type)=('text','rss')
}
}
return ($type,$sub_type);
}
sub _looks_like_HTML
{
my $self=shift;
my $text=shift;
#
lib/Alvis/Document/Type.pm view on Meta::CPAN
}
return 0;
}
sub _looks_like_RSS
{
my $self=shift;
my $text=shift;
#
Alzabo
view release on metacpan or search on metacpan
lib/Alzabo/Runtime/Schema.pm view on Meta::CPAN
array reference, you cannot include any outer joins, and every element
of the array reference must be a table object.
If you need to specify a more complicated set of relationships, this
can be done with a slightly more complicated data structure, which
looks like this:
join => [ [ $table_A, $table_B ],
[ $table_A, $table_C ],
[ $table_C, $table_D ],
[ $table_C, $table_E ] ]
Amazon-MWS
view release on metacpan or search on metacpan
lib/Amazon/MWS/Uploader.pm view on Meta::CPAN
shipping_confirmation_job_id => $job_id,
shop_id => $self->_unique_shop_id,
}));
}
else {
# this looks good
$self->_exe_query($self->sqla->update('amazon_mws_orders',
{
shipping_confirmation_ok => 1,
},
{
lib/Amazon/MWS/Uploader.pm view on Meta::CPAN
sub register_errors {
my ($self, $job_id, $result) = @_;
# first, get the list of all the skus which were scheduled for this job
# we don't have a products hashref anymore.
# probably we could parse back the produced xml, but looks like an overkill.
# just mark them as redo and wait for the next cron call.
my @products = $self->skus_in_job($job_id);
my $errors = $result->skus_errors;
my @errors_with_sku = grep { $_->{sku} } @$errors;
# turn it into an hash
lib/Amazon/MWS/Uploader.pm view on Meta::CPAN
else {
push @orders_to_notify, $ord;
}
}
else {
die "It looks like you are trying to send a shipping confirmation "
. " without prior order acknowlegdement. "
. "At least in the amazon_mws_orders there is no trace of "
. "$report->{amazon_order_id} $report->{shop_order_id}";
}
}
Amazon-S3-Thin-ResponseParser
view release on metacpan or search on metacpan
lib/Amazon/S3/Thin/ResponseParser.pm view on Meta::CPAN
This takes an XML response as C<$content> and it will return an error.
The C<$content> should be valid XML formed
L<< Error Responses|https://docs.aws.amazon.com/AmazonS3/latest/API/ErrorResponses.html >>.
C<$error> is a hashref that looks like following form.
{
code => 'NoSuchKey',
message => 'The resource you requested does not exist',
resource => '/mybucket/myfoto.jpg',
lib/Amazon/S3/Thin/ResponseParser.pm view on Meta::CPAN
L<< Error Responses|https://docs.aws.amazon.com/AmazonS3/latest/API/ErrorResponses.html >>.
The C<$content> should be valid XML formed
L<< GET Bucket (List Objects) Version 2|https://docs.aws.amazon.com/AmazonS3/latest/API/v2-RESTBucketGET.html >> or
L<< GET Bucket (List Objects) Version 1|https://docs.aws.amazon.com/AmazonS3/latest/API/RESTBucketGET.html >>.
C<$list_objects> is a hashref that looks like following form. undef is returned if there is the C<$error>.
{
common_prefixes => [],
contents => [
{
lib/Amazon/S3/Thin/ResponseParser.pm view on Meta::CPAN
next_continuation_token => '',
key_count => 205,
start_after => '',
};
C<$error> is a hashref that looks like following form. undef is returned if there is the C<$list_objects>.
{
code => 'NoSuchKey',
message => 'The resource you requested does not exist',
resource => '/mybucket/myfoto.jpg',
Amazon-S3-Thin
view release on metacpan or search on metacpan
lib/Amazon/S3/Thin.pm view on Meta::CPAN
my $res = $self->_send($request);
# XXX: Since the COPY request might return error response in 200 OK, we'll rewrite the status code to 500 for convenience
# ref http://docs.aws.amazon.com/AmazonS3/latest/API/RESTObjectCOPY.html
# ref https://github.com/boto/botocore/blob/4e9b4419ec018716ab1a3fe1587fbdc3cfef200e/botocore/handlers.py#L77-L120
if ($self->_looks_like_special_case_error($res)) {
$res->code(500);
}
return $res;
}
sub _looks_like_special_case_error {
my ($self, $res) = @_;
return $res->code == 200 && (length $res->content == 0 || $res->content =~ /<Error>/);
}
sub put_object {
lib/Amazon/S3/Thin.pm view on Meta::CPAN
=back
=head2 Comparison to precedent modules
There are already some useful modules like L<Amazon::S3>, L<Net::Amazon::S3>
on CPAN. They provide a "Perlish" interface, which looks pretty
for Perl programmers, but they also hide low-level behaviors.
For example, the "get_key" method translate HTTP status 404 into C<undef> and
HTTP 5xx status into exception.
In some situations, it is very important to see the raw HTTP communications.
Amazon-S3
view release on metacpan or search on metacpan
lib/Amazon/S3.pm view on Meta::CPAN
=back
Returns C<undef> on error and a reference to a hash of data on success:
The return value looks like this:
{
bucket => $bucket_name,
prefix => $bucket_prefix,
marker => $bucket_marker,
lib/Amazon/S3.pm view on Meta::CPAN
is only present in the response if the C<delimiter> parameter was
sent with the request.
=back
Each key is a reference to a hash that looks like this:
{
key => $key,
last_modified => $last_mod_date,
etag => $etag, # An MD5 sum of the stored content.
Amazon-SES
view release on metacpan or search on metacpan
lib/Amazon/SES.pm view on Meta::CPAN
C<charset> of the e-mail is set to 'UTF-8'. As of this writing I didn't make any way to affect this.
Success calls also return a C<message_id>, which can be accessed using a shortcut C<$r->message_id> syntax. See L<Response class|Amazon::SES::Response>.
Sample successful response looks like this in JSON:
{
"MessageId": "00000141344ce1a8-0664c3c5-e9a0-4b47-aa2e-12b0bdf6070e-000000"
}
Sample error response looks like as:
{
"Error": {
"Code": "MessageRejected",
"Type": "Sender",
Ambrosia
view release on metacpan or search on metacpan
t/Ambrosia/core/Object.t view on Meta::CPAN
my $my_bar = new_ok t::Bar => []; #test #11
cmp_deeply({map {$_ => 1} $my_bar->fields()}, $H, 'fields() is ok'); #test #12
my $string_dump = $my_bar->string_dump();
like($string_dump, '/^\^Storable|||hex|Compress::Zlib\^[a-z0-9]+$/', "string_dump looks good"); #test #13
my $hBar = $my_bar->as_hash(1, qw/
get_list_pri:getListPri
get_list_pro:getListPro
get_list_pri_ex:getListPriEx
Amethyst
view release on metacpan or search on metacpan
Amethyst/Brain/Infobot/Module/Excuse.pm view on Meta::CPAN
The ATM board has run out of 10 pound notes. We are having a whip round to refill it, care to contribute ?
Network failure - call NBC
Having to manually track the satellite.
Your/our computer(s) had suffered a memory leak, and we are waiting for them to be topped up.
The rubber band broke
We're on Token Ring, and it looks like the token got loose.
Stray Alpha Particles from memory packaging caused Hard Memory Error on Server.
paradigm shift...without a clutch
PEBKAC (Problem Exists Between Keyboard And Chair)
The cables are not the same length.
Second-sytem effect.
Amon2-Plugin-LogDispatch
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
Amon2-Plugin-Web-FormValidator-Simple
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
Amon2-Web-Dispatcher-RouterSimple-Extended
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
Amon2
view release on metacpan or search on metacpan
lib/Amon2/Setup/Asset/Bootstrap.pm view on Meta::CPAN
"bootstrap/css/bootstrap-reboot.css" => "/*!\n * Bootstrap Reboot v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors\n * Copyright 2011-2019 Twitter, Inc.\n * Licensed under MIT (https://github.com/twbs/bootstrap/blob/...
"bootstrap/css/bootstrap-reboot.css.map" => "{\"version\":3,\"sources\":[\"../../scss/bootstrap-reboot.scss\",\"bootstrap-reboot.css\",\"../../scss/_reboot.scss\",\"../../scss/_variables.scss\",\"../../scss/vendor/_rfs.scss\",\"../../scss/mixins/_h...
"bootstrap/css/bootstrap-reboot.min.css" => "/*!\n * Bootstrap Reboot v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors\n * Copyright 2011-2019 Twitter, Inc.\n * Licensed under MIT (https://github.com/twbs/bootstrap/b...
"bootstrap/css/bootstrap-reboot.min.css.map" => "{\"version\":3,\"sources\":[\"../../scss/bootstrap-reboot.scss\",\"../../scss/_reboot.scss\",\"dist/css/bootstrap-reboot.css\",\"../../scss/vendor/_rfs.scss\",\"bootstrap-reboot.css\",\"../../scss/mi...
"bootstrap/css/bootstrap.css" => "/*!\n * Bootstrap v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors\n * Copyright 2011-2019 Twitter, Inc.\n * Licensed under MIT (https://github.com/twbs/bootstrap/blob/master/LICENSE...
"bootstrap/css/bootstrap.css.map" => "{\"version\":3,\"sources\":[\"../../scss/bootstrap.scss\",\"bootstrap.css\",\"../../scss/_root.scss\",\"../../scss/_reboot.scss\",\"../../scss/_variables.scss\",\"../../scss/vendor/_rfs.scss\",\"../../scss/mixi...
"bootstrap/css/bootstrap.min.css" => "/*!\n * Bootstrap v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors\n * Copyright 2011-2019 Twitter, Inc.\n * Licensed under MIT (https://github.com/twbs/bootstrap/blob/master/LIC...
"bootstrap/css/bootstrap.min.css.map" => "{\"version\":3,\"sources\":[\"../../scss/bootstrap.scss\",\"../../scss/_root.scss\",\"../../scss/_reboot.scss\",\"dist/css/bootstrap.css\",\"../../scss/vendor/_rfs.scss\",\"bootstrap.css\",\"../../scss/mixi...
"bootstrap/dropdown.js" => "/*!\n * Bootstrap dropdown.js v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors (https://github.com/twbs/bootstrap/graphs/contributors)\n * Licensed under MIT (https://github.com/twbs/bo...
"bootstrap/dropdown.js.map" => "{\"version\":3,\"file\":\"dropdown.js\",\"sources\":[\"../src/dropdown.js\"],\"sourcesContent\":[\"/**\\n * --------------------------------------------------------------------------\\n * Bootstrap (v4.4.1): dropdown...
"bootstrap/index.js" => "/**\n * --------------------------------------------------------------------------\n * Bootstrap (v4.4.0): index.js\n * Licensed under MIT (https://github.com/twbs/bootstrap/blob/master/LICENSE)\n * ------------------------...
"bootstrap/index.js.map" => "{\"version\":3,\"sources\":[\"../src/index.js\"],\"names\":[\"\$\",\"TypeError\",\"version\",\"fn\",\"jquery\",\"split\",\"minMajor\",\"ltMajor\",\"minMinor\",\"minPatch\",\"maxMajor\",\"Error\"],\"mappings\":\"AAaA;;;;...
"bootstrap/js/bootstrap.bundle.js" => "/*!\n * Bootstrap v4.4.1 (https://getbootstrap.com/)\n * Copyright 2011-2019 The Bootstrap Authors (https://github.com/twbs/bootstrap/graphs/contributors)\n * Licensed under MIT (https://github.com/twbs/boo...
Anarres-Mud-Driver
view release on metacpan or search on metacpan
lib/Driver/Compiler/Check.pm view on Meta::CPAN
StmtReturn => 'CODE', # Output type must match function
Sscanf => 'CODE', # Urgh!
);
# This looks like a fast way of generating the choice table for
# promotable operators, but does depend a little on the naming
# of opcodes! If there are any special cases, they need to be put
# into %OPCHOICES as literals. I'm going to get lynched for this.
{
%OPCHOICES = ();
Android-ElectricSheep-Automator
view release on metacpan or search on metacpan
lib/Android/ElectricSheep/Automator/ADB.pm view on Meta::CPAN
# Searching for 'Error:' in STDERR is ok?
# TODO: this needs to be dealt with here.
if( (! $res) || $@ || ($err=~/\bError\: /) ){
carp "STDERR:\n${err}\nOTHER INFO: $@\n\n"
.(($@=~/IPC::Run: .*timed out/)
?"\nWARNING: it looks like a timeout has occured.\n\n"
:""
)
.__PACKAGE__.'::run()'." : error, failed to execute command (see above for stderr): ".join(' ', @cmd)
; # end carp
return [1, $out, $err];
AnnoCPAN-Perldoc
view release on metacpan or search on metacpan
B<annopod> B<-q> FAQ Keyword
=head1 DESCRIPTION
The C<annopod> program works exactly the same as L<perldoc>, except that it
looks for a local annotation database and inserts the annotations just before
rendering the POD.
It works by using a local note database that can be downloaded from
http://annocpan.org/annopod.db
Announcements
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
Ansible
view release on metacpan or search on metacpan
lib/Ansible.pm view on Meta::CPAN
if ( ! $old ) {
print STDERR "NO OLD\n" if $debug_set;
push(@o, openangle($self->setcontext(@designators)));
push(@o, $desig);
}
elsif ( ! $designator && ! looks_like_a_block($desig, @lines) ) {
if ( $self->block && $self->context ) {
unshift(@lines, $desig);
$old = $self->context;
undef $desig;
}
lib/Ansible.pm view on Meta::CPAN
if @o;
return join('', returns(@o)) unless wantarray;
return returns(@o);
}
sub looks_like_a_block {
my ($first, @l) = @_;
my $last = pop(@l);
return 1 if ! defined $last;
return 0 if grep (/^\S/, @l);
return 0 if $first =~ /^\s/;
AntTweakBar
view release on metacpan or search on metacpan
src/ppport.h view on Meta::CPAN
listkids|||
list|||
load_module_nocontext|||vn
load_module|5.006000||pv
localize|||
looks_like_bool|||
looks_like_number|||
lop|||
mPUSHi|5.009002||p
mPUSHn|5.009002||p
mPUSHp|5.009002||p
mPUSHs|5.010001||p
Antispam-Toolkit
view release on metacpan or search on metacpan
lib/Antispam/Toolkit/Role/BerkeleyDB.pm view on Meta::CPAN
By default, it just stores the literal value. You can replace this method if
you want to do something different, like handle wildcard values.
=head2 $db->match_value($value)
This method looks up a value to see if it is stored in the database. By
default, it expects the value to match a key stored in the database.
=head1 ROLES
This role does the L<Antispam::Toolkit::Role::Database> role. It provides an
Any-Daemon-HTTP
view release on metacpan or search on metacpan
examples/apache.pl view on Meta::CPAN
, directory_list => 1
# , allow => '127.0.0.1/32'
}
, handlers => # Handlers run when no file is found
{ '/fake.cgi' => \&fake_cgi # looks like cgi, is internal function ;-)
, '/form/submit' => \&form_in # match all uri start with this
# , '/' => \&errors # overrule default error page
}
# , proxies =>
Any-Moose-Convert
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
if ( my $code = $sym->{$pwd} ) {
# Delegate back to parent dirs
goto &$code unless $cwd eq $pwd;
}
unless ($$sym =~ s/([^:]+)$//) {
# XXX: it looks like we can't retrieve the missing function
# via $$sym (usually $main::AUTOLOAD) in this case.
# I'm still wondering if we should slurp Makefile.PL to
# get some context or not ...
my ($package, $file, $line) = caller;
die <<"EOT";
Any-Renderer
view release on metacpan or search on metacpan
lib/Any/Renderer.pm view on Meta::CPAN
}
#Loads an Any::Renderer backend (safely)
sub _load_module {
my $file = shift;
die ("Backend module name $file looks dodgy - will not load") unless($file =~ /^[\w:]+$/); #Protect against code injection
my $module = "Any::Renderer::" . $file;
unless($INC{"Any/Renderer/$file.pm"}) {
TRACE ( "Loading renderer backend '" . $module . "'" );
eval "require " . $module;
( run in 0.746 second using v1.01-cache-2.11-cpan-64827b87656 )