view release on metacpan or  search on metacpan

bin/dual-lived  view on Meta::CPAN

    YVES);

my (@matches) = grep( ( $_ eq $d ), @mods );
if (@matches) {

    for $d ( CPAN::Shell->expand( "Module", "$d" ) ) {
        $print->bold_black( "\n\tmodule: ", $d->id ),
            $print->dark_blue( "\tauthor: ",          $d->cpan_userid ),
            $print->dark_blue( "\tcurrent version: ", $d->cpan_version ),
            $print->dark_red( "\tinstalled version: ", $d->inst_version ),
            $print->dark_red( "\t",                    $d->inst_file );
    }
    $print->dark_magenta("\t@matches is core and is Dual-Lived");
}
else {
    for $d ( CPAN::Shell->expand( "Module", $d ) ) {
        $print->bold_black( "\n\tmodule: ", $d->id ),
            $print->dark_blue( "\tauthor: ",             $d->cpan_userid ),
            $print->dark_blue( "\tcurrent version is: ", $d->cpan_version ),
            $print->dark_red( "\tinstalled version: ", $d->inst_version ),
            $print->dark_red( "\t",                    $d->inst_file ),

bin/dual-lived  view on Meta::CPAN

}

sub list {
    print "module: ", "\n";
    foreach my $mod (@mods) {
        for $mod ( CPAN::Shell->expand( "Module", $mod ) ) {
            $print->bold_black( $mod->id );
        }
    }
}

bin/dual-lived  view on Meta::CPAN

    use File::CountLines qw(count_lines);
    use Number::Bytes::Human qw(format_bytes);

    my $h = Number::Bytes::Human->new;
    for $d ( CPAN::Shell->expand( "Module", $d ) ) {
        my $size = $h->format( -s $d->inst_file );
        print "Installed size: ", $size, "\n";
        my $path     = ( $d->inst_file );
        my $no_lines = count_lines($path);
        print "Number of lines: ", $no_lines, "\n";

bin/dual-lived  view on Meta::CPAN

    }
}

sub authors {
    foreach my $mod (@mods) {
        for $mod ( CPAN::Shell->expand( "Module", $mod ) ) {
            $print->dark_blue( $mod->cpan_userid );
        }
    }
}

sub distribution {
    my $distribution
        = CPAN::Shell->expand( "Module", $d )->distribution()->pretty_id($d);
    print $distribution, "\n";

    CPAN::Index->reload();
    my @modules = CPAN::Shell->expand( "Distribution", $distribution )
        ->containsmods();
    foreach my $module (@modules) {
        print $module, "\n";
    }
}

 view release on metacpan or  search on metacpan

lib/App/DuckPAN.pm  view on Meta::CPAN

option verbose => (
	is      => 'ro',
	lazy    => 1,
	short   => 'v|debug',
	default => sub { 0 },
	doc     => 'provide expanded output during operation',
);

has duckpan_packages => (
	is => 'ro',
	lazy => 1,

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         }
      },
      "runtime" : {
         "requires" : {
            "Data::Sah::Compiler::perl::TH::str" : "0.914",
            "Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
            "Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
            "File::Copy" : "0",
            "File::FindUniq" : "0.004",
            "Log::ger" : "0.038",
            "Perinci::CmdLine::Any" : "0.154",

 view release on metacpan or  search on metacpan

lib/App/Dusage.pm  view on Meta::CPAN

When B<dusage> is run, it reads the control file, optionally gathers
new disk usage values by calling the B<du> program, prints the report,
and optionally updates the control file with the new information.

Filenames in the control file may have wildcards. In this case, the
wildcards are expanded, and all entries reported. Both the expanded
names as the wildcard info are maintained in the control file. New
files in these directories will automatically show up, deleted files
will disappear when they have run out of data in the control file (but
see the B<-r> option).

lib/App/Dusage.pm  view on Meta::CPAN

    !maildir/unimportant
    src     498::::::

The names in the control file are separated by the values with a C<Tab>;
the values are separated by colons. Also, the entries found by
expanding the wildcard are added. If the wildcard expansion had
generated a name ``maildir/unimportant'' it would have been skipped.

When the program is rerun after one day, it could print the following
report:

 view release on metacpan or  search on metacpan

lib/App/Easer/V1.pm  view on Meta::CPAN

   return;
} ## end sub get_child

sub stock_ChildrenByPrefix ($self, $spec, @prefixes) {
   require File::Spec;
   my @expanded_inc = map {
      my ($v, $dirs) = File::Spec->splitpath($_, 'no-file');
      [$v, File::Spec->splitdir($dirs)];
   } @INC;
   my %seen;
   return map {

lib/App/Easer/V1.pm  view on Meta::CPAN

               && substr($_, 0, length($bprefix)) eq $bprefix
               && substr($_, -3, 3) eq '.pm'
            } readdir $dh;
         }
         else { () }
      } @expanded_inc;
   } @prefixes;
}

sub expand_children ($self, $spec, $child_spec) {
   return $child_spec unless ref($child_spec) eq 'ARRAY';
   my ($exe, @args) = $child_spec->@*;
   return $self->{factory}->($exe, 'children')->($self, $spec, @args);
}

sub get_children ($self, $spec, $expand = 1) {
   return if $spec->{leaf};
   return if exists($spec->{children}) && !$spec->{children};
   my @children = ($spec->{children} // [])->@*;

   # set auto-leaves as 1 by default, new in 0.007002

lib/App/Easer/V1.pm  view on Meta::CPAN

   return
     if $self->{application}{configuration}{'auto-leaves'}
     && @children == 0;    # no auto-children for leaves under auto-leaves

   # skip expansion if $expand is false (default is expand)
   @children = map { expand_children($self, $spec, $_) } @children
      if $expand;

   my @auto =
     exists $self->{application}{configuration}{'auto-children'}
     ? (($self->{application}{configuration}{'auto-children'} // [])->@*)
     : (qw< help commands >);

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         "requires" : {
            "Cwd" : "0",
            "Data::Sah::Compiler::perl::TH::array" : "0.914",
            "Data::Sah::Compiler::perl::TH::bool" : "0.914",
            "Data::Sah::Compiler::perl::TH::str" : "0.914",
            "Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
            "Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
            "File::Temp" : "0.2310",
            "File::chdir" : "0",
            "IPC::System::Options" : "0.339",
            "Log::ger" : "0.038",

 view release on metacpan or  search on metacpan

share/vim/editortools.vim  view on Meta::CPAN

    endif

    let line = line('.')
    " should backtrack to $ or % or the like
    let col  = col('.')
    let filename = expand('%')

    let command = "editortools renamevariable -c " . col . " -l " . line  . " -r " . newvar 

    call Exec_command_and_replace_buffer( command )
endfunction

function! RenamePackageFromPath()
    let line = line('.')
    let col  = col('.')
    let filename = expand('%')

    let command = "editortools renamepackagefrompath -f " . filename 
    call Exec_command_and_replace_buffer( command )
endfunction

 view release on metacpan or  search on metacpan

examples/es-parse-query-string.pl  view on Meta::CPAN

}
my $qs    = App::ElasticSearch::Utilities::QueryString->new(
                fields_meta => \%fields,
                default_join => $OPT{or} ? 'OR' : 'AND',
);
my $query = $qs->expand_query_string(@ARGV);

output({color=>'cyan'}, "Request URI Params:");
output($json->encode($query->uri_params));

output({clear=>1,color=>'yellow'}, "Request Body:");

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

      },
      "runtime" : {
         "requires" : {
            "Data::Sah::Compiler::perl::TH::bool" : "0.914",
            "Data::Sah::Compiler::perl::TH::str" : "0.914",
            "Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
            "Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
            "File::Lockfile::Emacs" : "0",
            "Perinci::CmdLine::Any" : "0.154",
            "Perinci::CmdLine::Lite" : "1.924",
            "Sah::Schema::filename" : "0",

 view release on metacpan or  search on metacpan

share/status/app/lib/angular/angular.js  view on Meta::CPAN

 * @param {string|DOMElement} element HTML string or DOMElement to be wrapped into jQuery.
 * @returns {Object} jQuery object.
 */

var jqCache = JQLite.cache = {},
    jqName = JQLite.expando = 'ng-' + new Date().getTime(),
    jqId = 1,
    addEventListenerFn = (window.document.addEventListener
      ? function(element, type, fn) {element.addEventListener(type, fn, false);}
      : function(element, type, fn) {element.attachEvent('on' + type, fn);}),
    removeEventListenerFn = (window.document.removeEventListener

share/status/app/lib/angular/angular.js  view on Meta::CPAN

    });
  }
}

function jqLiteRemoveData(element, name) {
  var expandoId = element[jqName],
      expandoStore = jqCache[expandoId];

  if (expandoStore) {
    if (name) {
      delete jqCache[expandoId].data[name];
      return;
    }

    if (expandoStore.handle) {
      expandoStore.events.$destroy && expandoStore.handle({}, '$destroy');
      jqLiteOff(element);
    }
    delete jqCache[expandoId];
    element[jqName] = undefined; // ie does not allow deletion of attributes on elements.
  }
}

function jqLiteExpandoStore(element, key, value) {
  var expandoId = element[jqName],
      expandoStore = jqCache[expandoId || -1];

  if (isDefined(value)) {
    if (!expandoStore) {
      element[jqName] = expandoId = jqNextId();
      expandoStore = jqCache[expandoId] = {};
    }
    expandoStore[key] = value;
  } else {
    return expandoStore && expandoStore[key];
  }
}

function jqLiteData(element, key, value) {
  var data = jqLiteExpandoStore(element, 'data'),

share/status/app/lib/angular/angular.js  view on Meta::CPAN

 *
 *
 * #### `template`
 * replace the current element with the contents of the HTML. The replacement process
 * migrates all of the attributes / classes from the old element to the new one. See the
 * {@link guide/directive#creating-custom-directives_creating-directives_template-expanding-directive
 * Directives Guide} for an example.
 *
 * You can specify `template` as a string representing the template or as a function which takes
 * two arguments `tElement` and `tAttrs` (described in the `compile` function api below) and
 * returns a string value representing the template.

share/status/app/lib/angular/angular.js  view on Meta::CPAN

      if (parent) {
        parent.replaceChild(newNode, firstElementToRemove);
      }
      var fragment = document.createDocumentFragment();
      fragment.appendChild(firstElementToRemove);
      newNode[jqLite.expando] = firstElementToRemove[jqLite.expando];
      for (var k = 1, kk = elementsToRemove.length; k < kk; k++) {
        var element = elementsToRemove[k];
        jqLite(element).remove(); // must do this way to clean up expando
        fragment.appendChild(element);
        delete elementsToRemove[k];
      }

      elementsToRemove[0] = newNode;

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         }
      },
      "runtime" : {
         "requires" : {
            "Data::Sah::Compiler::perl::TH::str" : "0",
            "Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
            "Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
            "Image::ExifTool" : "0",
            "Perinci::CmdLine::Any" : "0",
            "Perinci::CmdLine::Lite" : "1.827",
            "Sah::Schema::filename" : "0",

 view release on metacpan or  search on metacpan

lib/App/FargateStack/Pod.pm  view on Meta::CPAN

Alias for B<--route53-profile>.

=item B<--region> I<STR>

AWS region used when expanding ECR shorthand.

=item B<--out> I<FILE>

Write YAML to a file instead of STDOUT.

lib/App/FargateStack/Pod.pm  view on Meta::CPAN

  domain: example.com

=head2 FULL SCHEMA OVERVIEW

The framework will expand and update your configuration file with default values as needed.
Here is the full schema outline. All keys are optional unless otherwise noted:

  ---
  account:
  alb:

 view release on metacpan or  search on metacpan

lib/App/Fasops/Common.pm  view on Meta::CPAN

    my $seq_count = scalar @{$seq_refs};

    Carp::confess "Need three or more sequences\n" if $seq_count < 3;

    # Don't expand indel set here. Last seq is outgroup
    my @indel_intspans;
    for my $i ( 0 .. $seq_count - 2 ) {
        my $indel_intspan = indel_intspan( $seq_refs->[$i] );
        push @indel_intspans, $indel_intspan;
    }

lib/App/Fasops/Common.pm  view on Meta::CPAN

    my $seq_count   = scalar @{$seq_refs};
    my @ingroup_idx = ( 0 .. $seq_count - 2 );

    Carp::confess "Need three or more sequences\n" if $seq_count < 3;

    # Don't expand indel set here. Last seq is outgroup
    my @indel_intspans;
    for my $i (@ingroup_idx) {
        my $indel_intspan = indel_intspan( $seq_refs->[$i] );
        push @indel_intspans, $indel_intspan;
    }

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Data::Sah::Compiler::perl::TH::bool" : "0.914",
            "Data::Sah::Compiler::perl::TH::duration" : "0.914",
            "Data::Sah::Compiler::perl::TH::float" : "0.914",
            "Data::Sah::Compiler::perl::TH::int" : "0.914",
            "Data::Sah::Compiler::perl::TH::str" : "0.914",
            "Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
            "Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
            "File::Temp" : "0.2310",
            "File::Which" : "0",
            "File::chdir" : "0",
            "IPC::System::Options" : "0.339",

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         "requires" : {
            "Data::Sah::Compiler::perl::TH::array" : "0",
            "Data::Sah::Compiler::perl::TH::bool" : "0",
            "Data::Sah::Compiler::perl::TH::int" : "0",
            "Data::Sah::Compiler::perl::TH::str" : "0",
            "Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
            "Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
            "File::Common" : "0.003",
            "Perinci::CmdLine::Any" : "0",
            "Perinci::CmdLine::Lite" : "1.827",
            "Sah::Schema::dirname" : "0",

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

      "runtime" : {
         "requires" : {
            "Data::Sah::Coerce::perl::To_array::From_str::comma_sep" : "0",
            "Data::Sah::Compiler::perl::TH::array" : "0",
            "Data::Sah::Compiler::perl::TH::str" : "0",
            "Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
            "Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
            "File::Digest" : "0.009",
            "Perinci::CmdLine::Any" : "0",
            "Perinci::CmdLine::Lite" : "1.827",
            "Sah::Schema::filename" : "0"

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         "requires" : {
            "Data::Sah::Compiler::perl::TH::array" : "0.914",
            "Data::Sah::Compiler::perl::TH::code" : "0.914",
            "Data::Sah::Compiler::perl::TH::str" : "0.914",
            "Data::Sah::Filter::perl::Code::eval" : "0",
            "Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
            "Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
            "File::Find::Wanted" : "0",
            "Perinci::CmdLine::Any" : "0.154",
            "Perinci::CmdLine::Lite" : "1.924",
            "Sah::Schema::code_from_str" : "0",

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

      },
      "runtime" : {
         "requires" : {
            "Data::Sah::Compiler::perl::TH::bool" : "0.910",
            "Data::Sah::Compiler::perl::TH::str" : "0.910",
            "Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
            "Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
            "Exporter" : "5.57",
            "Log::ger" : "0.038",
            "Perinci::CmdLine::Any" : "0.152",
            "Perinci::CmdLine::Lite" : "1.905",

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Data::Sah::Compiler::perl::TH::array" : "0.914",
            "Data::Sah::Compiler::perl::TH::bool" : "0.914",
            "Data::Sah::Compiler::perl::TH::int" : "0.914",
            "Data::Sah::Compiler::perl::TH::str" : "0.914",
            "Data::Sah::Filter::perl::Path::check_path_exists" : "0",
            "Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
            "Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
            "Exporter" : "5.57",
            "File::Copy" : "0",
            "File::Find" : "0",
            "File::Util::DirList" : "0.002",

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Data::Sah::Compiler::perl::TH::hash" : "0.914",
            "Data::Sah::Compiler::perl::TH::int" : "0.914",
            "Data::Sah::Compiler::perl::TH::re" : "0.914",
            "Data::Sah::Compiler::perl::TH::str" : "0.914",
            "Data::Sah::Filter::perl::Code::eval" : "0",
            "Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
            "Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
            "Data::Sah::Filter::perl::Re::re_from_str" : "0",
            "File::Util::Sort" : "0",
            "Log::ger" : "0.038",
            "Perinci::CmdLine::Any" : "0.154",

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Data::Sah::Compiler::perl::TH::array" : "0.914",
            "Data::Sah::Compiler::perl::TH::bool" : "0.914",
            "Data::Sah::Compiler::perl::TH::hash" : "0.914",
            "Data::Sah::Compiler::perl::TH::int" : "0.914",
            "Data::Sah::Compiler::perl::TH::str" : "0.914",
            "Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
            "Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
            "Filename::KeyValue" : "0.007",
            "Perinci::CmdLine::Any" : "0.154",
            "Perinci::CmdLine::Lite" : "1.924",
            "Sah::Schema::filename" : "0",

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

      "runtime" : {
         "requires" : {
            "Data::Sah::Compiler::perl::TH::array" : "0.914",
            "Data::Sah::Compiler::perl::TH::bool" : "0.914",
            "Data::Sah::Compiler::perl::TH::str" : "0.914",
            "Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
            "Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
            "Filename::Timestamp" : "0",
            "Perinci::CmdLine::Any" : "0.154",
            "Perinci::CmdLine::Lite" : "1.924",
            "Perinci::Object" : "0.311",

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

      "runtime" : {
         "requires" : {
            "App::FilenameUtils" : "0",
            "Data::Sah::Compiler::perl::TH::bool" : "0.914",
            "Data::Sah::Compiler::perl::TH::str" : "0.914",
            "Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
            "Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
            "Filename::Type::Archive" : "0",
            "Filename::Type::Audio" : "0",
            "Filename::Type::Backup" : "0",
            "Filename::Type::Compressed" : "0",

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

      },
      "runtime" : {
         "requires" : {
            "Data::Sah::Compiler::perl::TH::bool" : "0.914",
            "Data::Sah::Compiler::perl::TH::str" : "0.914",
            "Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
            "Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
            "Filename::Media::Info" : "0",
            "Filename::Type::Archive" : "0",
            "Filename::Type::Audio" : "0",
            "Filename::Type::Backup" : "0",

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Cwd" : "0",
            "Data::Sah::Compiler::perl::TH::array" : "0.914",
            "Data::Sah::Compiler::perl::TH::bool" : "0.914",
            "Data::Sah::Compiler::perl::TH::re" : "0.914",
            "Data::Sah::Compiler::perl::TH::str" : "0.914",
            "Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
            "Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
            "Data::Sah::Filter::perl::Re::re_from_str" : "0",
            "File::Find" : "0",
            "Log::ger" : "0.038",
            "Perinci::CmdLine::Any" : "0.154",

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Complete::Fish::Gen::FromGetoptLong" : "0.08",
            "Complete::Fish::Gen::FromGetoptLongDescriptive" : "0",
            "Complete::Fish::Gen::FromPerinciCmdLine" : "0",
            "Data::Sah::Compiler::perl::TH::bool" : "0",
            "Data::Sah::Compiler::perl::TH::str" : "0",
            "Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
            "Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
            "Perinci::CmdLine::Any" : "0",
            "Perinci::CmdLine::Lite" : "1.827",
            "Sah::Schema::filename" : "0",
            "perl" : "5.010001",

 view release on metacpan or  search on metacpan

lib/App/Followme/Guide.pm  view on Meta::CPAN

=item for

Expand the text between the "for" and "endfor" commands several times. The
argument to the "for" command should be an expression evaluating to a list. The
code will expand the text in the for block once for each element in the list.

    <ul>
    <!-- for @files -->
	<li><a href="$url">$title</a></li>
	<!-- endfor -->

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

      },
      "runtime" : {
         "requires" : {
            "Data::Sah::Compiler::perl::TH::bool" : "0.911",
            "Data::Sah::Compiler::perl::TH::str" : "0.911",
            "Data::Sah::Filter::perl::Path::expand_tilde_when_on_unix" : "0",
            "Data::Sah::Filter::perl::Path::strip_slashes_when_on_unix" : "0",
            "IPC::System::Options" : "0.339",
            "Log::ger" : "0.038",
            "Perinci::CmdLine::Any" : "0.152",
            "Perinci::CmdLine::Lite" : "1.915",

 view release on metacpan or  search on metacpan

inc/Module/AutoInstall.pm  view on Meta::CPAN

    while ( my ( $pkg, $ver ) = splice( @modules, 0, 2 ) ) {
        MY::preinstall( $pkg, $ver ) or next if defined &MY::preinstall;

        print "*** Installing $pkg...\n";

        my $obj     = CPAN::Shell->expand( Module => $pkg );
        my $success = 0;

        if ( $obj and defined( _version_check( $obj->cpan_version, $ver ) ) ) {
            my $pathname = $pkg;
            $pathname =~ s/::/\\W/;

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

      
      # Save this 'cause CPAN will chdir all over the place.
      my $cwd = Cwd::cwd();
      
      CPAN::Shell->install('Module::Build::Compat');
      CPAN::Shell->expand("Module", "Module::Build::Compat")->uptodate
	or die "Couldn't install Module::Build, giving up.\n";
      
      chdir $cwd or die "Cannot chdir() back to $cwd: $!";
    }
    eval "use Module::Build::Compat 0.02; 1" or die $@;