Result:
found more than 949 distributions - search limited to the first 2001 files matching your query
( run in 2.167 )
Perl-Dist-Strawberry-BuildPerl-5123
view release on metacpan or search on metacpan
share/win32/config.gc.tt view on Meta::CPAN
usenm='false'
useopcode='true'
useperlio='undef'
useposix='true'
usereentrant='undef'
userelocatableinc='undef'
usesfio='false'
useshrplib='true'
usesitecustomize='undef'
usesocks='undef'
usethreads='undef'
Perl-Dist-WiX-BuildPerl-5123
view release on metacpan or search on metacpan
share-5123/default/win32/config.gc.tt view on Meta::CPAN
usenm='false'
useopcode='true'
useperlio='undef'
useposix='true'
usereentrant='undef'
userelocatableinc='undef'
usesfio='false'
useshrplib='true'
usesitecustomize='undef'
usesocks='undef'
usethreads='undef'
Perl-Dist-WiX
view release on metacpan or search on metacpan
lib/Perl/Dist/WiX.pm view on Meta::CPAN
=head3 Types of distributions to build
This specifies the "highest" level of change in how the perl distribution is
made - whether a .zip is requested, a .msi, a "thumb-drive portable" .zip, or
a relocatable .msi or .zip.
=head4 msi
The optional boolean C<msi> param is used to indicate that a Windows
Installer distribution package (otherwise known as an msi file) should
lib/Perl/Dist/WiX.pm view on Meta::CPAN
default => 0,
);
=head4 relocatable
The optional C<relocatable> parameter is used to determine whether the
distribution is meant to be relocatable.
This defaults to a false value.
=cut
has 'relocatable' => (
is => 'ro',
isa => Bool,
default => 0,
);
lib/Perl/Dist/WiX.pm view on Meta::CPAN
'verify_msi_file_contents',
# Apply optional portability support
'install_portable',
# Apply optional relocation support
'install_relocatable',
# Remove waste and temporary files
'remove_waste',
# Regenerate file fragments
'regenerate_fragments',
# Find file ID's for relocation.
'find_relocatable_fields',
# Write out the merge module
'write_merge_module',
# Install the Win32 extras
lib/Perl/Dist/WiX.pm view on Meta::CPAN
'verify_msi_file_contents',
# Apply optional portability support
'install_portable',
# Apply optional relocation support
'install_relocatable',
# Remove waste and temporary files
'remove_waste',
# Regenerate file fragments
'regenerate_fragments',
# Find file ID's for relocation.
'find_relocatable_fields',
# Write out the merge module
'write_merge_module',
# Install the Win32 extras
lib/Perl/Dist/WiX.pm view on Meta::CPAN
=head4 msi_install_warning_text
Returns the text that the MSI needs to use when not able to relocate.
=cut
has 'msi_install_warning_text' => (
is => 'ro',
lib/Perl/Dist/WiX.pm view on Meta::CPAN
default => 0,
);
=head4 use_dll_relocation
The optional C<use_dll_relocation> parameter specifies whether to use the
C++ relocation dll that's being tested for relocating perl, or to call a
Perl relocation script from the .msi's.
This parameter has no effect is the C<msi> parameter is false, or if the
C<relocatable> parameter is false.
If this variable is false, the Perl relocation script is used instead.
(The default is true.)
=cut
has 'use_dll_relocation' => (
is => 'ro',
isa => Bool,
default => 1,
);
lib/Perl/Dist/WiX.pm view on Meta::CPAN
These parameters specify which directories and files are used when building
a distribution.
At a minimum, L<image_dir|/image_dir> is required, which specifies where Perl
will be installed (by default, in the case where L<relocatable|/relocatable>
is true.) All other options have defaults, most of the time.
=head4 binary_root
The optional C<binary_root> accessor is the URL (as a string, not including
lib/Perl/Dist/WiX.pm view on Meta::CPAN
already exists at object creation time. Trying to build a Perl
distribution on the SAME distribution can thus have devastating
results, and an attempt is made to prevent this from happening.
Perl::Dist::WiX distributions can only be installed to fixed paths
as of yet, unless C<relocatable()|/relocatable> is true.
To facilitate a correctly working CPAN setup, the files that will
ultimately end up in the installer must also be assembled under the
same (default, in the C<relocatable> case) path on the author's machine.
=cut
has 'image_dir' => (
is => 'ro',
lib/Perl/Dist/WiX.pm view on Meta::CPAN
The next 5 options specify the information required to use a merge module.
=head4 fileid_perl
The optional C<fileid_perl> parameter helps the relocation find the perl
executable.
If the merge module is being built, this is set by the
L<install_relocatable|/install_relocatable> method.
If the merge module is being used, it needs to be passed in to new().
=head4 fileid_perl_h
lib/Perl/Dist/WiX.pm view on Meta::CPAN
my $self = shift;
my $perl_id = $self->fileid_perl();
return q{[#} . $perl_id . q{]};
}
=head4 fileid_relocation_pl
The optional C<fileid_relocation_pl> parameter helps the relocation find
the relocation script.
If the merge module is being built, this is set by the
L<install_relocatable|/install_relocatable> method.
If the merge module is being used, it needs to be passed in to new().
=head4 fileid_relocation_pl_h
TODO
=cut
has 'fileid_relocation_pl' => (
is => 'ro',
isa => Str,
writer => '_set_fileid_relocation_pl',
default => q{},
);
sub fileid_relocation_pl_h {
my $self = shift;
my $script_id = $self->fileid_relocation_pl();
return q{[#} . $script_id . q{]};
}
=head4 msm_code
lib/Perl/Dist/WiX.pm view on Meta::CPAN
# Check for architectures that we can't build 64-bit on.
if ( 64 == $self->bits() ) {
$self->_check_64_bit();
}
if ( $self->use_dll_relocation()
and $self->relocatable()
and not $self->can('msm_relocation_idlist') )
{
PDWiX::Parameter->throw(
parameter => 'use_dll_relocation: Cannot use DLL relocation'
. ' without a relocation file id being available '
. '(set this parameter to 0)',
where => '->final_initialization',
);
}
lib/Perl/Dist/WiX.pm view on Meta::CPAN
return 1;
} ## end sub install_portable
=head3 install_relocatable
The C<install_relocatable> method is used by C<run> to install the perl
script to make Perl relocatable when installed.
This routine must be run before L</regenerate_fragments>, so that the
fragment created in this method is regenerated and the file ID can
be found by L</find_relocatable_fields> later.
=cut
# Relocatability support must be added before writing the merge module
sub install_relocatable {
my $self = shift;
return 1 if not $self->relocatable();
# Copy the relocation information in.
$self->copy_file( catfile( $self->wix_dist_dir(), 'relocation.pl.bat' ),
$self->image_dir() );
# Make sure it gets installed.
$self->insert_fragment(
'relocation_script',
File::List::Object->new()
->add_file( $self->file('relocation.pl.bat') ),
);
return 1;
} ## end sub install_relocatable
=head3 find_relocatable_fields
The C<find_relocatable_fields> method is used by C<run> to find the
property ID's required to make Perl relocatable when installed.
This routine must be run after L<regenerate_fragments()|/regenerate_fragments>.
=cut
# Relocatability support must be added before writing the merge module
sub find_relocatable_fields {
my $self = shift;
return 1 if $self->portable();
# Set the fileid attributes.
lib/Perl/Dist/WiX.pm view on Meta::CPAN
PDWiX->throw("Could not find perl.exe's ID.\n");
}
$self->_set_fileid_perl($perl_id);
$self->trace_line( 2, "File ID for perl.exe: $perl_id\n" );
return 1 if not $self->relocatable();
my $script_id =
$self->get_fragment_object('relocation_script')
->find_file_id( $self->file('relocation.pl.bat') );
if ( not $script_id ) {
PDWiX->throw("Could not find relocation.pl.bat's ID.\n");
}
$self->_set_fileid_relocation_pl($script_id);
$self->trace_line( 2, "File ID for relocation.pl.bat: $script_id\n" );
return 1;
} ## end sub find_relocatable_fields
=head3 install_win32_extras
lib/Perl/Dist/WiX.pm view on Meta::CPAN
}
# Write out the .wxs file
my $content = $self->process_template(
'Main.wxs.tt',
fileid_relocation_pl_h => $self->fileid_relocation_pl_h(),
fileid_perl_h => $self->fileid_perl_h(),
propertylist => $self->_get_msi_property_list(),
);
$content =~ s{\r\n}{\n}msg; # CRLF -> LF
$filename_in =
lib/Perl/Dist/WiX.pm view on Meta::CPAN
'Read README file.' );
$list->add_simple_property( 'WIXUI_EXITDIALOGOPTIONALCHECKBOX', 1 );
$list->add_simple_property( 'WixShellExecTarget',
$self->msi_fileid_readme_txt() );
}
if ( $self->relocatable() ) {
$list->add_simple_property( 'WIXUI_INSTALLDIR', 'INSTALLDIR' );
}
if ( defined $self->msi_banner_top() ) {
$list->add_wixvariable( 'WixUIBannerBmp', $self->msi_banner_top() );
}
lib/Perl/Dist/WiX.pm view on Meta::CPAN
# Generate feature tree.
$self->_set_feature_tree_object(
Perl::Dist::WiX::FeatureTree->new( parent => $self, ) );
my $commandline = q{};
if ( $self->relocatable() ) {
$commandline = $self->msm_relocation_commandline();
}
# Write out the .wxs file
my $content = $self->process_template(
'Merge-Module.wxs.tt',
fileid_relocation_pl_h => $self->fileid_relocation_pl_h(),
fileid_perl_h => $self->fileid_perl_h(),
msm_relocation_commandline => $commandline,
);
$content =~ s{\r\n}{\n}msg; # CRLF -> LF
$filename_in =
catfile( $self->fragment_dir, $self->app_name . q{.wxs} );
lib/Perl/Dist/WiX.pm view on Meta::CPAN
sub msi_ui_type {
my $self = shift;
if ( defined $self->msi_feature_tree() ) {
return 'FeatureTree';
} elsif ( $self->relocatable() ) {
return 'MyInstallDir';
} else {
return 'MyInstall';
}
}
lib/Perl/Dist/WiX.pm view on Meta::CPAN
return join q{.}, @ver;
} ## end sub msi_perl_major_version
=head3 msi_relocation_commandline
Returns a command line to use in Main.wxs.tt for relocation purposes.
=cut
# For template.
sub msi_relocation_commandline {
my $self = shift;
my $answer;
my %files = $self->msi_relocation_commandline_files();
my ( $fragment, $file, $id );
while ( ( $fragment, $file ) = each %files ) {
$id = $self->get_fragment_object($fragment)->find_file_id($file);
if ( not defined $id ) {
lib/Perl/Dist/WiX.pm view on Meta::CPAN
}
$answer .= " --file [#$id]";
}
return $answer;
} ## end sub msi_relocation_commandline
=head3 msm_relocation_commandline
Returns a command line to use in Merge-Module.wxs.tt for relocation purposes.
=cut
# For template.
sub msm_relocation_commandline {
my $self = shift;
my $answer;
my %files = $self->msm_relocation_commandline_files();
my ( $fragment, $file, $id );
while ( ( $fragment, $file ) = each %files ) {
$id = $self->get_fragment_object($fragment)->find_file_id($file);
if ( not defined $id ) {
lib/Perl/Dist/WiX.pm view on Meta::CPAN
}
$answer .= " --file [#$id]";
}
return $answer;
} ## end sub msm_relocation_commandline
=head3 msi_relocation_commandline_files
Returns the files to use in Main.wxs.tt for relocation purposes.
This is overridden in subclasses, and creates an exception if not overridden.
=cut
# For template.
sub msi_relocation_commandline_files {
my $self = shift;
PDWiX::Unimplemented->throw();
return;
}
=head3 msm_relocation_commandline_files
Returns the files to use in Merge-Module.wxs.tt for relocation purposes.
This is overridden in subclasses, and creates an exception if not overridden.
=cut
# For template.
sub msm_relocation_commandline_files {
my $self = shift;
PDWiX::Unimplemented->throw();
return;
}
=head3 msi_relocation_ca
Returns which CA to use in Main.wxs.tt and Merge-Module.wxs.tt for relocation
purposes.
=cut
sub msi_relocation_ca {
my $self = shift;
return ( 64 == $self->bits() ) ? 'CAQuietExec64' : 'CAQuietExec';
}
Perl-RPM
view release on metacpan or search on metacpan
RPM/Constants.pm view on Meta::CPAN
information) fails. May be due either to bad data in that part, or an I/O
failure in reading the data itself.
=item RPMERR_BADRELOCATE
An error with the relocation specifications in the spec file.
=item RPMERR_BADSIGTYPE
Signals that an older, obsoleted style of signature was detected.
RPM/Constants.pm view on Meta::CPAN
A group specified for file group-ownership was not found in the list of groups
on the system. The group C<root> will be used instead.
=item RPMERR_NORELOCATE
An attempt was made to relocate a package that is not relocatable.
=item RPMERR_NOSPACE
An attempt to write a package file failed for lack of available disk space.
Perl-Repository-APC
view release on metacpan or search on metacpan
dangerous
2007-09-09 k
* stop linking empty files
* start using relocatableinc
2007-08-12 k
* Property set for release after_258
* preparing a release
* trial and error whats going on with make release
* Property set for release after_183
* trial and error whats going on with make release
* Property set for release after_181
* trial and error whats going on with make release; adding
eg/relocate-perl.pl
* Property set for release after_179
* how crazy to find a bug immediately after uploading
* Property set for release after_177
* typo in release target
* Property set for release after_175
Perl6-Pugs
view release on metacpan or search on metacpan
* Support definition and invocation of subs with namespaces
== Tests, Examples and Documentations
* Many new tests: we have around 3850 now
* `modules/` have been relocated to FreePAN. See `modules/README`
* `t/Synopsis/` have been relocated to `Perl6::Bible` on CPAN
* HTML generated by testgraph now responds to mouseover
* New autosmoker script added
* Many cross-referencer improvements
* Normalize all `t/` to begin with `#!/usr/bin/pugs`
* `VICTUALS` file added on April Fools
PerlBuildSystem
view release on metacpan or search on metacpan
PBS/Depend.pm view on Meta::CPAN
{
$sub_pbs_name_stem = $1
}
}
my $relocated_subpbs ;
if(defined $sub_pbs_name_stem)
{
if($pbs_config->{DISPLAY_SUBPBS_SEARCH_INFO})
{
PrintInfo "Found stem '$sub_pbs_name_stem'.\n" ;
}
for my $source_directory (@$source_directories)
{
my $relocated_from_stem = PBS::PBSConfig::CollapsePath("$source_directory/$sub_pbs_name_stem") ;
if(-e $relocated_from_stem)
{
unless($relocated_subpbs)
{
$relocated_subpbs = $relocated_from_stem ;
if($relocated_from_stem ne $found_pbsfile)
{
PrintWarning2("Relocated '$sub_pbs_name_stem' in '$source_directory' $info.\n") ;
}
else
{
PBS/Depend.pm view on Meta::CPAN
}
else
{
if($pbs_config->{DISPLAY_SUBPBS_SEARCH_INFO})
{
PrintInfo "Ignoring relocation of '$sub_pbs_name_stem' in '$source_directory' $info.\n" ;
}
}
}
else
{
if($pbs_config->{DISPLAY_SUBPBS_SEARCH_INFO})
{
PrintInfo "Couldn't relocate '$sub_pbs_name_stem' in '$source_directory' $info.\n" ;
}
}
}
}
$sub_pbs_name = $relocated_subpbs || $found_pbsfile || $sub_pbs_name;
}
return($sub_pbs_name) ;
}
PerlIO-Layers
view release on metacpan or search on metacpan
lib/PerlIO/ppport.h view on Meta::CPAN
malloced_size|||n
malloc||5.007002|n
markstack_grow||5.021001|
matcher_matches_sv|||
maybe_multimagic_gv|||
mayberelocate|||
measure_struct|||
memEQs|5.009005||p
memEQ|5.004000||p
memNEs|5.009005||p
memNE|5.004000||p
lib/PerlIO/ppport.h view on Meta::CPAN
op_null||5.007002|
op_parent|||n
op_prepend_elem||5.013006|
op_refcnt_lock||5.009002|
op_refcnt_unlock||5.009002|
op_relocate_sv|||
op_sibling_splice||5.021002|n
op_std_init|||
open_script|||
openn_cleanup|||
openn_setup|||
PerlIO-bom
view release on metacpan or search on metacpan
lib/Linux/ppport.h view on Meta::CPAN
MAX_UTF8_TWO_BYTE|5.019004||Viu
MAYBE_DEREF_GV|5.015003||Viu
MAYBE_DEREF_GV_flags|5.015003||Viu
MAYBE_DEREF_GV_nomg|5.015003||Viu
maybe_multimagic_gv|5.019004||Viu
mayberelocate|5.015006||Viu
MBOL|5.003007||Viu
MDEREF_ACTION_MASK|5.021007||Viu
MDEREF_AV_gvav_aelem|5.021007||Viu
MDEREF_AV_gvsv_vivify_rv2av_aelem|5.021007||Viu
MDEREF_AV_padav_aelem|5.021007||Viu
lib/Linux/ppport.h view on Meta::CPAN
op_refcnt_lock|5.009002|5.009002|u
OpREFCNT_set|5.006000||Viu
OP_REFCNT_TERM|5.006000||Viu
OP_REFCNT_UNLOCK|5.006000||Viu
op_refcnt_unlock|5.009002|5.009002|u
op_relocate_sv|5.021005||Viu
op_scope|5.013007|5.013007|x
OP_SIBLING|5.021002||Viu
OpSIBLING|5.021007|5.003007|p
op_sibling_splice|5.021002|5.021002|n
OpSLAB|5.017002||Viu
PerlIO-normalize
view release on metacpan or search on metacpan
malloced_size|||n
malloc||5.007002|n
markstack_grow||5.021001|
matcher_matches_sv|||
maybe_multimagic_gv|||
mayberelocate|||
measure_struct|||
memEQs|5.009005||p
memEQ|5.004000||p
memNEs|5.009005||p
memNE|5.004000||p
op_prepend_elem||5.013006|
op_refcnt_dec|||
op_refcnt_inc|||
op_refcnt_lock||5.009002|
op_refcnt_unlock||5.009002|
op_relocate_sv|||
op_scope||5.013007|
op_sibling_splice||5.021002|n
op_std_init|||
op_unscope|||
open_script|||
PerlIO-utf8_strict
view release on metacpan or search on metacpan
MAX_UTF8_TWO_BYTE|5.019004||Viu
MAYBE_DEREF_GV|5.015003||Viu
MAYBE_DEREF_GV_flags|5.015003||Viu
MAYBE_DEREF_GV_nomg|5.015003||Viu
maybe_multimagic_gv|5.019004||Viu
mayberelocate|5.015006||Viu
MBLEN_LOCK|5.033005||Viu
MBLEN_UNLOCK|5.033005||Viu
MBOL|5.003007||Viu
MBOL_t8|5.035004||Viu
MBOL_t8_p8|5.033003||Viu
op_refcnt_lock|5.009002|5.009002|u
OpREFCNT_set|5.006000||Viu
OP_REFCNT_TERM|5.006000||Viu
OP_REFCNT_UNLOCK|5.006000||Viu
op_refcnt_unlock|5.009002|5.009002|u
op_relocate_sv|5.021005||Viu
op_scope|5.013007|5.013007|x
OP_SIBLING|5.021002||Viu
OpSIBLING|5.021007|5.003007|p
op_sibling_splice|5.021002|5.021002|n
OpSLAB|5.017002||Viu
PerlIO-win32console
view release on metacpan or search on metacpan
MAX_UTF8_TWO_BYTE|5.019004||Viu
MAYBE_DEREF_GV|5.015003||Viu
MAYBE_DEREF_GV_flags|5.015003||Viu
MAYBE_DEREF_GV_nomg|5.015003||Viu
maybe_multimagic_gv|5.019004||Viu
mayberelocate|5.015006||Viu
MBLEN_LOCK|5.033005||Viu
MBLEN_UNLOCK|5.033005||Viu
MBOL|5.003007||Viu
MBOL_t8|5.035004||Viu
MBOL_t8_p8|5.033003||Viu
op_refcnt_lock|5.009002|5.009002|u
OpREFCNT_set|5.006000||Viu
OP_REFCNT_TERM|5.006000||Viu
OP_REFCNT_UNLOCK|5.006000||Viu
op_refcnt_unlock|5.009002|5.009002|u
op_relocate_sv|5.021005||Viu
op_scope|5.013007|5.013007|x
OP_SIBLING|5.021002||Viu
OpSIBLING|5.021007|5.003007|p
op_sibling_splice|5.021002|5.021002|n
OpSLAB|5.017002||Viu
PerlPowerTools
view release on metacpan or search on metacpan
if ( !defined($idx) ) { $putpos = @$pNames; }
# remove from current position
@{ $pNames->[ $pAr->{$name}[0] ] } = grep( !/^$name$/, @{ $pNames->[ $pAr->{$name}[0] ] } );
# relocate to $putpos
$pAr->{$name}[0] = $putpos;
push( @{ $pNames->[$putpos] }, $name );
print "m - $name\n" if $opt_v;
}
elsif ($opt_p) {
PerlQt
view release on metacpan or search on metacpan
use Text::Wrap;
my $test_text =
"This script demonstrates a bug in Text::Wrap. The very long line
following this paragraph will be relocated relative to the surrounding
text:
====================================================================
See? When the bug happens, we'll get the line of equal signs below
PersistentPerl
view release on metacpan or search on metacpan
util/build_package view on Meta::CPAN
END
apache_update_file
cat <<-'END'
# Get relocated module
MODULE_DST=`echo $MODULE_DST | sed "s|^${PREFIX}|${BASEDIR}|"`
if test -w ${HTTPD_CONF}; then
(
grep -v '^[^#].*Module.*mod_persistentperl.*' ${HTTPD_CONF}
echo "LoadModule persistentperl_module $MODULE_DST"
Pgreet
view release on metacpan or search on metacpan
Pgreet/I18N/fr_fr.pm view on Meta::CPAN
=> "Le logiciel Penguin Greetings a rencontré une erreur preservant l\'information ecrite par l\'utilisateur. Contactez l\'operateur de cet ordinateur d\'Internet s'il vous plait.",
'Missing Penguin Greetings site'
=> 'Site de cartes de voeux absent',
"You are attempting to access a Penguin Greetings e-card site that either no longer exists on this server or has been relocated."
=> "Vous essayez d'acceder a une site de cartes de voeux que n'existe plus sur ce serveur ou a ete deplace.",
'Misconfigured Secondary Penguin Greetings site'
=> 'Erreur de configuration d\'une site de cartes secondaire',
PkgConfig-LibPkgConf
view release on metacpan or search on metacpan
lib/PkgConfig/LibPkgConf/Util.pm view on Meta::CPAN
use warnings;
use base qw( Exporter );
use PkgConfig::LibPkgConf::XS;
our $VERSION = '0.11';
our @EXPORT_OK = qw( argv_split compare_version path_sep path_relocate );
=head1 NAME
PkgConfig::LibPkgConf::Util - Non OO functions for PkgConfig::LibPkgConf
lib/PkgConfig/LibPkgConf/Util.pm view on Meta::CPAN
Compare versions using RPM version comparison rules as described in the LSB.
Returns -1 if the first version is greater, 0 if both versions are equal,
1 if the second version is greater.
=head2 path_relocate
my $path = path_relocate($path);
Relocates a path, possibly calling realpath() or cygwin_conv_path() on it.
=head2 path_sep
Plack-App-MCCS
view release on metacpan or search on metacpan
local/lib/perl5/Dist/Zilla/Role/FileFinder.pm view on Meta::CPAN
#pod Another plugin that knows how to use FileFinder plugins might be configured
#pod like this:
#pod
#pod [ModuleRelocator]
#pod finder = RootModules
#pod relocate_to = attic
#pod
#pod Finders may operate on any rules they like, checking file size, content, name,
#pod or other properties. They should re-perform their "finding" on each call to
#pod C<find_files> as the files in the distribution may have changed.
#pod
local/lib/perl5/Dist/Zilla/Role/FileFinder.pm view on Meta::CPAN
Another plugin that knows how to use FileFinder plugins might be configured
like this:
[ModuleRelocator]
finder = RootModules
relocate_to = attic
Finders may operate on any rules they like, checking file size, content, name,
or other properties. They should re-perform their "finding" on each call to
C<find_files> as the files in the distribution may have changed.
Plack-Middleware-Image-Scale
view release on metacpan or search on metacpan
lib/Plack/Middleware/Image/Scale.pm view on Meta::CPAN
L<Undef|Moose::Util::TypeConstraints/Default_Type_Constraints>.
The L<PATH_INFO|PSGI/The_Environment> is compared against this value to
evaluate if the request should be processed. Undef (the default) will match
always. C<PATH_INFO> is topicalized by settings it to C<$_>, and it may be
rewritten during C<CodeRef> matching. Rewriting can be used to relocate image
paths, much like C<path> parameter for L<Plack::Middleware::Static>.
If path matches, next it will be compared against L</name>. If path doesn't
match, the request will be delegated to the next middleware layer or
application.
Plack
view release on metacpan or search on metacpan
lib/Plack/App/URLMap.pm view on Meta::CPAN
paths.
=head1 HOW THIS WORKS
This application works by I<fixing> C<SCRIPT_NAME> and C<PATH_INFO>
before dispatching the incoming request to the relocated
applications.
Say you have a Wiki application that takes C</index> and C</page/*>
and makes a PSGI application C<$wiki_app> out of it, using one of
supported web frameworks, you can put the whole application under
Plate
view release on metacpan or search on metacpan
MAX_UTF8_TWO_BYTE|5.019004||Viu
MAYBE_DEREF_GV|5.015003||Viu
MAYBE_DEREF_GV_flags|5.015003||Viu
MAYBE_DEREF_GV_nomg|5.015003||Viu
maybe_multimagic_gv|5.019004||Viu
mayberelocate|5.015006||Viu
MBLEN_LOCK|5.033005||Viu
MBLEN_UNLOCK|5.033005||Viu
MBOL|5.003007||Viu
MBOL_t8_p8|5.033003||Viu
MBOL_t8_pb|5.033003||Viu
op_refcnt_lock|5.009002|5.009002|u
OpREFCNT_set|5.006000||Viu
OP_REFCNT_TERM|5.006000||Viu
OP_REFCNT_UNLOCK|5.006000||Viu
op_refcnt_unlock|5.009002|5.009002|u
op_relocate_sv|5.021005||Viu
op_scope|5.013007|5.013007|x
OP_SIBLING|5.021002||Viu
OpSIBLING|5.021007|5.003007|p
op_sibling_splice|5.021002|5.021002|n
OpSLAB|5.017002||Viu
Pod-Abstract
view release on metacpan or search on metacpan
lib/Pod/Abstract/Tree.pm view on Meta::CPAN
=head2 unshift
Remove the first node from the node list and return it.
Unshift takes linear time - it has to relocate every other element in
id_map so that they stay in line.
=cut
sub unshift {
Pod-L10N
view release on metacpan or search on metacpan
lib/Pod/L10N/Html/Util.pm view on Meta::CPAN
B<Note:> While these functions are importable on request from
F<Pod::Html::Util>, they are specifically intended for use within (a) the
F<Pod-Html> distribution (modules and test programs) shipped as part of the
Perl 5 core and (b) other parts of the core such as the F<installhtml>
program. These functions may be modified or relocated within the core
distribution -- or removed entirely therefrom -- as the core's needs evolve.
Hence, you should not rely on these functions in situations other than those
just described.
=cut
Pod-Parser
view release on metacpan or search on metacpan
+ CPAN#52086: mismatch between distro and module version:
same as above
+ CPAN#55121: correction for Pod::Find and t/pod/find.t on VMS
+ CPAN#47473: podchecker on L<> url with alt text
... causes an error in Pod::Checker now
+ CPAN#57954: Pod::Usage does not find perldoc when perl is relocatable
... use $Config{scriptdirexp} instead of scriptdir
+ CPAN#61223: podchecker notice missing blank line before command
implemented with more tests in poderrs.t and self test of all *.pms
+ CPAN#66614: parse of no final newline vs perl -w
... a rare case, but fixed nevertheless
Pod-Server
view release on metacpan or search on metacpan
lib/Pod/Server.pm view on Meta::CPAN
How to embed Pod::Server into a Catalyst app:
use Pod::Server 'On::Catalyst';
Pod::Server->init;
Pod::Server->relocate('/pod');
$Pod::Simple::HTML::Perldoc_URL_Prefix = '/pod/';
sub pod : Local { Pod::Server->catalyze($_[1]) }
=head1 DESCRIPTION
Poet
view release on metacpan or search on metacpan
lib/Poet/Manual/Intro.pod view on Meta::CPAN
=back
=head2 Relocatable environments
Ideally your environment will be I<relocatable> -- if you move your environment
to a different root, or checkout a second copy of it in a different root,
things should just work.
To achieve this you should never refer to exact environment directory paths in
your code; instead you'll call Poet methods that return them. e.g. instead of
Pragmatic
view release on metacpan or search on metacpan
lib/Pragmatic.pm view on Meta::CPAN
return $package->export_to_level (1, $package, @_)
if $package eq __PACKAGE__;
my $warn = sub (;$) {
require Carp;
local $Carp::CarpLevel = 2; # relocate to calling package
Carp::carp (@_);
};
my $die = sub (;$) {
require Carp;
local $Carp::CarpLevel = 2; # relocate to calling package
Carp::croak (@_);
};
my @imports = grep /^[^-]/, @_;
my @pragmata = map { substr($_, 1); } grep /^-/, @_;
Prima
view release on metacpan or search on metacpan
Prima/Docks.pm view on Meta::CPAN
$self-> {sessions}-> {$dm} = $sid;
} else {
$sid = $self-> {sessions}-> {$dm};
}
return unless $sid;
my $relocationCount;
AGAIN:
#print "{$dm:@$pos:";
my @retval;
my @rc = $dm-> query( $sid, $pos ? @$pos : ());
#print "(@rc)\n";
Prima/Docks.pm view on Meta::CPAN
$newpos[$a] = $lb ? ( $pp[$a] - $pdist) : ( $pp[$a] + $pdist - $sz1);
}
$newpos[$b] = $newpos[$a] + $sz1;
}
# asking for the new position for the shape, if $dm can accept that...
if ( 2 >= $relocationCount++) {
#print "case1: @newpos\n";
$pos = \@newpos;
goto AGAIN;
}
} elsif ( $self-> {drag} && ( # have to change the position
Prima/Docks.pm view on Meta::CPAN
$newpos[$a] = $rc[$a] if $newpos[$a] < $rc[$a];
$newpos[$a] = $rc[$b] if $newpos[$a] > $rc[$b];
}
goto EXIT if ( $sd < abs($pp[0] - $newpos[0])) || ( $sd < abs($pp[1] - $newpos[1]));
# asking for the new position, and maybe new shape...
if ( 2 >= $relocationCount++) {
#print "case2: @rc\n";
$pos = [@rc];
goto AGAIN;
}
}
Prima/Docks.pm view on Meta::CPAN
flag.
If it is 1, RECT is an array with the coordinates of the shuttle rectangle
before the drag has started; ANCHOR_X and ANCHOR_Y are coordinates of the
aperture point where the mouse event occurred that has initiated the drag.
Depending on how the drag session ended, the shuttle can be relocated to
another dock, undocked, or left intact. Also, C<Dock>, C<Undock>, or
C<FailDock> notifications can be triggered.
If STATE is 0, RECT, ANCHOR_X ,and ANCHOR_Y parameters are not used.
( run in 2.167 seconds using v1.01-cache-2.11-cpan-84de2e75c66 )