view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

pad_new|||
pad_peg|||n
pad_push|||
pad_reset|||
pad_setsv|||
pad_sv||5.011000|
pad_swipe|||
pad_tidy|||
pad_undef|||
parse_body|||
parse_unicode_opts|||
parser_dup|||
parser_free|||
path_is_absolute|||n
peep|||
pending_Slabs_to_ro|||
perl_alloc_using|||n
perl_alloc|||n
perl_clone_using|||n
perl_clone|||n
perl_construct|||n

ppport.h  view on Meta::CPAN

#endif
#ifndef PERL_PV_PRETTY_DUMP
#  define PERL_PV_PRETTY_DUMP            PERL_PV_PRETTY_ELLIPSES|PERL_PV_PRETTY_QUOTE
#endif

#ifndef PERL_PV_PRETTY_REGPROP
#  define PERL_PV_PRETTY_REGPROP         PERL_PV_PRETTY_ELLIPSES|PERL_PV_PRETTY_LTGT|PERL_PV_ESCAPE_RE
#endif

/* Hint: pv_escape
 * Note that unicode functionality is only backported to
 * those perl versions that support it. For older perl
 * versions, the implementation will fall back to bytes.
 */

#ifndef pv_escape
#if defined(NEED_pv_escape)
static char * DPPP_(my_pv_escape)(pTHX_ SV * dsv, char const * const str, const STRLEN count, const STRLEN max, STRLEN * const escaped, const U32 flags);
static
#else
extern char * DPPP_(my_pv_escape)(pTHX_ SV * dsv, char const * const str, const STRLEN count, const STRLEN max, STRLEN * const escaped, const U32 flags);

t/100_roundtrip.t  view on Meta::CPAN

  [0, "zero"],
  [1, "one"],
  [-1e10, "large int"],
  [1.1, "float"], # FIXME is this ok (float comparison)?
  [-1.1e12, "large float"], # FIXME is this ok (float comparison)?

  ["fghjk", "string"],
  ["fghüjk", "non-ascii string"],
  do {use utf8; ["搜索酒店", "utf8 string"] },
  [$latin1, "latin1 string"],
  [$uni, "unicode string"],
  ["a\nb", "string with newline"],

  [\undef, "constant scalar undef ref"],
  [\"foo", "constant scalar string ref"],

  [[], "empty array ref"],
  [{}, "empty hash ref"],

  [[1, 2, 3], "array ref"],
  [{a => 'b'}, "hash ref"],