view release on metacpan or  search on metacpan

lib/Perlito5X/unicore/UnicodeData.txt  view on Meta::CPAN

1F499;BLUE HEART;So;0;ON;;;;;N;;;;;
1F49A;GREEN HEART;So;0;ON;;;;;N;;;;;
1F49B;YELLOW HEART;So;0;ON;;;;;N;;;;;
1F49C;PURPLE HEART;So;0;ON;;;;;N;;;;;
1F49D;HEART WITH RIBBON;So;0;ON;;;;;N;;;;;
1F49E;REVOLVING HEARTS;So;0;ON;;;;;N;;;;;
1F49F;HEART DECORATION;So;0;ON;;;;;N;;;;;
1F4A0;DIAMOND SHAPE WITH A DOT INSIDE;So;0;ON;;;;;N;;;;;
1F4A1;ELECTRIC LIGHT BULB;So;0;ON;;;;;N;;;;;
1F4A2;ANGER SYMBOL;So;0;ON;;;;;N;;;;;
1F4A3;BOMB;So;0;ON;;;;;N;;;;;
1F4A4;SLEEPING SYMBOL;So;0;ON;;;;;N;;;;;
1F4A5;COLLISION SYMBOL;So;0;ON;;;;;N;;;;;
1F4A6;SPLASHING SWEAT SYMBOL;So;0;ON;;;;;N;;;;;
1F4A7;DROPLET;So;0;ON;;;;;N;;;;;
1F4A8;DASH SYMBOL;So;0;ON;;;;;N;;;;;
1F4A9;PILE OF POO;So;0;ON;;;;;N;;;;;
1F4AA;FLEXED BICEPS;So;0;ON;;;;;N;;;;;
1F4AB;DIZZY SYMBOL;So;0;ON;;;;;N;;;;;
1F4AC;SPEECH BALLOON;So;0;ON;;;;;N;;;;;
1F4AD;THOUGHT BALLOON;So;0;ON;;;;;N;;;;;

t/utf.t  view on Meta::CPAN

		my $name = 'chrs ' . join ', ', map {sprintf "%#x", ord $_} split '', $expect;
		test($enc, $write, $expect, $bom, $nl, $name);
	    }

	    # This is designed to try to trip over the end of the buffer,
	    # with similar results to U-1000A and U-12800 above.
	    for my $pad (2 .. 162) {
		for my $chr ("\x{10000}", "\x{1000a}", "\x{12800}") {
		    my $padding = ' ' x $pad;
		    # Need 4 octets that were from 2 ASCII characters to trigger
		    # the heuristic that detects UTF-16 without a BOM. For
		    # UTF-16BE, one space and the newline will do, as the
		    # newline's high octet comes first. But for UTF-16LE, a
		    # newline is "\n\0", so it doesn't trigger it.
		    test($enc, "  \n$padding'$chr'", $chr, $bom, $nl,
			 sprintf "'\\x{%x}' with $pad spaces before it", ord $chr);
		}
	    }
	}
    }
}