Result:
found more than 1015 distributions - search limited to the first 2001 files matching your query
( run in 0.698 )
File-KDBX-XS
view release on metacpan or search on metacpan
BOL_t8_p8|5.033003||Viu
BOL_t8_pb|5.033003||Viu
BOL_tb|5.035004||Viu
BOL_tb_p8|5.033003||Viu
BOL_tb_pb|5.033003||Viu
BOM_UTF8|5.025005|5.003007|p
BOM_UTF8_FIRST_BYTE|5.019004||Viu
BOM_UTF8_TAIL|5.019004||Viu
boolSV|5.004000|5.003007|p
boot_core_builtin|5.035007||Viu
boot_core_mro|5.009005||Viu
boot_core_PerlIO|5.007002||Viu
boot_core_UNIVERSAL|5.003007||Viu
#endif
#endif
#if 'A' == 65
#ifndef BOM_UTF8
# define BOM_UTF8 "\xEF\xBB\xBF"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xEF\xBF\xBD"
#endif
#elif '^' == 95
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x73\x66\x73"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x73\x73\x71"
#endif
#elif '^' == 176
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x72\x65\x72"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x72\x72\x70"
#endif
File-LibMagic
view release on metacpan or search on metacpan
BmFLAGS|5.009005||Viu
BmPREVIOUS|5.003007||Viu
BmRARE|5.003007||Viu
BmUSEFUL|5.003007||Viu
BOL|5.003007||Viu
BOM_UTF8|5.025005|5.003007|p
BOM_UTF8_FIRST_BYTE|5.019004||Viu
BOM_UTF8_TAIL|5.019004||Viu
bool|5.003007||Viu
boolSV|5.004000|5.003007|p
boot_core_mro|5.009005||Viu
boot_core_PerlIO|5.007002||Viu
boot_core_UNIVERSAL|5.003007||Viu
#endif
#endif
#if 'A' == 65
#ifndef BOM_UTF8
# define BOM_UTF8 "\xEF\xBB\xBF"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xEF\xBF\xBD"
#endif
#elif '^' == 95
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x73\x66\x73"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x73\x73\x71"
#endif
#elif '^' == 176
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x72\x65\x72"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x72\x72\x70"
#endif
File-Listing-Ftpcopy
view release on metacpan or search on metacpan
xs/ppport.h view on Meta::CPAN
(index($4, 'n') >= 0 ? ( nothxarg => 1 ) : ()),
} )
: die "invalid spec: $_" } qw(
AvFILLp|5.004050||p
AvFILL|||
BOM_UTF8|||
BhkDISABLE||5.024000|
BhkENABLE||5.024000|
BhkENTRY_set||5.024000|
BhkENTRY|||
BhkFLAGS|||
File-LoadLines
view release on metacpan or search on metacpan
lib/File/LoadLines.pm view on Meta::CPAN
It will transparently fetch data from the network if the provided file
name is a URL.
File::LoadLines automatically handles ASCII, Latin-1 and UTF-8 text.
When the file has a BOM, it handles UTF-8, UTF-16 LE and BE, and
UTF-32 LE and BE.
Recognized line terminators are NL (Unix, Linux), CRLF (DOS, Windows)
and CR (Mac)
lib/File/LoadLines.pm view on Meta::CPAN
$options->{encoding} //= 'Perl';
}
# Detect Byte Order Mark.
elsif ( $data =~ /^\xEF\xBB\xBF/ ) {
warn("$name is UTF-8 (BOM)\n") if $options->{debug};
$options->{encoding} = 'UTF-8';
$data = decode( "UTF-8", substr($data, 3) );
}
elsif ( $data =~ /^\xFE\xFF/ ) {
warn("$name is UTF-16BE (BOM)\n") if $options->{debug};
$options->{encoding} = 'UTF-16BE';
$data = decode( "UTF-16BE", substr($data, 2) );
}
elsif ( $data =~ /^\xFF\xFE\x00\x00/ ) {
warn("$name is UTF-32LE (BOM)\n") if $options->{debug};
$options->{encoding} = 'UTF-32LE';
$data = decode( "UTF-32LE", substr($data, 4) );
}
elsif ( $data =~ /^\xFF\xFE/ ) {
warn("$name is UTF-16LE (BOM)\n") if $options->{debug};
$options->{encoding} = 'UTF-16LE';
$data = decode( "UTF-16LE", substr($data, 2) );
}
elsif ( $data =~ /^\x00\x00\xFE\xFF/ ) {
warn("$name is UTF-32BE (BOM)\n") if $options->{debug};
$options->{encoding} = 'UTF-32BE';
$data = decode( "UTF-32BE", substr($data, 4) );
}
# No BOM, did user specify an encoding?
elsif ( $options->{encoding} ) {
warn("$name is ", $options->{encoding}, " (fallback)\n")
if $options->{debug};
$data = decode( $options->{encoding}, $data, 1 );
}
lib/File/LoadLines.pm view on Meta::CPAN
loadlines( $filename, $options );
}
=head1 SEE ALSO
There are currently no other modules that handle BOM detection and
line splitting.
I have a faint hope that future versions of Perl and Raku will deal
with this transparently, but I fear the worst.
File-Locate-Iterator
view release on metacpan or search on metacpan
bind_match|5.003007||Viu
block_end|5.004000|5.004000|
block_gimme|5.004000|5.004000|u
blockhook_register|5.013003|5.013003|x
block_start|5.004000|5.004000|
BOM_UTF8|5.025005|5.003007|p
boolSV|5.004000|5.003007|p
boot_core_mro|5.009005||Viu
boot_core_PerlIO|5.007002||Viu
boot_core_UNIVERSAL|5.003007||Viu
_byte_dump_string|5.025006||Viu
#endif
#endif
#if 'A' == 65
#ifndef BOM_UTF8
# define BOM_UTF8 "\xEF\xBB\xBF"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xEF\xBF\xBD"
#endif
#elif '^' == 95
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x73\x66\x73"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x73\x73\x71"
#endif
#elif '^' == 176
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x72\x65\x72"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x72\x72\x70"
#endif
File-Map
view release on metacpan or search on metacpan
lib/File/ppport.h view on Meta::CPAN
BOL_t8_p8|5.033003||Viu
BOL_t8_pb|5.033003||Viu
BOL_tb|5.035004||Viu
BOL_tb_p8|5.033003||Viu
BOL_tb_pb|5.033003||Viu
BOM_UTF8|5.025005|5.003007|p
BOM_UTF8_FIRST_BYTE|5.019004||Viu
BOM_UTF8_TAIL|5.019004||Viu
boolSV|5.004000|5.003007|p
boot_core_builtin|5.035007||Viu
boot_core_mro|5.009005||Viu
boot_core_PerlIO|5.007002||Viu
boot_core_UNIVERSAL|5.003007||Viu
lib/File/ppport.h view on Meta::CPAN
#endif
#endif
#if 'A' == 65
#ifndef BOM_UTF8
# define BOM_UTF8 "\xEF\xBB\xBF"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xEF\xBF\xBD"
#endif
#elif '^' == 95
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x73\x66\x73"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x73\x73\x71"
#endif
#elif '^' == 176
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x72\x65\x72"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x72\x72\x70"
#endif
File-Text-CSV
view release on metacpan or search on metacpan
lib/File/Text/CSV.pm view on Meta::CPAN
=item encoding
Encoding to open the file with. Default encoding is UTF-8, unless
header processing is enabled and the file starts with a byte order
mark (BOM).
=item append
If true, new records written will be appended to the file.
File-ValueFile
view release on metacpan or search on metacpan
lib/File/ValueFile/Simple/Reader.pm view on Meta::CPAN
delete $self->{features};
while (my $line = <$fh>) {
$line =~ s/\r?\n$//;
$line =~ s/#.*$//;
$line =~ s/^\xEF\xBB\xBF//; # skip BOMs.
$line =~ s/\s+/ /g;
$line =~ s/ $//;
$line =~ s/^ //;
next unless length $line;
Filesys-Restrict
view release on metacpan or search on metacpan
easyxs/ppport.h view on Meta::CPAN
BOL_t8_p8|5.033003||Viu
BOL_t8_pb|5.033003||Viu
BOL_tb|5.035004||Viu
BOL_tb_p8|5.033003||Viu
BOL_tb_pb|5.033003||Viu
BOM_UTF8|5.025005|5.003007|p
BOM_UTF8_FIRST_BYTE|5.019004||Viu
BOM_UTF8_TAIL|5.019004||Viu
boolSV|5.004000|5.003007|p
boot_core_builtin|5.035007||Viu
boot_core_mro|5.009005||Viu
boot_core_PerlIO|5.007002||Viu
boot_core_UNIVERSAL|5.003007||Viu
easyxs/ppport.h view on Meta::CPAN
#endif
#endif
#if 'A' == 65
#ifndef BOM_UTF8
# define BOM_UTF8 "\xEF\xBB\xBF"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xEF\xBF\xBD"
#endif
#elif '^' == 95
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x73\x66\x73"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x73\x73\x71"
#endif
#elif '^' == 176
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x72\x65\x72"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x72\x72\x70"
#endif
Filter-Template
view release on metacpan or search on metacpan
t/000-report-versions.t view on Meta::CPAN
return $self->_error("Did not provide a string to load");
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
return $self->_error("Stream has a non UTF-8 BOM");
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
Filter-gunzip
view release on metacpan or search on metacpan
bind_match|5.003007||Viu
block_end|5.004000|5.004000|
block_gimme|5.004000|5.004000|u
blockhook_register|5.013003|5.013003|x
block_start|5.004000|5.004000|
BOM_UTF8|5.025005|5.003007|p
boolSV|5.004000|5.003007|p
boot_core_mro|5.009005||Viu
boot_core_PerlIO|5.007002||Viu
boot_core_UNIVERSAL|5.003007||Viu
_byte_dump_string|5.025006||Viu
#endif
#endif
#if 'A' == 65
#ifndef BOM_UTF8
# define BOM_UTF8 "\xEF\xBB\xBF"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xEF\xBF\xBD"
#endif
#elif '^' == 95
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x73\x66\x73"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x73\x73\x71"
#endif
#elif '^' == 176
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x72\x65\x72"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x72\x72\x70"
#endif
Finance-Instrument
view release on metacpan or search on metacpan
share/iso10383_mic.csv view on Meta::CPAN
XBLB,BANJA LUKA STOCK EXCHANGE,BA,BOSNIA AND HERZEGOVINA,BANJA LUKA, ,October 2005,Active
XBLN,BLUENEXT,FR,FRANCE,PARIS,,April 2011,Active
XBNV,"BOLSA NACIONAL DE VALORES, S.A.",CR,COSTA RICA,SAN JOSE,BNV,June 2005,Active
XBOG,BOLSA DE VALORES DE COLOMBIA,CO,COLOMBIA,BOGOTA,BVC,June 2005,Active
XBOL,BOLSA BOLIVIANA DE VALORES S.A.,BO,BOLIVIA,LA PAZ, ,June 2005,Active
XBOM,BSE LTD.,IN,INDIA,MUMBAI,MSE,September 2011,Active
XBOS,NASDAQ OMX BX,US,UNITED STATES OF AMERICA,BOSTON,BSE,February 2009,Active
XBOT,BOTSWANA STOCK EXCHANGE,BW,BOTSWANA,GABORONE, ,June 2005,Active
XBOX,BOSTON OPTIONS EXCHANGE,US,UNITED STATES OF AMERICA,BOSTON,BOX,June 2005,Active
XBRA,BRATISLAVA STOCK EXCHANGE,SK,SLOVAKIA,BRATISLAVA,BSSE,June 2005,Active
XBRD,NYSE EURONEXT - EURONEXT BRUSSELS - DERIVATIVES,BE,BELGIUM,BRUSSELS, ,November 2007,Active
Finance-Quote
view release on metacpan or search on metacpan
lib/Finance/Quote/YahooJSON.pm view on Meta::CPAN
#!/usr/bin/perl -w
# This module is based on the Finance::Quote::BSERO module
# It was first called BOMSE but has been renamed to yahooJSON
# since it gets a lot of quotes besides Indian
#
# The code has been modified by Abhijit K to
# retrieve stock information from Yahoo Finance through json calls
#
Finance-QuoteHist
view release on metacpan or search on metacpan
lib/Finance/QuoteHist/Generic.pm view on Meta::CPAN
my @patterns = $self->patterns(@_);
sub {
my $data = shift;
return [] unless defined $data;
my @csv_lines = ref $data ? <$data> : split("\n", $data);
# BOM squad (byte order mark, as csv from google tends to be)
if ($csv_lines[0] =~ s/^\xEF\xBB\xBF//) {
for my $i (0 .. $#csv_lines) {
utf8::decode($csv_lines[$i]);
}
}
FrameMaker-MifTree
view release on metacpan or search on metacpan
lib/FrameMaker/MifTree/MifTreeTags view on Meta::CPAN
DXmlFileEncoding
DXmlPublicId
DXmlStandAlone
DXmlStyleSheet
DXmlSystemId
DXmlUseBOM
DXmlVersion
DXmlWellFormed
AcrobatElements
Book
BNextUnique
lib/FrameMaker/MifTree/MifTreeTags view on Meta::CPAN
BXmlDocType
BXmlEncoding
BXmlFileEncoding
BXmlStandAlone
BXmlStyleSheet
BXmlUseBOM
BXmlVersion
BXmlWellFormed
BookXRef
BookUpdateReferences
)],
lib/FrameMaker/MifTree/MifTreeTags view on Meta::CPAN
BXmlDocType => 'string',
BXmlEncoding => 'string',
BXmlFileEncoding => 'string',
BXmlStandAlone => 'integer',
BXmlStyleSheet => 'string',
BXmlUseBOM => 'integer',
BXmlVersion => 'string',
BXmlWellFormed => 'integer',
BaseAngle => 'integer',
BaseCharWithRubi => 'data',
BaseCharWithSuper => 'data',
lib/FrameMaker/MifTree/MifTreeTags view on Meta::CPAN
DXmlFileEncoding => 'string',
DXmlPublicId => 'string',
DXmlStandAlone => 'integer',
DXmlStyleSheet => 'string',
DXmlSystemId => 'string',
DXmlUseBOM => 'integer',
DXmlVersion => 'string',
DXmlWellFormed => 'integer',
DashSegment => 'dimension',
DashedStyle => 'keyword',
DataLinkEnd => 'empty',
Game-Kezboard
view release on metacpan or search on metacpan
sub HERO () { 0 } # where in @animates the player lives (also ID)
sub GOAL () { 1 }
sub SCRAM () { 2 } # animate IDs
sub BOMB () { 3 }
sub XX () { 0 } # points, and @animates index slots
sub YY () { 1 }
sub IX () { 2 } # animate inertia
sub IY () { 3 }
my $cards_played = ~0; # score (lower is better)
my @collisions;
$collisions[HERO][GOAL] = \&collide_hero_goal;
$collisions[HERO][SCRAM] = \&collide_hero_scram;
$collisions[HERO][BOMB] = \&collide_hero_bomb;
$collisions[GOAL][HERO] = \&collide_hero_goal;
$collisions[GOAL][SCRAM] = \&collide_gate_scram;
my $clicks; # quadtree foo
if ( $level >= 4 ) {
my $n = 29;
$n = 17 if $level == 5;
for ( 1 .. $n ) {
push @animates,
make_animate( BOMB, 'Bomb', random_point_unique(), 0, [$bombi] );
place_animate( $animates[-1] );
}
}
# NOTE you could instead first collect everything and shuffle here
Game-PlatformsOfPeril
view release on metacpan or search on metacpan
lib/Game/PlatformsOfPeril.pm view on Meta::CPAN
sub unalt_screen () { "\e[?1049l" }
# WHAT Animates and such can be
sub HERO () { 0 }
sub MONST () { 1 }
sub BOMB () { 2 }
sub GEM () { 3 }
sub FLOOR () { 4 }
sub WALL () { 5 }
sub LADDER () { 6 }
sub STAIR () { 7 }
sub STATUE () { 8 }
sub BOMB_COST () { 2 }
sub GEM_VALUE () { 1 }
# for the Level Map Cell (LMC)
sub WHERE () { 0 }
sub GROUND () { 1 }
lib/Game/PlatformsOfPeril.pm view on Meta::CPAN
sub UPDATE () { 4 }
sub LMC () { 5 }
sub BLACK_SPOT () { 6 }
sub GEM_STASH () { 0 }
sub BOMB_STASH () { 1 }
sub GEM_ODDS () { 1 }
sub GEM_ODDS_ADJUST () { 0.05 }
sub START_GEMS () { 0 }
sub START_BOMBS () { 1 }
sub GRAPH_NODE () { 0 }
sub GRAPH_WEIGHT () { 1 }
sub GRAPH_POINT () { 2 }
our %CharMap = (
'o' => BOMB,
'.' => FLOOR,
'*' => GEM,
'@' => HERO,
'=' => LADDER,
'P' => MONST,
lib/Game/PlatformsOfPeril.pm view on Meta::CPAN
our @Styles =
qw(Abstract Art-Deco Brutalist Egyptian Greek Impressionist Post-Modern Roman Romantic);
our $Style = $Styles[ rand @Styles ];
our %Things = (
BOMB, [ BOMB, "\e[31mo\e[0m", ITEM ],
FLOOR, [ FLOOR, "\e[33m.\e[0m", FLOOR ],
GEM, [ GEM, "\e[32m*\e[0m", ITEM ],
LADDER, [ LADDER, "\e[37m=\e[0m", LADDER ],
STAIR, [ FLOOR, "\e[37m%\e[0m", STAIR ],
STATUE, [ FLOOR, "\e[1;33m&\e[0m", STATUE ],
WALL, [ WALL, "\e[35m#\e[0m", WALL ],
);
our %Descriptions = (
BOMB, 'Bomb. Avoid.',
FLOOR, 'Empty cell.',
GEM, 'A gem. Get these.',
HERO, 'The much suffering hero.',
LADDER, 'A ladder.',
MONST, $Monst_Name . '. Wants to kill you.',
lib/Game/PlatformsOfPeril.pm view on Meta::CPAN
STATUE, 'Empty cell with decorative statue.',
WALL, 'A wall.',
);
$Animates[HERO]->@[ WHAT, DISP, TYPE, STASH, UPDATE ] = (
HERO, "\e[1;33m\@\e[0m", ANI, [ START_GEMS, START_BOMBS ],
\&update_hero
);
our %Interact_With = (
HERO, # the target of the mover
sub {
my ( $mover, $target ) = @_;
game_over_monster() if $mover->[WHAT] == MONST;
game_over_bomb() if $mover->[WHAT] == BOMB;
grab_gem( $target, $mover );
},
MONST,
sub {
my ( $mover, $target ) = @_;
game_over_monster() if $mover->[WHAT] == HERO;
if ( $mover->[WHAT] == BOMB ) {
my @cells = map { kill_animate( $_, 1 ); $_->[LMC][WHERE] } $mover,
$target;
redraw_ref( \@cells );
$Explosions{ join ',', $target->[LMC][WHERE]->@* } = $target;
} elsif ( $mover->[WHAT] == GEM ) {
grab_gem( $target, $mover );
}
},
BOMB,
sub {
my ( $mover, $target ) = @_;
game_over_bomb() if $mover->[WHAT] == HERO;
if ( $mover->[WHAT] == MONST ) {
my @cells = map { kill_animate( $_, 1 ); $_->[LMC][WHERE] } $mover,
lib/Game/PlatformsOfPeril.pm view on Meta::CPAN
post_message("\@ $Animates[HERO][LMC][WHERE]->@* R $Rotation");
return MOVE_FAILED;
},
'$' => sub {
post_message( 'You have '
. $Animates[HERO][STASH][BOMB_STASH]
. ' bombs and '
. $Animates[HERO][STASH][GEM_STASH]
. ' gems.' );
return MOVE_FAILED;
},
lib/Game/PlatformsOfPeril.pm view on Meta::CPAN
load_level();
print clear_screen(), draw_level();
post_message( 'Level '
. $Level
. ' (You have '
. $Animates[HERO][STASH][BOMB_STASH]
. ' bombs and '
. $Animates[HERO][STASH][GEM_STASH]
. ' gems.)' );
return MOVE_NEWLVL;
} else {
lib/Game/PlatformsOfPeril.pm view on Meta::CPAN
}
},
'B' => sub {
my $lmc = $Animates[HERO][LMC];
return MOVE_FAILED, 'You have no bombs (make them from gems).'
if $Animates[HERO][STASH][BOMB_STASH] < 1;
return MOVE_FAILED, 'There is already an item in this cell.'
if defined $lmc->[ITEM];
$Animates[HERO][STASH][BOMB_STASH]--;
make_item( $lmc->[WHERE], BOMB, 0 );
return MOVE_OK;
},
'M' => sub {
return MOVE_FAILED, 'You need more gems.'
if $Animates[HERO][STASH][GEM_STASH] < BOMB_COST;
$Animates[HERO][STASH][GEM_STASH] -= BOMB_COST;
post_message(
'You now have ' . ++$Animates[HERO][STASH][BOMB_STASH] . ' bombs' );
return MOVE_OK;
},
'Q' => sub { game_over('Be seeing you...') },
'q' => sub { game_over('Be seeing you...') },
"\003" => sub { # <C-c>
lib/Game/PlatformsOfPeril.pm view on Meta::CPAN
my $colnum = 0;
for my $v ( split //, $line ) {
my $c = $CharMap{$v} // game_over("Unknown character $v at $file:$.");
my $point = [ $colnum++, $rownum ]; # PCOL, PROW (x, y)
if ( exists $Things{$c} ) {
if ( $c eq BOMB ) {
push $LMap->[$rownum]->@*, [ $point, $Things{ FLOOR, } ];
make_item( $point, BOMB, 0 );
} elsif ( $c eq GEM ) {
push $LMap->[$rownum]->@*, [ $point, $Things{ FLOOR, } ];
make_item( $point, GEM, GEM_VALUE );
} else {
push $LMap->[$rownum]->@*, [ $point, $Things{$c} ];
lib/Game/PlatformsOfPeril.pm view on Meta::CPAN
sub make_monster {
my ($point) = @_;
my $monst;
my $ch = substr $Monst_Name, 0, 1;
# STASH replicates that of the HERO for simpler GEM handling code
# though the BOMB_STASH is instead used for GEM_ODDS
$monst->@[ WHAT, DISP, TYPE, STASH, UPDATE, LMC ] = (
MONST, "\e[1;33m$ch\e[0m", ANI, [ 0, 0.0 ],
\&update_monst, $LMap->[ $point->[PROW] ][ $point->[PCOL] ]
);
push @Animates, $monst;
lib/Game/PlatformsOfPeril.pm view on Meta::CPAN
post_message( ' '
. $Things{ STATUE, }[DISP]
. ' - a large granite statue done in the' );
post_message( ' ' . $Style . ' style' );
post_message( ' '
. $Things{ BOMB, }[DISP]
. ' - Bomb '
. $Things{ GEM, }[DISP]
. ' - Gem (get these)' );
post_message('');
post_message(' h j k l - move');
post_message(' < > - activate left or right boot');
post_message(' B - drop a Bomb');
post_message(
' M - make a Bomb (consumes ' . BOMB_COST . ' Gems)' );
post_message( ' % - when on '
. $Things{ STAIR, }[DISP]
. ' goes to the next level' );
post_message(' . space - pass a turn (handy when falling)');
post_message('');
post_message(' Q q - quit the game (no save)');
post_message(' $ - display Bomb and Gem counts');
post_message(' ? - post these help messages');
post_message('');
post_message( 'You have '
. $Animates[HERO][STASH][BOMB_STASH]
. ' bombs and '
. $Animates[HERO][STASH][GEM_STASH]
. ' gems.' );
}
Game-RaycastFOV
view release on metacpan or search on metacpan
bind_match|5.003007||Viu
block_end|5.004000|5.004000|
block_gimme|5.004000|5.004000|u
blockhook_register|5.013003|5.013003|x
block_start|5.004000|5.004000|
BOM_UTF8|5.025005|5.003007|p
boolSV|5.004000|5.003007|p
boot_core_mro|5.009005||Viu
boot_core_PerlIO|5.007002||Viu
boot_core_UNIVERSAL|5.003007||Viu
_byte_dump_string|5.025006||cViu
#endif
#endif
#if 'A' == 65
#ifndef BOM_UTF8
# define BOM_UTF8 "\xEF\xBB\xBF"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xEF\xBF\xBD"
#endif
#elif '^' == 95
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x73\x66\x73"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x73\x73\x71"
#endif
#elif '^' == 176
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x72\x65\x72"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x72\x72\x70"
#endif
Game-Xomb
view release on metacpan or search on metacpan
bind_match|5.003007||Viu
block_end|5.004000|5.004000|
block_gimme|5.004000|5.004000|u
blockhook_register|5.013003|5.013003|x
block_start|5.004000|5.004000|
BOM_UTF8|5.025005|5.003007|p
boolSV|5.004000|5.003007|p
boot_core_mro|5.009005||Viu
boot_core_PerlIO|5.007002||Viu
boot_core_UNIVERSAL|5.003007||Viu
_byte_dump_string|5.025006||cViu
#endif
#endif
#if 'A' == 65
#ifndef BOM_UTF8
# define BOM_UTF8 "\xEF\xBB\xBF"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xEF\xBF\xBD"
#endif
#elif '^' == 95
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x73\x66\x73"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x73\x73\x71"
#endif
#elif '^' == 176
#ifndef BOM_UTF8
# define BOM_UTF8 "\xDD\x72\x65\x72"
#endif
#ifndef REPLACEMENT_CHARACTER_UTF8
# define REPLACEMENT_CHARACTER_UTF8 "\xDD\x72\x72\x70"
#endif
Games-Go-Coordinate
view release on metacpan or search on metacpan
t/000-report-versions.t view on Meta::CPAN
return $self->_error("Did not provide a string to load");
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
return $self->_error("Stream has a non UTF-8 BOM");
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
Games-Go-Rank
view release on metacpan or search on metacpan
t/000-report-versions.t view on Meta::CPAN
return $self->_error("Did not provide a string to load");
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
return $self->_error("Stream has a non UTF-8 BOM");
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
Games-RailRoad
view release on metacpan or search on metacpan
t/000-report-versions.t view on Meta::CPAN
return $self->_error("Did not provide a string to load");
}
# Byte order marks
# NOTE: Keeping this here to educate maintainers
# my %BOM = (
# "\357\273\277" => 'UTF-8',
# "\376\377" => 'UTF-16BE',
# "\377\376" => 'UTF-16LE',
# "\377\376\0\0" => 'UTF-32LE'
# "\0\0\376\377" => 'UTF-32BE',
# );
if ( $string =~ /^(?:\376\377|\377\376|\377\376\0\0|\0\0\376\377)/ ) {
return $self->_error("Stream has a non UTF-8 BOM");
} else {
# Strip UTF-8 bom if found, we'll just ignore it
$string =~ s/^\357\273\277//;
}
Gedcom
view release on metacpan or search on metacpan
lib/Gedcom.pm view on Meta::CPAN
$ged->set_encoding("utf-8");
Valid arguments are "ansel" and "utf-8". Defaults to "ansel" but is set to
"utf-8" if the GEDCOM data was read from a file which was deemed to contain
UTF-8, either due to the presence of a BOM or as specified by a CHAR item.
Set the encoding for the GEDCOM file. Calling this directly doesn't alter the
CHAR item, but does affect the way in which files are written.
=head2 write
Genealogy-Gedcom-Date
view release on metacpan or search on metacpan
Changelog.ini view on Meta::CPAN
Date=2016-01-04T09:08:00
Comments= <<EOT
- Considerably expand the new ambiguity_metric() error message discussed below under V 2.03.
Note: The message is now so detailed it contains 2 newline chars and hence 3 lines.
- Add an item to the Trouble-shooting part of the docs explaining why you might get this error.
- Use bommer.pl, which ships are part of File::BOM::Utils, to add a UTF-8 BOM to the source
file lib/Genealogy/Gedcom/Date.pm.
EOT
[V 2.03]
Date=2016-01-03T11:56:00
Gentoo-Perl-Distmap
view release on metacpan or search on metacpan
corpus/distmap.json view on Meta::CPAN
"versions_gentoo" : [
"0.30.300"
]
}
],
"File-BOM" : [
{
"category" : "dev-perl",
"package" : "File-BOM",
"repository" : "gentoo",
"versions_gentoo" : [
"0.140.0"
]
}
( run in 0.698 second using v1.01-cache-2.11-cpan-e9daa2b36ef )