view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

pad_sv||5.009005|
pad_swipe|||
pad_tidy|||
pad_undef|||
parse_body|||
parse_unicode_opts|||
parser_dup|||
parser_free|||
path_is_absolute|||n
peep|||
pending_Slabs_to_ro|||

 view release on metacpan or  search on metacpan

CHANGES  view on Meta::CPAN

General

 * Used IO::File instead of IO.

 * Use binmode for all files, to prevent unicode problems with newer
   perls. 

 * Modified a few things that required Perl 5.005, so it now runs
   under 5.004.

 view release on metacpan or  search on metacpan

t/44_ceql_bncweb.t  view on Meta::CPAN

# BNCweb::CEQL expects its input to be in the canonical BNCweb encoding, i.e. Latin-1 + HTML entities;
# the "default" rule first converts the input to a Perl Unicode string, and then re-encodes the resulting CQP query in Latin-1
sub default {
  my ($self, $input) = @_;
  my $unicode = decode("iso-8859-1", $input);
  ##-- # the real implementation uses the HTML::Entities module to decode HTML entities
  ##-- decode_entities($unicode);
  # here, dummy rules covering all entities in the test suite help us to avoid a dependency on the non-standard HTML::Entities module
  $unicode =~ s/\é/\x{E9}/g;
  $unicode =~ s/\à/\x{E0}/g;
  $unicode =~ s/\£/\x{A3}/g;
  $unicode =~ s/\α/\x{03B1}/g;
  $unicode =~ s/\♥/\x{2665}/g;
  $unicode =~ s/\δ/\x{03B4}/g;
  # end of dummy rules
  my $cqp_unicode = $self->Call("ceql_query", $unicode);
  return encode("iso-8859-1", $cqp_unicode, Encode::FB_CROAK);
}

# override literal_string rule to insert HTML entities (for non-Latin-1 characters and special treatment of ")
sub literal_string {
  my ($self, $input) = @_;

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

parser_free|5.009005||Viu
parser_free_nexttoke_ops|5.017006||Viu
parse_stmtseq|5.013006|5.013006|x
parse_subsignature|5.031003|5.031003|x
parse_termexpr|5.013008|5.013008|x
parse_unicode_opts|5.008001||Viu
parse_uniprop_string|5.027011||Viu
PATCHLEVEL|5.003007||Viu
path_is_searchable|5.019001||Vniu
Pause|5.003007||Viu
pause|5.005000||Viu

ppport.h  view on Meta::CPAN

PL_tokenbuf||5.003007|ponu
PL_top_env|5.005000||Viu
PL_toptarget|5.005000||Viu
PL_TR_SPECIAL_HANDLING_UTF8|5.031006||Viu
PL_underlying_numeric_obj|5.027009||Viu
PL_unicode|5.008001||Viu
PL_unitcheckav|5.009005||Viu
PL_unitcheckav_save|5.009005||Viu
PL_unlockhook|5.007003||Viu
PL_unsafe|5.005000||Viu
PL_UpperLatin1|5.019005||Viu

ppport.h  view on Meta::CPAN

#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

 view release on metacpan or  search on metacpan

t/original/utf8.t  view on Meta::CPAN

md5_hex($unistring, "");
print "not " if ( not utf8::is_utf8($unistring));
print "ok 5\n"

} else {
    print "ok 4 # SKIP Your perl is too old to properly test unicode semantics\nok 5 # SKIP No, really\n";
}

 view release on metacpan or  search on metacpan

lib/Alt/common/sense/TOBYINK.pm  view on Meta::CPAN

Importing L<common::sense> is roughly equivalent to:

   use utf8;
   use strict qw(vars subs);
   use feature qw(say state switch);
   use feature qw(unicode_strings current_sub fc evalbytes);
   no feature qw(array_base);
   no warnings;
   use warnings qw(FATAL closed threads internal debugging pack
                   portable prototype inplace io pipe unpack malloc
                   deprecated glob digit printf layer

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

pad_sv||5.009005|
pad_swipe|||
pad_tidy|||
pad_undef|||
parse_body|||
parse_unicode_opts|||
path_is_absolute|||n
peep|||
pending_ident|||
perl_alloc_using|||n
perl_alloc|||n

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

	  indentifier.

0.06  Mon Oct 24 15:25:32 BST 2005
	- Both Read and Write pipes are now Unicode-clean, along with
	  the the temporary files spooled by the background reader.
	- New test-script t/2-unicode.t.

0.05  Mon Oct 10 15:18:29 BST 2005
	- Remove a test from t/0-creation.t that required a listening
	  server on localhost port 80 -- too many people inexplicably
	  do not run web servers :-)

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

    - update API endpoints (Chris Compton)
    - support filenames containing ']]>'
    - updated CloudFront documentation links

0.04    2015-12-29
    - Docs on handling unicode paths (Devin Ceartas)

0.03    2015-09-19
    - Amazon expects GMT times (Devin Ceartas)

0.02    2015-08-11

 view release on metacpan or  search on metacpan

lib/Amazon/S3/Thin.pm  view on Meta::CPAN

=item * C<delimiter> (I<string>) - group keys that contain the same string
between the beginning of the key (or after the prefix, if specified) and the
first occurrence of the delimiter.

=item * C<encoding-type> (I<string>) - if set to "url", will encode keys
in the response (useful when the XML parser can't work unicode keys).

=item * C<marker> (I<string>) - specifies the key to start with when listing
objects. Amazon S3 returns object keys in alphabetical order, starting with
the key right after the marker, in order.

 view release on metacpan or  search on metacpan

factpacks/Linux.fact  view on Meta::CPAN

libtcp++ => <reply> $who, C++ class library to create TCP/IP clients/servers. URL: http://www.sashanet.com/internet/download.html
libtiff => <reply> $who, Library for manipulation of TIFF (Tag Image File Format) images.. URL: http://www.libtiff.org/
Libtool => <reply> $who, GNU libtool is a generic library support script. URL: http://www.gnu.org/software/libtool/
Libundo => <reply> $who, Undo/redo management library. URL: http://undo.xnot.com/
libungif => <reply> $who, A library for reading and writing gif images without LZW compression. URL: http://prtr-13.ucsc.edu/~badger/software/libungif.shtml
libunicode => <reply> $who, Library of unicode string functions and charset converters. URL: http://www.bowerbird.com.au/libunicode/
libutf-8 => <reply> $who, Library of i18n routines for UTF-8 encoding/decoding. URL: http://www.whizkidtech.net/i18n/
LibVRML97/Lookat => <reply> $who, Open VRML97 Toolkit and Browser. URL: http://www.vermontel.net/~cmorley/vrml.html
libwayne => <reply> $who, Abstract Data Types & Algorithms in C. URL: http://www.cs.toronto.edu/~wayne/libwayne/
libwiff => <reply> $who, Library for WIFF files. URL: http://www.fortunecity.com/rivendell/rings/814/libwiff.html
libwmf => <reply> $who, A library to convert microsoft's wmf file format to something useful. URL: http://www.csn.ul.ie/~caolan/docs/libwmf.html

 view release on metacpan or  search on metacpan

lib/Amon2/DBI.pm  view on Meta::CPAN

    $attr->{ShowErrorStatement} = 1;
    if ($DBI::VERSION >= 1.614) {
        $attr->{AutoInactiveDestroy} = 1 unless exists $attr->{AutoInactiveDestroy};
    }
    if ($dsn =~ /^dbi:SQLite:/i) {
        $attr->{sqlite_unicode} = 1 unless exists $attr->{sqlite_unicode};
    }
    elsif ($dsn =~ /^dbi:mysql:/i) {
        $attr->{mysql_enable_utf8} = 1 unless exists $attr->{mysql_enable_utf8};
    }
    elsif ($dsn =~ /^dbi:Pg:/i) {

lib/Amon2/DBI.pm  view on Meta::CPAN

=item Set AutoInactiveDestroy to true.

If your DBI version is higher than 1.614, Amon2::DBI set AutoInactiveDestroy as true.

=item Set sqlite_unicode and mysql_enable_utf8 and pg_enable_utf8 automatically

Amon2::DBI set sqlite_unicode and mysql_enable_utf8 automatically.
If using DBD::Pg version less than 2.99, pg_enable_utf8 too.

=item Nested transaction management.

Amon2::DBI supports nested transaction management based on RAII like DBIx::Class or DBIx::Skinny. It uses L<DBIx::TransactionManager> internally.

 view release on metacpan or  search on metacpan

inc/Pod/Markdown.pm  view on Meta::CPAN

        if ($section){
            # TODO: sites/pod formatters differ on how to transform the section
            # TODO: we could do it according to specified url prefix or pod formatter
            # TODO: or allow a coderef?
            # TODO: (Pod::Simple::XHTML:idify() for metacpan)
            # TODO: (Pod::Simple::HTML section_escape/unicode_escape_url/section_url_escape for s.c.o.)
            $url .= '#' . $section;
        }
    }

    # if we don't know how to handle the url just print the pod back out

 view release on metacpan or  search on metacpan

t/01_teng.t  view on Meta::CPAN

    'DBI' => [
        "dbi:SQLite:dbname=$dbpath",
        '',
        '',
        +{
            sqlite_unicode => 1,
        }
    ],
};
...

 view release on metacpan or  search on metacpan

share/flavor/Basic/config/__ENV__.pl  view on Meta::CPAN

my $dbpath = File::Spec->catfile($basedir, 'db', '<% $env %>.db');
+{
    'DBI' => [
        "dbi:SQLite:dbname=$dbpath", '', '',
        +{
            sqlite_unicode => 1,
        }
    ],
};

 view release on metacpan or  search on metacpan

lib/Android/ElectricSheep/Automator.pm  view on Meta::CPAN

use Image::PNG;
use XML::LibXML;
use XML::LibXML::XPathContext;
use Text::ParseWords;

use Data::Roundtrip qw/perl2dump perl2json no-unicode-escape-permanently/;

use Android::ElectricSheep::Automator::DeviceProperties;
use Android::ElectricSheep::Automator::AppProperties;
use Android::ElectricSheep::Automator::ScreenLayout;
use Android::ElectricSheep::Automator::XMLParsers;

lib/Android/ElectricSheep/Automator.pm  view on Meta::CPAN

	if( $self->tap($params) ){ $log->error("${whoami} (via $parent), line ".__LINE__." : error, failed to tap on the position of the recipient of the text input"); return 1 }
	usleep(0.8);

	# and send the text
	# adb shell input text 'hello%sworld'
	# does not support unicode and also spaces must be converted to %s
	my @cmd = ('input', 'text', $text);
	if( $verbosity > 0 ){ $log->info("${whoami} (via $parent), line ".__LINE__." : sending command to adb: @cmd") }
	my $res = $self->adb->shell(@cmd);
	if( ! defined $res ){ $log->error(join(" ", @cmd)."\n${whoami} (via $parent), line ".__LINE__." : error, above shell command has failed, got undefined result, most likely shell command did not run at all, this should not be happening."); return 1 }
	if( $res->[0] != 0 ){ $log->error(join(" ", @cmd)."\n${whoami} (via $parent), line ".__LINE__." : error, above shell command has failed, with:\nSTDOUT:\n".$res->[1]."\n\nSTDERR:\n".$res->[2]."\nEND."); return 1 }

lib/Android/ElectricSheep/Automator.pm  view on Meta::CPAN

=over 4

=item B<C<text>>

the text to write on the text edit widget. At the
moment, this must be plain ASCII string, not unicode.
No spaces are accepted.
Each space character must be replaced with C<%s>.

=item B<C<position>>

 view release on metacpan or  search on metacpan

src/ppport.h  view on Meta::CPAN

parse_label||5.013007|
parse_listexpr||5.013008|
parse_lparen_question_flags|||
parse_stmtseq||5.013006|
parse_termexpr||5.013008|
parse_unicode_opts|||
parser_dup|||
parser_free_nexttoke_ops|||
parser_free|||
path_is_searchable|||n
peep|||

src/ppport.h  view on Meta::CPAN

#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

 view release on metacpan or  search on metacpan

lib/Antsy.pm  view on Meta::CPAN

OSC 1337 ; PushKeyLabels=[label] ST
OSC 1337 ; PopKeyLabels=[label] ST
Where [label] is an ASCII string that works best if it is unique in the stack.

=item * unicode_version

iTerm2 by default uses Unicode 9's width tables. The user can opt to use Unicode 8's tables with a preference (for backward compatibility with older locale databases). Since not all apps will be updated at the same time, you can tell iTerm2 to use a ...

OSC 1337 ; UnicodeVersion=[n] ST
Where [n] is 8 or 9

 view release on metacpan or  search on metacpan

GDB.pm  view on Meta::CPAN

);

sub _parse_c_string {
   my $r = "";

   # syntax is not documented, so we do full C99, except unicode

   while () {
      if (/\G([^"\\\n]+)/gc) {
         $r .= $1;
      } elsif (/\G\\([abtnvfr\\"'?])/gc) {

 view release on metacpan or  search on metacpan

lib/AnyEvent/IRC/Client.pm  view on Meta::CPAN

use AnyEvent::Socket;
use AnyEvent::Handle;
use AnyEvent::IRC::Util
      qw/prefix_nick decode_ctcp split_prefix
         is_nick_prefix join_prefix encode_ctcp
         split_unicode_string mk_msg/;

use base AnyEvent::IRC::Connection::;

=head1 NAME

lib/AnyEvent/IRC/Client.pm  view on Meta::CPAN

   # split up the multiple lines in the message:
   my @lines = split /\n/, $msg;

   # splitup long lines into multiple ones:
   @lines =
      map split_unicode_string ($encoding, $_, $line_len), @lines;

   # send lines line-by-line:
   for my $line (@lines) {
      my $smsg = encode ($encoding, $line);

 view release on metacpan or  search on metacpan

MPV.pm  view on Meta::CPAN

examples later in the documentation.

=head2 ENCODING CONVENTIONS

As a rule of thumb, all data you pass to this module to be sent to F<mpv>
is expected to be in unicode. To pass something that isn't, you need to
escape it using C<escape_binary>.

Data received from F<mpv>, however, is I<not> decoded to unicode, as data
returned by F<mpv> is not generally encoded in unicode, and the encoding
is usually unspecified. So if you receive data and expect it to be in
unicode, you need to first decode it from UTF-8, but note that this might
fail. This is not a limitation of this module - F<mpv> simply does not
specify nor guarantee a specific encoding, or any encoding at all, in its
protocol.

=head2 METHODS

MPV.pm  view on Meta::CPAN

   }, $class
}

=item $string = $mpv->escape_binary ($string)

This module excects all command data sent to F<mpv> to be in unicode. Some
things are not, such as filenames. To pass binary data such as filenames
through a comamnd, you need to escape it using this method.

The simplest example is a C<loadfile> command:

MPV.pm  view on Meta::CPAN

some example code to copy.

=head2 doomfrontend

At one point I replaced mythtv-frontend by my own terminal-based video
player (based on rxvt-unicode). I toyed with the diea of using F<mpv>'s
subtitle engine to create the user interface, but that is hard to use
since you don't know how big your letters are. It is also where most of
this modules code has originally been developed in.

It uses a unified input queue to handle various remote controls, so its

 view release on metacpan or  search on metacpan

lib/AnyEvent/RPC/Enc/YAML.pm  view on Meta::CPAN

AnyEvent::RPC::Enc::YAML - YAML Encoder for AE::RPC

=head1 DESCRIPTION

Uses YAML::Syck in unicode mode for encoding requests end decode response

=head1 SYNOPSIS

    use AnyEvent::RPC;
    

 view release on metacpan or  search on metacpan

Gnu.pm  view on Meta::CPAN

The only mandatory parameter - passes the callback that will receive lines
that are completed by the user.

The string will be in locale-encoding (a multibyte character string). For
example, in an utf-8 using locale it will be utf-8. There is no portable
way known to the author to convert this into e.g. a unicode string.

=item prompt => $string

The prompt string to use, defaults to C<< >  >>.

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

  * Diagnostics and timeout bump in test to debug some
    cpan-tester environments
  * Remove MYMETA files from distribution
  * Bugfix: Worker was using default JSON::XS settings instead
    of utf-8 mode
  * Add unicode test
  * Document error handling with Callback::Frame
  * Remove scary "the api might change" warning. I think we're
    pretty much stable now
  * Misc doc edits

 view release on metacpan or  search on metacpan

examples/demo.pl  view on Meta::CPAN

   on_key => sub {
      my ( $key ) = @_;

      print "Got key: ".$key->termkey->format_key( $key, FORMAT_VIM )."\n";

      $cv->send if $key->type_is_unicode and
                   $key->utf8 eq "C" and
                   $key->modifiers & KEYMOD_CTRL;
   },
);

 view release on metacpan or  search on metacpan

WebDriver.pm  view on Meta::CPAN

=item $wd->element_send_keys ($element, $text)

Sends the given text as key events to the given element. Key input state
can be cleared by embedding C<\x{e000}> in C<$text>. Presumably, you can
embed modifiers using their unicode codepoints, but the specification is
less than clear to mein this area.

=cut

sub element_click_ {

WebDriver.pm  view on Meta::CPAN

   $al->key ("{Enter}");

=item $al = $al->type ($string, $source)

Convenience method to simulate a series of key press and release events
for the keys in C<$string>, one pair per extended unicode grapheme
cluster. There is no syntax for special keys, everything will be typed
"as-is" if possible.

=cut

 view release on metacpan or  search on metacpan

t/anyevent_websocket_connection.t  view on Meta::CPAN

      },
      'connection has finish code and reason',
    );
  };

  subtest 'unicode' => sub {

    my($x, $y) = create_connection_pair;

    my $cv = AnyEvent->condvar;
    my $reason;

 view release on metacpan or  search on metacpan

lib/AnyEvent/XMPP/Node.pm  view on Meta::CPAN

=item B<as_string ()>

This method returns the original character representation of this XML element
(and it's children nodes). Please note that the string is a unicode string,
meaning: to get octets use:

   my $octets = encode ('UTF-8', $node->as_string);

Now you can roll stunts like this:

 view release on metacpan or  search on metacpan

ppport.h  view on Meta::CPAN

parse_listexpr||5.013008|
parse_lparen_question_flags|||
parse_stmtseq||5.013006|
parse_subsignature|||
parse_termexpr||5.013008|
parse_unicode_opts|||
parser_dup|||
parser_free_nexttoke_ops|||
parser_free|||
path_is_searchable|||n
peep|||

ppport.h  view on Meta::CPAN

#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

 view release on metacpan or  search on metacpan

lib/AnyEvent.pm  view on Meta::CPAN

=head1 NAME

AnyEvent - the DBI of event loop programming

EV, Event, Glib, Tk, UV, Perl, Event::Lib, Irssi, rxvt-unicode, IO::Async,
Qt, FLTK and POE are various supported event loops/environments.

=head1 SYNOPSIS

   use AnyEvent;

lib/AnyEvent.pm  view on Meta::CPAN

=item Known event loops outside the AnyEvent distribution

The following event loops or programs support AnyEvent by providing their
own AnyEvent backend. They will be picked up automatically.

   urxvt::anyevent           available to rxvt-unicode extensions

=back

=head1 GLOBAL VARIABLES AND FUNCTIONS

lib/AnyEvent.pm  view on Meta::CPAN

backend has been autodetected.

Afterwards it contains the event model that is being used, which is the
name of the Perl class implementing the model. This class is usually one
of the C<AnyEvent::Impl::xxx> modules, but can be any other class in the
case AnyEvent has been extended at runtime (e.g. in I<rxvt-unicode> it
will be C<urxvt::anyevent>).

=item AnyEvent::detect

Returns C<$AnyEvent::MODEL>, forcing autodetection of the event model

lib/AnyEvent.pm  view on Meta::CPAN

see the sources.

If you don't provide C<signal> and C<child> watchers than AnyEvent will
provide suitable (hopefully) replacements.

The above example isn't fictitious, the I<rxvt-unicode> (a.k.a. urxvt)
terminal emulator uses the above line as-is. An interface isn't included
in AnyEvent because it doesn't make sense outside the embedded interpreter
inside I<rxvt-unicode>, and it is updated and maintained as part of the
I<rxvt-unicode> distribution.

I<rxvt-unicode> also cheats a bit by not providing blocking access to
condition variables: code blocking while waiting for a condition will
C<die>. This still works with most modules/usages, and blocking calls must
not be done in an interactive application, so it makes sense.

=head1 EXAMPLE PROGRAM