1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
|
#!/usr/bin/perl -w
# Copyright 2009, 2010, 2017 Kevin Ryde
# This file is part of Perl-Critic-Pulp.
#
# Perl-Critic-Pulp is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License as published
# by the Free Software Foundation; either version 3, or (at your option) any
# later version.
#
# Perl-Critic-Pulp is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General
# Public License for more details.
#
# You should have received a copy of the GNU General Public License along
# with Perl-Critic-Pulp. If not, see <http://www.gnu.org/licenses/>.
use 5.004;
use strict;
use warnings;
# uncomment this to run the ### lines
use Smart::Comments;
{
require PPI::Tokenizer;
foreach my $c (0 .. 127) {
my $str = chr($c);
# $str =~ s/[^[:print:]\t\n\v\f\r]/ /g;
my $tokenizer = PPI::Tokenizer->new(\$str);
my $ok = eval { $tokenizer->get_token; 1 };
my $error = $@;
if (! $ok) {
print "$c ",ref $error,"\n";
}
}
exit 0;
}
{
require Perl::Critic::Policy::ValuesAndExpressions::ProhibitUnknownBackslash;
my $str = "\$who is a \N{SMILE}\\n";
require PPI::Tokenizer;
my $tokenizer = PPI::Tokenizer->new(\$str);
# Or we can use it as an iterator
for (;;) {
print "get_token\n";
my $token;
my $ok = eval { $token = $tokenizer->get_token; 1 };
my $error = $@;
### error ref: ref $error
### $error
### $token
if ($ok) {
print "token: $token\n";
} else {
my $message = $error->message;
print "message: $message\n";
last;
}
# PPI::Exception
}
# my $tokens;
# $tokens = $tokenizer->all_tokens;
exit 0;
require PPI::Document;
my $doc = PPI::Document->new(\$str);
print PPI::Document->errstr(\$str),"\n";
exit 0;
Perl::Critic::Policy::ValuesAndExpressions::ProhibitUnknownBackslash::_pos_after_interpolate_variable($str);
exit 0;
;
}
{
# "\v";
exit 0;
}
{
require Encode;
binmode STDOUT, ':utf8' or die;
foreach my $s ('*', 'z',
chr(128),
chr(255),
Encode::decode('latin-1',chr(255)),
chr(0x1234),
chr(0x2022), # bullet
chr(0x2297), # circle times
) {
my $q = quotemeta($s);
print ord($s), " ", ($s eq $q ? "unchanged" : "changed"), " $s $q",
" ",(utf8::is_utf8($s) ? "utf8" : "bytes"), "\n";
}
exit 0;
}
|
