Searched refs:stringify (Results 1 – 25 of 67) sorted by relevance
123
| /mirbsd/src/gnu/usr.bin/perl/lib/ |
| D | Dumpvalue.pm | 63 (print $self->stringify($_[0]), "\n"), return unless ref $_[0];
85 sub stringify { subroutine
126 my $short = $self->stringify($v, ref $v);
133 my @a = map $self->stringify($_), @$v[0..$depth];
141 my @b = map {$self->stringify($_) . " => " . $self->stringify($$v{$_})}
207 push @keys, $self->stringify($_) . " => " . $self->stringify($v->{$_});
216 print $sp, $self->stringify($key), " => ";
233 map {exists $v->[$_] ? $self->stringify($v->[$_]) : "empty"} ($[..$tArrayDepth)
258 print "$sp-> ",$self->stringify($$v,1),"\n";
|
| D | Dumpvalue.t | 37 is( $d->stringify(), 'undef', 'stringify handles undef okay' );
41 is( $d->stringify(), "''", 'stringify skips undef when asked nicely' );
43 is( $d->stringify(*FOO), *FOO . "", 'stringify stringifies globs alright' );
47 like( $d->stringify("hi\005"), qr/^"hi/, 'added double-quotes when necessary' );
63 is( $d->stringify('5@ $1'), "'5\@ \$1'", 'quoted $ and @ fine' );
64 is( $d->stringify("5@\033\$1"), '"5\@\e\$1"', 'quoted $ and @ and \033 fine' );
65 like( $d->stringify("\037"), qr/^"\\c/, 'escaped ASCII value okay' );
|
| D | dumpvar.pl | 32 (print &stringify($_[0]), "\n"), return unless ref $_[0];
54 sub stringify { subroutine
115 my $short = &stringify($_[0], ref $_[0]);
206 push @keys, &stringify($_) . " => " . &stringify($v->{$_});
215 print "$sp", &stringify($key), " => ";
237 map {exists $v->[$_] ? stringify $v->[$_] : "empty"} ($[..$tArrayDepth)
281 print "$sp-> ",&stringify($$v,1),"\n";
|
| D | dumpvar.t | 32 sub stringify { print dumpvar::stringify($_[0]), "\n" }
|
| /mirbsd/src/gnu/usr.bin/perl/ext/Unicode/Normalize/t/ |
| D | null.t | 5 "cannot stringify a Unicode code point\n";
|
| D | short.t | 5 "cannot stringify a Unicode code point\n";
|
| D | illegal.t | 5 "cannot stringify a Unicode code point\n";
|
| D | proto.t | 5 "cannot stringify a Unicode code point\n";
|
| D | norm.t | 5 "cannot stringify a Unicode code point\n";
|
| D | split.t | 5 "cannot stringify a Unicode code point\n";
|
| D | test.t | 5 "cannot stringify a Unicode code point\n";
|
| D | form.t | 5 "cannot stringify a Unicode code point\n";
|
| D | fcdc.t | 5 "cannot stringify a Unicode code point\n";
|
| /mirbsd/src/gnu/usr.bin/perl/lib/Unicode/Collate/t/ |
| D | version.t | 5 "cannot stringify a Unicode code point\n";
|
| D | hangtype.t | 4 "cannot stringify a Unicode code point\n";
|
| D | illegalp.t | 5 "cannot stringify a Unicode code point\n";
|
| D | altern.t | 5 "cannot stringify a Unicode code point\n";
|
| D | variable.t | 5 "cannot stringify a Unicode code point\n";
|
| D | rearrang.t | 5 "cannot stringify a Unicode code point\n";
|
| D | cjkrange.t | 5 "cannot stringify a Unicode code point\n";
|
| D | illegal.t | 5 "cannot stringify a Unicode code point\n";
|
| /mirbsd/src/gnu/usr.bin/binutils/ld/emultempl/ |
| D | gld960.em | 82 sc="-f stringify.sed"
|
| D | gld960c.em | 97 sc="-f stringify.sed"
|
| D | generic.em | 76 sc="-f stringify.sed"
|
| /mirbsd/src/gnu/usr.bin/perl/t/op/ |
| D | sort.t | 402 use overload (qw("" stringify 0+ numify fallback 1));
408 sub stringify { $_[0]->[0] }
|
123