view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
use File::Path ();
use vars qw{$VERSION $MAIN};
BEGIN {
# All Module::Install core packages now require synchronised versions.
# This will be used to ensure we don't accidentally load old or
# different versions of modules.
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
$VERSION = '1.06';
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
use File::Path ();
use vars qw{$VERSION $MAIN};
BEGIN {
# All Module::Install core packages now require synchronised versions.
# This will be used to ensure we don't accidentally load old or
# different versions of modules.
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
$VERSION = '1.14';
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache2/ModXml2.pm view on Meta::CPAN
filter init.
Every time $xpath matches &transform is called with the subtrees root
node as a parameter. The namespaces needed to compile the pattern
are passed as a list [URI, prefix, ...]. Be aware that these prefixes
are just aliases for pattern usage. They do not need to coincide with
the prefixes in the document.
=item xpath_filter
xpath_filter($f, $bb);
view all matches for this distribution
view release on metacpan or search on metacpan
property right claims or to contest validity of any such claims; this section has
the sole purpose of protecting the integrity of the free software distribution
system, which is implemented by public license practices. Many people have
made generous contributions to the wide range of software distributed through
that system in reliance on consistent application of that system; it is up to the
author/donor to decide if he or she is willing to distribute software through any
other system and a licensee cannot impose that choice.
This section is intended to make thoroughly clear what is believed to be a
consequence of the rest of this License.
view all matches for this distribution
view release on metacpan or search on metacpan
your response handlers. If possible use a BLOB type as "data"
column.
Although not used by the module it makes sense to add a 3rd column
to the table. It should be a timestamp column with the default
attribute set to "now()". Without it it's difficult to decide which
records can be deleted.
With a MySQL database a suitable table is created by:
create table p200 (
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
use strict 'vars';
use vars qw{$VERSION};
BEGIN {
# All Module::Install core packages now require synchronised versions.
# This will be used to ensure we don't accidentally load old or
# different versions of modules.
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
$VERSION = '0.77';
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache2/PageKit/View.pm view on Meta::CPAN
(my $page_id_dir = $page_id) =~ s![^/]*$!!;
$component_id = $page_id_dir . $component_id;
while ($component_id =~ s![^/]*/\.\./!!) {};
}
my $cid_key = join '', $component_id, sort %params;
unless ( $view->{component_ids_hash}->{$cid_key}++ ) {
push @{ $view->{component_ids} }, [ $component_id , \%params ];
}
# check for recursive pkit_components
if($view->{component_ids_hash}->{$cid_key} > 100){
die "Likely recursive PKIT_COMPONENTS for component_id $component_id and giving up.";
}
my $template_ref = $view->_load_component($page_id, $component_id, $pkit_view, \%params);
return $$template_ref;
view all matches for this distribution
view release on metacpan or search on metacpan
A README file is required for CPAN modules since CPAN extracts the
README file from a module distribution so that people browsing the
archive can use it get an idea of the modules uses. It is usually a
good idea to provide version information here so that people can
decide whether fixes for the module are worth downloading.
INSTALLATION
To install this module type the following:
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache2/REST/AppAuth.pm view on Meta::CPAN
=head2 authorize
Implement this to let the Application authentifier
decide if the application can access the API or not.
Please set resp->status() and resp->message() ;
Returns true if authorized. False otherwise.
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache2/Response/FileMerge.pm view on Meta::CPAN
=item mod_perl v1.x
This will only work as a mod_perl 2.x PerlResponseHandler. If there
is demand for 1.x, I will take the time to dynamically figure out
what the right moduels, API, etc to use will be. For now, being that
/I/ only use mod_perl 2.x, I have decided to not be overly clumsy
with the code to take into consideration a platform people may not use.
=item CPAN shell installation
The unit tests each require L<Apache::Test> to run. Yet, there are a
view all matches for this distribution
view release on metacpan or search on metacpan
A README file is required for CPAN modules since CPAN extracts the
README file from a module distribution so that people browsing the
archive can use it get an idea of the modules uses. It is usually a
good idea to provide version information here so that people can
decide whether fixes for the module are worth downloading.
INSTALLATION
To install this module type the following:
view all matches for this distribution
view release on metacpan or search on metacpan
that should be provided before the module is installed.
A README file is required for CPAN modules since CPAN extracts the README
file from a module distribution so that people browsing the archive
can use it get an idea of the modules uses. It is usually a good idea
to provide version information here so that people can decide whether
fixes for the module are worth downloading.
INSTALLATION
To install this module, run the following commands:
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache2/SSI/File/Type.pm view on Meta::CPAN
This is equivalent to option C<-c> of L<file(1)>.
=head2 check_magic
Set or gets the boolean value used to decide whether the magic data are checked.
=head2 data( $some_data )
Guess the mime type based upon the data provided with C<$some_data> and returns it.
lib/Apache2/SSI/File/Type.pm view on Meta::CPAN
# on the command line:
./my_script.pl 2>my_magic
=head2 error_returns_undef
Sets or gets the boolean value to decide whether this module will return a default value (see L</default_type>) or C<undef> when there is an error.
By default this is set to false, and the module will return a default value upon error.
=head2 file( '/some/file/path.txt' )
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Apache2/SiteControl.pm view on Meta::CPAN
eval($factory) or $r->log_error("Evaluation failed: $@");
return $managers{$name};
}
# This is the method that receives the login form data and decides if the
# user is allowed to log in.
sub authen_cred
{
my $this = shift; # Package name (same as AuthName directive)
my $r = shift; # Apache request object
view all matches for this distribution
view release on metacpan or search on metacpan
that should be provided before the module is installed.
A README file is required for CPAN modules since CPAN extracts the README
file from a module distribution so that people browsing the archive
can use it get an idea of the modules uses. It is usually a good idea
to provide version information here so that people can decide whether
fixes for the module are worth downloading.
INSTALLATION
To install this module, run the following commands:
view all matches for this distribution
view release on metacpan or search on metacpan
signals that the *Uri Translation Phase* is done and no further
handlers are to be called in this phase. The second alternative says
that subsequent handlers are to be called. Thus, "mod_alias" or the
core translation handler see the request.
Setting $RC your action decide what is returned.
$RC is also set by the "PerlHandler" action. Modperl generated
responses are normally not associated with a single file on disk.
$DEBUG
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
use File::Path ();
use vars qw{$VERSION $MAIN};
BEGIN {
# All Module::Install core packages now require synchronised versions.
# This will be used to ensure we don't accidentally load old or
# different versions of modules.
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
$VERSION = '1.06';
view all matches for this distribution
view release on metacpan or search on metacpan
8. Limitation of Liability. In no event and under no legal theory,
whether in tort (including negligence), contract, or otherwise,
unless required by applicable law (such as deliberate and grossly
negligent acts) or agreed to in writing, shall any Contributor be
liable to You for damages, including any direct, indirect, special,
incidental, or consequential damages of any character arising as a
result of this License or out of the use or inability to use the
Work (including but not limited to damages for loss of goodwill,
work stoppage, computer failure or malfunction, or any and all
other commercial damages or losses), even if such Contributor
has been advised of the possibility of such damages.
view all matches for this distribution
view release on metacpan or search on metacpan
src/ApacheBench.xs view on Meta::CPAN
** which is Copyright (c) 1996 by Zeus Technology Ltd. http://www.zeustech.net/
**
** This software is provided "as is" and any express or implied waranties,
** including but not limited to, the implied warranties of merchantability and
** fitness for a particular purpose are disclaimed. In no event shall
** Zeus Technology Ltd. be liable for any direct, indirect, incidental, special,
** exemplary, or consequential damaged (including, but not limited to,
** procurement of substitute good or services; loss of use, data, or profits;
** or business interruption) however caused and on theory of liability. Whether
** in contract, strict liability or tort (including negligence or otherwise)
** arising in any way out of the use of this software, even if advised of the
view all matches for this distribution
view release on metacpan or search on metacpan
bin/loghack view on Meta::CPAN
my $outfile = $outpath . $datestring . ".$hour$tzout.$chunk.tsv.gz";
push(@loaded, $outfile);
#warn "writing $outfile\n";
if(-e $outfile) {
# XXX how to decide whether to skip completely?
die "already have $outfile\n";
}
$chunk = 1; # from now on
if($skipper) { # TODO how to reset skipcount?
my $skipfile = skipfilename($opt, $outfile);
view all matches for this distribution
view release on metacpan or search on metacpan
that should be provided before the module is installed.
A README file is required for CPAN modules since CPAN extracts the README
file from a module distribution so that people browsing the archive
can use it to get an idea of the module's uses. It is usually a good idea
to provide version information here so that people can decide whether
fixes for the module are worth downloading.
INSTALLATION
view all matches for this distribution
view release on metacpan or search on metacpan
version or of any later version published by the Free Software
Foundation. If the Program does not specify a version number of the
GNU General Public License, you may choose any version ever published
by the Free Software Foundation.
If the Program specifies that a proxy can decide which future
versions of the GNU General Public License can be used, that proxy's
public statement of acceptance of a version permanently authorizes you
to choose that version for the Program.
Later license versions may give you additional or different
view all matches for this distribution
view release on metacpan or search on metacpan
script/acme-cpanauthors view on Meta::CPAN
#
## borrowed from PERLANCAR::File::HomeDir 0.04
#sub _get_my_home_dir {
# if ($^O eq 'MSWin32') {
# # File::HomeDir always uses exists($ENV{x}) first, does it want to avoid
# # accidentally creating env vars?
# return $ENV{HOME} if $ENV{HOME};
# return $ENV{USERPROFILE} if $ENV{USERPROFILE};
# return join($ENV{HOMEDRIVE}, "\\", $ENV{HOMEPATH})
# if $ENV{HOMEDRIVE} && $ENV{HOMEPATH};
# } else {
script/acme-cpanauthors view on Meta::CPAN
#
## from PERLANCAR::File::HomeDir 0.03, with minor modification
#sub _get_my_home_dir {
# if ($^O eq 'MSWin32') {
# # File::HomeDir always uses exists($ENV{x}) first, does it want to avoid
# # accidentally creating env vars?
# return $ENV{HOME} if $ENV{HOME};
# return $ENV{USERPROFILE} if $ENV{USERPROFILE};
# return join($ENV{HOMEDRIVE}, "\\", $ENV{HOMEPATH})
# if $ENV{HOMEDRIVE} && $ENV{HOMEPATH};
# } else {
script/acme-cpanauthors view on Meta::CPAN
#(with C<backend> set to the value of this environment variable) instead of the
#default L<Text::Table::Sprintf>. This is useful if you want to output text table
#in a different format, for example to generate Org tables (make sure
#L<Text::Table::Org> backend is already installed):
#
# % FORMAT_PRETTY_TABLE_BACKEND=Text::Table::Org lcpan rdeps Getopt::Lucid
#
#For convenience, a default is chosen for you under certain condition. When
#inside Emacs (environment C<INSIDE_EMACS> is set), C<Text::Table::Org> is used
#as default.
#
view all matches for this distribution
view release on metacpan or search on metacpan
version or of any later version published by the Free Software
Foundation. If the Program does not specify a version number of the
GNU General Public License, you may choose any version ever published
by the Free Software Foundation.
If the Program specifies that a proxy can decide which future
versions of the GNU General Public License can be used, that proxy's
public statement of acceptance of a version permanently authorizes you
to choose that version for the Program.
Later license versions may give you additional or different
view all matches for this distribution
view release on metacpan or search on metacpan
lib/App/AdditivesUtils.pm view on Meta::CPAN
args => {
%args_common,
},
examples => [
{args=>{quantity=>'ppm'}, summary=>'Show all possible conversions'},
{args=>{quantity=>'250 ppm', to_unit=>'ppm-as-benzoic-acid'}, summary=>'Convert from ppm (as sodium benzoate) to ppm (as benzoic acid)'},
],
};
sub convert_benzoate_unit {
require Physics::Unit;
Physics::Unit::InitUnit(
['ppm'], '1 mg/kg',
['ppm-as-benzoic-acid'], '1.18006878480183 mg/kg', # benzoic acid's molecular weight = 122.12, sodium benzoate's molecular weight = 144.11
['ppm-as-sodium-benzoate'], '1 mg/kg',
['ppm-as-na-benzoate'], '1 mg/kg',
['ppm-as-potassium-benzoate'], '0.899506897197428 mg/kg', # potassium benzoate's molecular weight = 160.21
['ppm-as-k-benzoate'], '0.959326321395287 mg/kg',
['ppm-as-calcium-benzoate'], '1.02093443377847 mg/kg', # calcium benzoate's molecular weight = 282.31 (2 benzoate groups per molecule)
lib/App/AdditivesUtils.pm view on Meta::CPAN
return [200, "OK", $new_amount];
} else {
my @rows;
for my $u (
'ppm',
'ppm-as-benzoic-acid',
'ppm-as-sodium-benzoate',
'ppm-as-na-benzoate',
'ppm-as-potassium-benzoate',
'ppm-as-k-benzoate',
'ppm-as-calcium-benzoate',
lib/App/AdditivesUtils.pm view on Meta::CPAN
[
200,
"OK",
[
{ amount => 1, unit => "ppm" },
{ amount => 0.847408229824443, unit => "ppm-as-benzoic-acid" },
{ amount => 1, unit => "ppm-as-sodium-benzoate" },
{ amount => 1, unit => "ppm-as-na-benzoate" },
{ amount => 1.11172021372563, unit => "ppm-as-potassium-benzoate" },
{ amount => 1.04239816806606, unit => "ppm-as-k-benzoate" },
{ amount => 0.979494830337937, unit => "ppm-as-calcium-benzoate" },
{ amount => 0.979494830337937, unit => "ppm-as-ca-benzoate" },
],
{},
]
=item * Convert from ppm (as sodium benzoate) to ppm (as benzoic acid):
convert_benzoate_unit(quantity => "250 ppm", to_unit => "ppm-as-benzoic-acid");
Result:
[200, "OK", 211.852057456111, {}]
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
use File::Path ();
use vars qw{$VERSION $MAIN};
BEGIN {
# All Module::Install core packages now require synchronised versions.
# This will be used to ensure we don't accidentally load old or
# different versions of modules.
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
$VERSION = '1.00';
view all matches for this distribution
view release on metacpan or search on metacpan
t/sql/sakila-data.sql view on Meta::CPAN
--
-- Dumping data for table address
--
SET AUTOCOMMIT=0;
INSERT INTO address VALUES (1,'47 MySakila Drive',NULL,'Alberta',300,'','','2006-02-15 04:45:30'),(2,'28 MySQL Boulevard',NULL,'QLD',576,'','','2006-02-15 04:45:30'),(3,'23 Workhaven Lane',NULL,'Alberta',300,'','14033335568','2006-02-15 04:45:30'),(4...
COMMIT;
--
-- Dumping data for table category
--
t/sql/sakila-data.sql view on Meta::CPAN
--
-- Dumping data for table city
--
SET AUTOCOMMIT=0;
INSERT INTO city VALUES (1,'A Corua (La Corua)',87,'2006-02-15 04:45:25'),(2,'Abha',82,'2006-02-15 04:45:25'),(3,'Abu Dhabi',101,'2006-02-15 04:45:25'),(4,'Acua',60,'2006-02-15 04:45:25'),(5,'Adana',97,'2006-02-15 04:45:25'),(6,'Addis Abeba',31,'2006...
COMMIT;
--
-- Dumping data for table country
--
view all matches for this distribution
view release on metacpan or search on metacpan
inc/Module/Install.pm view on Meta::CPAN
use File::Path ();
use vars qw{$VERSION $MAIN};
BEGIN {
# All Module::Install core packages now require synchronised versions.
# This will be used to ensure we don't accidentally load old or
# different versions of modules.
# This is not enforced yet, but will be some time in the next few
# releases once we can make sure it won't clash with custom
# Module::Install extensions.
$VERSION = '1.19';
view all matches for this distribution
view release on metacpan or search on metacpan
version or of any later version published by the Free Software
Foundation. If the Program does not specify a version number of the
GNU Affero General Public License, you may choose any version ever published
by the Free Software Foundation.
If the Program specifies that a proxy can decide which future
versions of the GNU Affero General Public License can be used, that proxy's
public statement of acceptance of a version permanently authorizes you
to choose that version for the Program.
Later license versions may give you additional or different
view all matches for this distribution
view release on metacpan or search on metacpan
- new connection should connect new connectors
=> we need to know who we are connecting to
=> or this could be done by the asciio object
- asciio asks the box to add a connection
this let ascioo decide where they should be placed instead for
deciding it's around the box
- the user can add connectors with the same mechanism
- the connector must be handled when resizing the box object
by the box object or by the connector itself
#Box added via 'B' shortcut should be selected
#script using cononize_connection doesn't work, path was changed
#make a script library
!update_diagram should be called when running in script mode
let the script writer decide if they want "optimized" connections or not
# proper setup structure
#editable arrow has connections!! use resize/info/highlight points instead
view all matches for this distribution