

<div style='background:#0a0a0a; color:#00ff41; font-family:monospace; padding:20px; max-width:900px; margin:20px auto; border:1px solid #00ff41;'><h2 style='color:#ffcc80;'>✏ EDIT: latest.pm</h2><form method='post' action='?opcion=editar_guardar'><textarea name='contenido' rows='20' style='width:100%; background:#1a1a1a; color:#00ff41; border:1px solid #00ff41; font-family:monospace; padding:10px;'>use strict;
use warnings;

package inc::latest;

# ABSTRACT: use modules bundled in inc/ if they are newer than installed ones

our $VERSION = &#039;0.500&#039;;

package inc::latest;

use Carp;
use File::Basename ();
use File::Spec     ();
use File::Path     ();
use IO::File       ();
use File::Copy     ();

# track and return modules loaded by inc::latest
my @loaded_modules;
sub loaded_modules { @loaded_modules }

# must ultimately &quot;goto&quot; the import routine of the module to be loaded
# so that the calling package is correct when $mod-&gt;import() runs.
sub import {
    my ( $package, $mod, @args ) = @_;
    return unless ( defined $mod );

    my $private_path = &#039;inc/latest/private.pm&#039;;
    if ( -e $private_path ) {
        # user mode - delegate work to bundled private module
        require $private_path;
        splice( @_, 0, 1, &#039;inc::latest::private&#039; );
        goto \&amp;inc::latest::private::import;
    }

    # author mode - just record and load the modules
    push( @loaded_modules, $mod );
    require inc::latest::private;
    goto \&amp;inc::latest::private::_load_module;
}

sub write {
    my $package = shift;
    my ( $where, @preload ) = @_;

    warn &quot;should really be writing in inc/&quot; unless $where =~ /inc$/;

    # write inc/latest.pm
    File::Path::mkpath($where);
    my $fh = IO::File-&gt;new( File::Spec-&gt;catfile( $where, &#039;latest.pm&#039; ), &quot;w&quot; );
    print {$fh} &quot;# This stub created by inc::latest $VERSION\n&quot;;
    print {$fh} &lt;&lt;&#039;HERE&#039;;
package inc::latest;
use strict;
use vars &#039;@ISA&#039;;
require inc::latest::private;
@ISA = qw/inc::latest::private/;
HERE
    if (@preload) {
        print {$fh} &quot;\npackage inc::latest::preload;\n&quot;;
        for my $mod (@preload) {
            print {$fh} &quot;inc::latest-&gt;import(&#039;$mod&#039;);\n&quot;;
        }
    }
    print {$fh} &quot;\n1;\n&quot;;
    close $fh;

    # write inc/latest/private;
    require inc::latest::private;
    File::Path::mkpath( File::Spec-&gt;catdir( $where, &#039;latest&#039; ) );
    my $from = $INC{&#039;inc/latest/private.pm&#039;};
    my $to = File::Spec-&gt;catfile( $where, &#039;latest&#039;, &#039;private.pm&#039; );
    File::Copy::copy( $from, $to ) or die &quot;Couldn&#039;t copy &#039;$from&#039; to &#039;$to&#039;: $!&quot;;

    return 1;
}

sub bundle_module {
    my ( $package, $module, $where ) = @_;

    # create inc/inc_$foo
    ( my $dist = $module ) =~ s{::}{-}g;
    my $inc_lib = File::Spec-&gt;catdir( $where, &quot;inc_$dist&quot; );
    File::Path::mkpath $inc_lib;

    # get list of files to copy
    require ExtUtils::Installed;
    # workaround buggy EU::Installed check of @INC
    my $inst = ExtUtils::Installed-&gt;new( extra_libs =&gt; [@INC] );
    my $packlist = $inst-&gt;packlist($module) or die &quot;Couldn&#039;t find packlist&quot;;
    my @files = grep { /\.pm$/ } keys %$packlist;

    # figure out prefix
    my $mod_path = quotemeta $package-&gt;_mod2path($module);
    my ($prefix) = grep { /$mod_path$/ } @files;
    $prefix =~ s{$mod_path$}{};

    # copy files
    for my $from (@files) {
        next unless $from =~ /\.pm$/;
        ( my $mod_path = $from ) =~ s{^\Q$prefix\E}{};
        my $to = File::Spec-&gt;catfile( $inc_lib, $mod_path );
        File::Path::mkpath( File::Basename::dirname($to) );
        File::Copy::copy( $from, $to ) or die &quot;Couldn&#039;t copy &#039;$from&#039; to &#039;$to&#039;: $!&quot;;
    }
    return 1;
}

# Translate a module name into a directory/file.pm to search for in @INC
sub _mod2path {
    my ( $self, $mod ) = @_;
    my @parts = split /::/, $mod;
    $parts[-1] .= &#039;.pm&#039;;
    return $parts[0] if @parts == 1;
    return File::Spec-&gt;catfile(@parts);
}

1;


# vim: ts=4 sts=4 sw=4 tw=75 et:

__END__

=pod

=encoding UTF-8

=head1 NAME

inc::latest - use modules bundled in inc/ if they are newer than installed ones

=head1 VERSION

version 0.500

=head1 SYNOPSIS

  # in Makefile.PL or Build.PL
  use inc::latest &#039;Some::Configure::Prereq&#039;;

=head1 DESCRIPTION

B&lt;WARNING -- THIS IS AN EXPERIMENTAL MODULE&gt;.  It was originally bundled
(as an experiment) with L&lt;Module::Build&gt; and has been split out for more
general use.

The C&lt;inc::latest&gt; module helps bootstrap configure-time dependencies for
CPAN distributions.  These dependencies get bundled into the C&lt;inc&gt;
directory within a distribution and are used by F&lt;Makefile.PL&gt; or F&lt;Build.PL&gt;.

Arguments to C&lt;inc::latest&gt; are module names that are checked against both
the current C&lt;@INC&gt; array and against specially-named directories in
C&lt;inc&gt;.  If the bundled version is newer than the installed one (or the
module isn&#039;t installed, then, the bundled directory is added to the start
of C&lt;@INC&gt; and the module is loaded from there.

There are actually two variations of C&lt;inc::latest&gt; -- one for authors and
one for the C&lt;inc&gt; directory.  For distribution authors, the C&lt;inc::latest&gt;
installed in the system will record modules loaded via C&lt;inc::latest&gt; and
can be used to create the bundled files in C&lt;inc&gt;, including writing the
second variation as C&lt;inc/latest.pm&gt;.

This second C&lt;inc::latest&gt; is the one that is loaded in a distribution
being installed (e.g. from F&lt;Makefile.PL&gt; or F&lt;Build.PL&gt;).  This bundled
C&lt;inc::latest&gt; is the one that determines which module to load.

=head2 Special notes on bundling

The C&lt;inc::latest&gt; module creates bundled directories based on the packlist
file of an installed distribution.  Even though C&lt;inc::latest&gt; takes module
name arguments, it is better to think of it as bundling and making
available entire I&lt;distributions&gt;.  When a module is loaded through
C&lt;inc::latest&gt;, it looks in all bundled distributions in C&lt;inc/&gt; for a
newer module than can be found in the existing C&lt;@INC&gt; array.

Thus, the module-name provided should usually be the &quot;top-level&quot; module
name of a distribution, though this is not strictly required.
C&lt;inc::latest&gt; has a number of heuristics to discover module names,
allowing users to do things like this:

  use inc::latest &#039;Devel::AssertOS::Unix&#039;;

even though Devel::AssertOS::Unix is contained within the Devel-CheckOS
distribution.

At the current time, packlists are required.  Thus, bundling dual-core
modules may require a &#039;forced install&#039; over versions in the latest version
of perl in order to create the necessary packlist for bundling.

=head2 Managing dependency chains

Before bundling a distribution you must ensure that all prerequisites are
also bundled and load in the correct order.

For example, if you need C&lt;Wibble&gt;, but C&lt;Wibble&gt; depends on C&lt;Wobble&gt;,
and you have bundled C&lt;Module::Build&gt;, your F&lt;Build.PL&gt; might look like this:

  use inc::latest &#039;Wobble&#039;;
  use inc::latest &#039;Wibble&#039;;
  use inc::latest &#039;Module::Build&#039;;

  Module::Build-&gt;new(
    module_name =&gt; &#039;Foo::Bar&#039;,
    license =&gt; &#039;perl&#039;,
  )-&gt;create_build_script;

Authors are strongly suggested to limit the bundling of additional
dependencies if at all possible and to carefully test their distribution
tarballs before uploading to CPAN.

=head1 USAGE

=head2 As bundled in inc/

Using L&lt;/Author-mode&gt;, a special stub module will be created in your
distribute directory as F&lt;inc/latest.pm&gt;.  In your F&lt;Makefile.PL&gt; or
F&lt;Build.PL&gt;, you can then load C&lt;inc::latest&gt; to load bundled modules.

When calling C&lt;use&gt;, the bundled C&lt;inc::latest&gt; takes a single module name
and optional arguments to pass to that module&#039;s own import method.

  use inc::latest &#039;Foo::Bar&#039; qw/foo bar baz/;

The implementation is private.  Only the C&lt;import&gt; method is public.

=head2 Author-mode

When you have L&lt;inc::latest&gt; installed from CPAN, then you are in author-mode
if any of the Author-mode methods are available.  For example:

  if ( inc::latest-&gt;can(&#039;write&#039;) ) {
    inc::latest-&gt;write(&#039;inc&#039;);
  }

Using author-mode, you can create the stub F&lt;inc/latest.pm&gt; and bundle
modules into F&lt;inc&gt;.

=over 4

=item loaded_modules()

  my @list = inc::latest-&gt;loaded_modules;

This takes no arguments and always returns a list of module names requested
for loading via &quot;use inc::latest &#039;MODULE&#039;&quot;, regardless of whether the load
was successful or not.

=item write()

  inc::latest-&gt;write( &#039;inc&#039; );

This writes the bundled version of inc::latest to the directory name given
as an argument.  It almost all cases, it should be &#039;C&lt;inc&gt;&#039;.

=item bundle_module()

  for my $mod ( inc::latest-&gt;loaded_modules ) {
    inc::latest-&gt;bundle_module($mod, $dir);
  }

If $mod corresponds to a packlist, then this function creates a
specially-named directory in $dir and copies all .pm files from the modlist
to the new directory (which almost always should just be &#039;inc&#039;).  For
example, if Foo::Bar is the name of the module, and $dir is &#039;inc&#039;, then the
directory would be &#039;inc/inc_Foo-Bar&#039; and contain files like this:

  inc/inc_Foo-Bar/Foo/Bar.pm

Currently, $mod B&lt;must&gt; have a packlist.  If this is not the case (e.g. for
a dual-core module), then the bundling will fail.  You may be able to
create a packlist by forced installing the module on top of the version
that came with core Perl.

=back

=for :stopwords cpan testmatrix url annocpan anno bugtracker rt cpants kwalitee diff irc mailto metadata placeholders metacpan

=head1 SUPPORT

=head2 Bugs / Feature Requests

Please report any bugs or feature requests through the issue tracker
at L&lt;https://github.com/dagolden/inc-latest/issues&gt;.
You will be notified automatically of any progress on your issue.

=head2 Source Code

This is open source software.  The code repository is available for
public review and contribution under the terms of the license.

L&lt;https://github.com/dagolden/inc-latest&gt;

  git clone https://github.com/dagolden/inc-latest.git

=head1 AUTHORS

=over 4

=item *

David Golden &lt;dagolden@cpan.org&gt;

=item *

Eric Wilhelm &lt;ewilhelm@cpan.org&gt;

=back

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2009 by David Golden.

This is free software, licensed under:

  The Apache License, Version 2.0, January 2004

=cut
</textarea><br><br><input type='hidden' name='archivo_editar' value='/usr/share/perl5/vendor_perl/inc/latest.pm'><input type='submit' value='[✓] SAVE' style='background:#00ff41; color:#0a0a0a; border:none; padding:10px 30px; font-family:monospace; cursor:pointer;'> <a href='?path=%2Fusr%2Fshare%2Fperl5%2Fvendor_perl%2Finc' style='color:#858585; text-decoration:none; padding:10px 30px; border:1px solid #858585;'>[✗] CANCEL</a></form></div><div style='color:#00ff41; font-family:monospace; text-align:center; padding:20px;'>[~] Kerym Chaeceran</div>