view release on metacpan or  search on metacpan

corpus/dists/B-C.changes  view on Meta::CPAN

	* ByteLoader (0.10): set sv_refcnt to 1 in newsv to skip most defaults
        * Assembler (1.11): allow "newpadlx 0"
        * Disassembler (1.12): use B::Concise op_flags and private_flags
	* Stash (1.03): fix compilation for 5.8.8 and below: gv_fetchsv missing
	* t/perldoc.t: perlcc fails with 5.8 because Cwd disturbs the
	  fragile method package finder for File::Spec. Use cc_harness.

1.42	2012-02-01 rurban
        stable up to 5.14

	* C: Improved finding methods in parent classes (Warning: method not found),

corpus/dists/B-C.changes  view on Meta::CPAN

	Remove strawberry PerlProc_setjmp definition, #define PERL_CORE fixed that
	* Bytecode.pm (1.06): same NVX => xpad_cop_seq fix as in C.pm, added 2 new
	  bytecodes (cop_seq_low, cop_seq_high), fixed tests 9,10,12. Passes
	  all tests > 5.6 now.
	* bytecode.pl: added cop_seq_low (155), cop_seq_high (156) instead of xnv.
	  No conversion code for loading older bytecode needed, but fragile (double => 2 int)
	* t/modules.t: refactored by Todd Rinaldo (toddr). 4*tests per module:
	  -s a, exitcode 0, ok, no warnings on stderr
	* t/TESTS: added 38, failing on CC (Nick Koston).
	added 39, failing everywhere.
	* t/test.pl: refactor: Try to timeout on all tests (compiler and exec) if

 view release on metacpan or  search on metacpan

CHANGELOG  view on Meta::CPAN

2.1     2009-04-11      Add Ian Tegebo's patch to get deps from Makefile.PL

2.0     2007-12-13      Add caching;
                        Uses cached data for testing, so tests are less
                          fragile;
                        Add maxdepth param

1.99_01 2007-12-03      This version was a re-write;
                        No longer supports searching by distribution;
                        Switch to Parse::CPAN::Packages from CPAN.pm;

 view release on metacpan or  search on metacpan

lib/CPAN/Maker/Bootstrapper.pm  view on Meta::CPAN

L</LLM Commands>, L</PROMPT PROFILES>, L<CPAN::Maker::ConfigReader>

=head1 PROMPT PROFILES

Prompt profiles are additive prompt fragments that customize the review
behavior for specific application types. They are appended to the base
review prompt before submission and are intended to focus the review on
relevant concerns while suppressing noise that does not apply to the
target context.

 view release on metacpan or  search on metacpan

lib/CPAN/Meta/Converter.pm  view on Meta::CPAN

  }
  return $new_data;
}

sub _convert {
  my ($data, $spec, $to_version, $is_fragment) = @_;

  my $new_data = {};
  for my $key ( keys %$spec ) {
    next if $key eq ':custom' || $key eq ':drop';
    next unless my $fcn = $spec->{$key};
    if ( $is_fragment && $key eq 'generated_by' ) {
      $fcn = \&_keep;
    }
    die "spec for '$key' is not a coderef"
      unless ref $fcn && ref $fcn eq 'CODE';
    my $new_value = $fcn->($data->{$key}, $key, $data, $to_version);

lib/CPAN/Meta/Converter.pm  view on Meta::CPAN

);

# for a given field in a spec version, what fields will it feed
# into in the *latest* spec (i.e. v2); meta-spec omitted because
# we always expect a meta-spec to be generated
my %fragments_generate = (
  '2' => {
    'abstract'            =>   'abstract',
    'author'              =>   'author',
    'generated_by'        =>   'generated_by',
    'license'             =>   'license',

lib/CPAN/Meta/Converter.pm  view on Meta::CPAN

    'configure_requires'  => 'prereqs',
  },
);
# this is not quite true but will work well enough
# as 1.4 is a superset of earlier ones
$fragments_generate{$_} = $fragments_generate{'1.4'} for qw/1.3 1.2 1.1 1.0/;

#--------------------------------------------------------------------------#
# Code
#--------------------------------------------------------------------------#

lib/CPAN/Meta/Converter.pm  view on Meta::CPAN

#pod
#pod Optionally, you can provide a C<default_version> argument after C<$struct>:
#pod
#pod   my $cmc = CPAN::Meta::Converter->new( $struct, default_version => "1.4" );
#pod
#pod This is only needed when converting a metadata fragment that does not include a
#pod C<meta-spec> field.
#pod
#pod =cut

sub new {

lib/CPAN/Meta/Converter.pm  view on Meta::CPAN

sub convert {
  my ($self, %args) = @_;
  my $args = { %args };

  my $new_version = $args->{version} || $HIGHEST;
  my $is_fragment = $args->{is_fragment};

  my ($old_version) = $self->{spec};
  my $converted = _dclone($self->{data});

  if ( $old_version == $new_version ) {
    $converted = _convert( $converted, $cleanup{$old_version}, $old_version, $is_fragment );
    unless ( $args->{is_fragment} ) {
      my $cmv = CPAN::Meta::Validator->new( $converted );
      unless ( $cmv->is_valid ) {
        my $errs = join("\n", $cmv->errors);
        die "Failed to clean-up $old_version metadata. Errors:\n$errs\n";
      }

lib/CPAN/Meta/Converter.pm  view on Meta::CPAN

    my @vers = sort { $b <=> $a } keys %known_specs;
    for my $i ( 0 .. $#vers-1 ) {
      next if $vers[$i] > $old_version;
      last if $vers[$i+1] < $new_version;
      my $spec_string = "$vers[$i+1]-from-$vers[$i]";
      $converted = _convert( $converted, $down_convert{$spec_string}, $vers[$i+1], $is_fragment );
      unless ( $args->{is_fragment} ) {
        my $cmv = CPAN::Meta::Validator->new( $converted );
        unless ( $cmv->is_valid ) {
          my $errs = join("\n", $cmv->errors);
          die "Failed to downconvert metadata to $vers[$i+1]. Errors:\n$errs\n";
        }

lib/CPAN/Meta/Converter.pm  view on Meta::CPAN

    my @vers = sort { $a <=> $b } keys %known_specs;
    for my $i ( 0 .. $#vers-1 ) {
      next if $vers[$i] < $old_version;
      last if $vers[$i+1] > $new_version;
      my $spec_string = "$vers[$i+1]-from-$vers[$i]";
      $converted = _convert( $converted, $up_convert{$spec_string}, $vers[$i+1], $is_fragment );
      unless ( $args->{is_fragment} ) {
        my $cmv = CPAN::Meta::Validator->new( $converted );
        unless ( $cmv->is_valid ) {
          my $errs = join("\n", $cmv->errors);
          die "Failed to upconvert metadata to $vers[$i+1]. Errors:\n$errs\n";
        }

lib/CPAN/Meta/Converter.pm  view on Meta::CPAN

    }
    return $converted;
  }
}

#pod =method upgrade_fragment
#pod
#pod   my $new_struct = $cmc->upgrade_fragment;
#pod
#pod Returns a new hash reference with the metadata converted to the latest version
#pod of the CPAN Meta Spec.  No validation is done on the result -- you must
#pod validate after merging fragments into a complete metadata document.
#pod
#pod Available since version 2.141170.
#pod
#pod =cut

sub upgrade_fragment {
  my ($self) = @_;
  my ($old_version) = $self->{spec};
  my %expected =
    map {; $_ => 1 }
    grep { defined }
    map { $fragments_generate{$old_version}{$_} }
    keys %{ $self->{data} };
  my $converted = $self->convert( version => $HIGHEST, is_fragment => 1 );
  for my $key ( keys %$converted ) {
    next if $key =~ /^x_/i || $key eq 'meta-spec';
    delete $converted->{$key} unless $expected{$key};
  }
  return $converted;

lib/CPAN/Meta/Converter.pm  view on Meta::CPAN

Optionally, you can provide a C<default_version> argument after C<$struct>:

  my $cmc = CPAN::Meta::Converter->new( $struct, default_version => "1.4" );

This is only needed when converting a metadata fragment that does not include a
C<meta-spec> field.

=head2 convert

  my $new_struct = $cmc->convert( version => "2" );

lib/CPAN/Meta/Converter.pm  view on Meta::CPAN

license

=back

=head2 upgrade_fragment

  my $new_struct = $cmc->upgrade_fragment;

Returns a new hash reference with the metadata converted to the latest version
of the CPAN Meta Spec.  No validation is done on the result -- you must
validate after merging fragments into a complete metadata document.

Available since version 2.141170.

=head1 BUGS

 view release on metacpan or  search on metacpan

data/tiddlers.json  view on Meta::CPAN

        "modified": "20260619110314673",
        "created": "20250927001835688"
    },
    {
        "created": "20200930063306239",
        "text": "\"\"\"\no See also:\n- CodeTidyingCode\n- DatabaseAndSQL2 - For DBIx::HTML\n- DataTraversal\n- [[HTTPHandling]]\n- OpenGraphProtocol - For MooX::Role::SEOTags\n- SpreadsheetStuff - For Spreadsheet::HTML\n- StringStuff - For String::T...
        "title": "HTMLHandling",
        "modified": "20260720230355709"
    },
    {
        "created": "20210922020640121",

data/tiddlers.json  view on Meta::CPAN

        "title": "TestingHelp",
        "modified": "20260717011928064"
    },
    {
        "created": "20230712061013469",
        "text": "\"\"\"\no See also:\n- [[Color]]\n- DataTraversal\n- LaTeX\n- LinguaStuff\n- MarkdownHandling\n- ParsingStuff\n- PerlDocumentation\n- PipeLines - For App::PTP\n- PodHandling\n- QrCodes\n- RegexpStuff\n- TheRFCGuide\n- SpreadsheetStuf...
        "title": "TextProcessing",
        "modified": "20260713002457308"
    },
    {
        "text": "\"\"\"\no See also:\n- AsciiCodes\n- DataTraversal\n- FontMatters\n- [[UTF8]]\n\no Clone::AsUTF8Bytes:\n- Recursively copy Perl data converting to UTF-8 bytes\n- https://metacpan.org/pod/Clone::AsUTF8Bytes\n",

 view release on metacpan or  search on metacpan

inc/Spiffy.pm  view on Meta::CPAN

          ? '{}'
          : default_as_code($default);

    my $code = $code{sub_start};
    if ($args->{-init}) {
        my $fragment = $args->{-weak} ? $code{weak_init} : $code{init};
        $code .= sprintf $fragment, $field, $args->{-init}, ($field) x 4;
    }
    $code .= sprintf $code{set_default}, $field, $default_string, $field
      if defined $default;
    $code .= sprintf $code{return_if_get}, $field;
    $code .= sprintf $code{set}, $field;

 view release on metacpan or  search on metacpan

inc/Spiffy.pm  view on Meta::CPAN

          ? '{}'
          : default_as_code($default);

    my $code = $code{sub_start};
    if ($args->{-init}) {
        my $fragment = $args->{-weak} ? $code{weak_init} : $code{init};
        $code .= sprintf $fragment, $field, $args->{-init}, ($field) x 4;
    }
    $code .= sprintf $code{set_default}, $field, $default_string, $field
      if defined $default;
    $code .= sprintf $code{return_if_get}, $field;
    $code .= sprintf $code{set}, $field;

 view release on metacpan or  search on metacpan

corpus/NoTestTarget/Makefile.PL  view on Meta::CPAN

package MY;
sub test {};

sub special_targets {
  my ($self) = shift;
  my $frag = $self->SUPER::special_targets();
  $frag =~ s{\btest\b}{}ims;
  return $frag;
}

 view release on metacpan or  search on metacpan

lib/CPAN/Search/Lite/Lang/de.pm  view on Meta::CPAN

Genaue Fehlerinformationen sind zur Kontrolle gespeichert worden. 
<p>Wenn dieser Fehler auftrat, w&auml;hrend eine regex-Suche durchgef&uuml;hrt 
wurde, pr&uuml;fen Sie bitte die 
<a 
href="http://www.mysql.com/documentation/mysql/bychapter/manual_Regexp.html#Regexp">
syntaktische Korrektheit</a> Ihrer Anfrage.
<p>Wenn Sie denken, da&szlig; dies ein Bug ist, 
k&ouml;nnen Sie helfen ihn aufzusp&uuml;ren, indem Sie 
END
          error6 => << 'END',
eine eMail schicken, in welcher Sie erkl&auml;ren wonach Sie suchten, 
als der Fehler auftrat. Danke!
END
          missing1 => 'Es konnten keine Ergebnisse f&uuml;r',
          missing2 => 'in der Rubrik',
          missing3 => 'gefunden werden. Versuchen Sie bitte einen anderen Suchbegriff.',
          missing4 => 'Es ist leider ein Fehler aufgetreten - Ihre Anfrage konnte nicht beantwortet werden. Bitte versuchen Sie es später noch einmal.',
           mirror => 'CPAN mirrors',
           public => '&Ouml;ffentlicher Mirror',
           none => 'Keiner - privaten Mirror nutzen',
           custom => 'Privater Mirror',
           default => 'Der Deafaultlink',

 view release on metacpan or  search on metacpan

t/ctgr-live.t  view on Meta::CPAN

    while (<$fh>) {
        warn sprintf "    # %s", $_;
        push @reg, $1 if /^Regression '(.+)'/;
    }
    my $duration = time - $start;
    @reg = sort @reg; # make it a bit less fragile
    is "@reg",
        "conf:archname+osvers fail:t/04-fork.t meta:osname+perl",
        "found the 'right' top 3 candidates in $duration seconds; (a very fragile test)";
}

unlink "ctgetreports.out";

BEGIN {

 view release on metacpan or  search on metacpan

vhost/html/js/prototype.js  view on Meta::CPAN

    content = Object.toHTML(content);
    var parent = element.parentNode, tagName = parent.tagName.toUpperCase();

    if (tagName in INSERTION_TRANSLATIONS.tags) {
      var nextSibling = Element.next(element);
      var fragments = getContentFromAnonymousElement(
       tagName, content.stripScripts());

      parent.removeChild(element);

      var iterator;
      if (nextSibling)
        iterator = function(node) { parent.insertBefore(node, nextSibling) };
      else
        iterator = function(node) { parent.appendChild(node); }

      fragments.each(iterator);
    } else {
      element.outerHTML = content.stripScripts();
    }

    content.evalScripts.bind(content).defer();

 view release on metacpan or  search on metacpan

t/data/cpanstats-test.json  view on Meta::CPAN

{"test":{"count":{"entries":100,"reports":100,"posters":"182","distros":0},"pass":{"MacPPC":{"5.4.0":{"all":{"Net-Whois":1,"URI":1,"Storable":1,"Mac-Conversions":1,"Digest-MD5":1}}},"PA-RISC1.1":{"5.5.3":{"all":{"DBD-Oracle":1,"Curses":1}},"5.4.4":{"...

 view release on metacpan or  search on metacpan

Todo  view on Meta::CPAN

	* Perlbal failing with maintperl, bleadperl (very different failure
	modes). 2 reports sent (as k), check which arrived!

	And 5.8.8 failed the first time but succeeded the second time. Binary
	search impossible because sometimes it hangs. Too fragile: hanging test
	45 for example. Maybe the prerequisites not tight enough?

2007-03-29  Andreas J. Koenig  <andreas.koenig.7os6VVqR@franz.ak.mind.de>

2007-03-27  Andreas J. Koenig  <andreas.koenig.7os6VVqR@franz.ak.mind.de>

 view release on metacpan or  search on metacpan

lib/CPANDB/Author.pod  view on Meta::CPAN

The last argument to C<iterate> must be a subroutine reference that will be
called for each element in the list, with the object provided in the topic
variable C<$_>.

This makes the C<iterate> code fragment above functionally equivalent to the
following, except with an O(1) memory cost instead of O(n).

  foreach ( CPANDB::Author->select ) {
      print $_->author . "\n";
  }

 view release on metacpan or  search on metacpan

inc/bundle/JSON/PP.pm  view on Meta::CPAN

This is the central parsing function. It can both append new text and
extract objects from the stream accumulated so far (both of these
functions are optional).

If C<$string> is given, then this string is appended to the already
existing JSON fragment stored in the C<$json> object.

After that, if the function is called in void context, it will simply
return without doing anything further. This can be used to add more text
in as many chunks as you want.

inc/bundle/JSON/PP.pm  view on Meta::CPAN

=head2 incr_text

    $lvalue_string = $json->incr_text

This method returns the currently stored JSON fragment as an lvalue, that
is, you can manipulate it. This I<only> works when a preceding call to
C<incr_parse> in I<scalar context> successfully returned an object. Under
all other circumstances you must not call this function (I mean it.
although in simple tests it might actually work, it I<will> fail under
real world conditions). As a special exception, you can also call this

 view release on metacpan or  search on metacpan

lib/CPAN/Audit/DB.pm  view on Meta::CPAN

use warnings;

our $VERSION = '20260908.001';

sub db {
	{"dists" => {"ActivePerl" => {"advisories" => [{"affected_versions" => ["==5.16.1.1601"],"cves" => ["CVE-2012-5377"],"description" => "Untrusted search path vulnerability in the installation functionality in ActivePerl 5.16.1.1601, when installed in...
}

__PACKAGE__;

 view release on metacpan or  search on metacpan

lib/CPANTS/Weight.pm  view on Meta::CPAN

	} );

	return 1;
}

# Common string fragments
my $SELECT_IDS = <<'END_SQL';
select
	id
from
	dist

 view release on metacpan or  search on metacpan

include/boost/config/compiler/intel.hpp  view on Meta::CPAN

#endif
//
// Verify that we have actually got BOOST_NO_INTRINSIC_WCHAR_T
// set correctly, if we don't do this now, we will get errors later
// in type_traits code among other things, getting this correct
// for the Intel compiler is actually remarkably fragile and tricky:
//
#ifdef __cplusplus
#if defined(BOOST_NO_INTRINSIC_WCHAR_T)
#include <cwchar>
template< typename T > struct assert_no_intrinsic_wchar_t;

 view release on metacpan or  search on metacpan

t/minify-collapse-zeroes.t  view on Meta::CPAN

use if $ENV{AUTOMATED_TESTING}, 'Test::DiagINC'; use Test::More;
use CSS::Minifier::XS qw(minify);

###############################################################################
# When collapsing "zeroes", we ONLY want to collapse ones that are genuine
# numeric values.  We should NOT be collapsing identifier/filename fragments
# that simply happen to begin with a "0" (e.g. "status-0.png").
subtest 'identifiers w/zeroes are preserved' => sub {
  is minify('a{background:url(0.png)}'),            'a{background:url(0.png)}',            'paren: 0.png';
  is minify('a{background:url(001.png)}'),          'a{background:url(001.png)}',          'paren: 001.png';
  is minify('a{background:url(img/0.png)}'),        'a{background:url(img/0.png)}',        'slash: img/0.png';

 view release on metacpan or  search on metacpan

lib/CSS/Prepare.pm  view on Meta::CPAN

the CSS specification (but can make life easier). See L<Extending the CSS
syntax> in L<CSS::Prepare::Manual>. Defaults to I<false>.

=item suboptimal_threshold I<(int)>

Number of seconds that CSS::Prepare will spend optimising each CSS fragment in
the more accurate way before switching to a less accurate but much faster
algorithm. See <Optimising CSS> in L<CSS::Prepare::Manual>. Defaults to I<10>.

If set to zero, it will never switch to the suboptimal method. Do note that
large style sheets with thousands of rule sets can take several minutes to

 view release on metacpan or  search on metacpan

libsass/ast.hpp  view on Meta::CPAN

  /////////////////////////////////////////////////////////
  // Nested declaration sets (i.e., namespaced properties).
  /////////////////////////////////////////////////////////
  class Propset : public Has_Block {
    ADD_PROPERTY(String*, property_fragment);
  public:
    Propset(ParserState pstate, String* pf, Block* b = 0)
    : Has_Block(pstate, b), property_fragment_(pf)
    { }
    ATTACH_OPERATIONS();
  };

  /////////////////

 view release on metacpan or  search on metacpan

lib/CSS/Scopifier/Group.pm  view on Meta::CPAN

}


### honor the origical CSS::Tiny API:

# Generate a HTML fragment for the CSS
sub html {
  my $css = $_[0]->write_string or return '';
  return "<style type=\"text/css\">\n<!--\n${css}-->\n</style>";
}
 
# Generate an xhtml fragment for the CSS
sub xhtml {
  my $css = $_[0]->write_string or return '';
  return "<style type=\"text/css\">\n/* <![CDATA[ */\n${css}/* ]]> */\n</style>";
}
 

 view release on metacpan or  search on metacpan

lib/CSS/Tiny.pm  view on Meta::CPAN

	}

	return $contents;
}

# Generate a HTML fragment for the CSS
sub html {
	my $css = $_[0]->write_string or return '';
	return "<style type=\"text/css\">\n<!--\n${css}-->\n</style>";
}

# Generate an xhtml fragment for the CSS
sub xhtml {
	my $css = $_[0]->write_string or return '';
	return "<style type=\"text/css\">\n/* <![CDATA[ */\n${css}/* ]]> */\n</style>";
}

 view release on metacpan or  search on metacpan

data/vrt/VeryShortStories.vrt  view on Meta::CPAN

it	PP	it
captivated	VBD	captivate
by	IN	by
an	DT	an
unequalled	JJ	unequalled
fragrance	NN	fragrance
.	SENT	.
</s>
</p>
<p>
<s>

 view release on metacpan or  search on metacpan

lib/CXC/PDL/Bin1D.pd  view on Meta::CPAN

        )->fill_in( hash => { PACKAGE => __PACKAGE__ } );

    }

    # fill in templates using Text::Template::LocalVars.  This routine
    # is also imported into all of the template fragments.
    sub fill_in {

        my ( $type, $src ) = ( shift, shift );

        $src = catfile( ::LIBDIR, $src )

 view release on metacpan or  search on metacpan

inc/Spiffy.pm  view on Meta::CPAN

          ? '{}'
          : default_as_code($default);

    my $code = $code{sub_start};
    if ($args->{-init}) {
        my $fragment = $args->{-weak} ? $code{weak_init} : $code{init};
        $code .= sprintf $fragment, $field, $args->{-init}, ($field) x 4;
    }
    $code .= sprintf $code{set_default}, $field, $default_string, $field
      if defined $default;
    $code .= sprintf $code{return_if_get}, $field;
    $code .= sprintf $code{set}, $field;

 view release on metacpan or  search on metacpan

inc/Spiffy.pm  view on Meta::CPAN

          ? '{}'
          : default_as_code($default);

    my $code = $code{sub_start};
    if ($args->{-init}) {
        my $fragment = $args->{-weak} ? $code{weak_init} : $code{init};
        $code .= sprintf $fragment, $field, $args->{-init}, ($field) x 4;
    }
    $code .= sprintf $code{set_default}, $field, $default_string, $field
      if defined $default;
    $code .= sprintf $code{return_if_get}, $field;
    $code .= sprintf $code{set}, $field;

 view release on metacpan or  search on metacpan

lib/Cache/CacheFactory/Expiry/Size.pm  view on Meta::CPAN

=item no_devel_size => 0 | 1

If the above workaround is in effect it will attempt to use L<Devel::Size>
if it is available, since this module delves into the internals of perl
it can be fragile on perl version changes and you may wish to disable
it if this is causing you problems, to do that set the C<no_devel_size>
option to a true value.

=back