We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent cfdbe24 commit 907a983Copy full SHA for 907a983
bin/pdf-checker.raku
@@ -35,6 +35,12 @@ sub key-sort($_) {
35
default {$_}
36
}
37
38
+multi sub gisty(Str $v where .chars > 500) {
39
+ $v.substr(0..128) ~ '…' ~ $v.substr(*-1);
40
+}
41
+
42
+multi sub gisty($v) { $v }
43
44
sub display-item($_) {
45
when Hash|Array {
46
my $obj-num = .?obj-num;
@@ -43,12 +49,11 @@ sub display-item($_) {
49
!! '...';
50
51
when PDF::COS::TextString { .Str.raku }
- when PDF::COS::TextString { .Str.raku }
47
52
default {
48
53
given to-ast($_) {
- .isa(Pair) && .key ~~ 'hex-string'
54
+ gisty .isa(Pair) && .key ~~ 'hex-string'
55
?? .value.raku
- !! $*writer.write($_)
56
+ !! $*writer.write($_);
57
58
59
0 commit comments