| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ |
| H A D | Dumpvalue.t | 32 is( $d->stringify(), 'undef', 'stringify handles undef okay' );
36 is( $d->stringify(), "''", 'stringify skips undef when asked nicely' );
38 is( $d->stringify(*FOO), *FOO . "", 'stringify stringifies globs alright' );
42 like( $d->stringify("hi\005"), qr/^"hi/, 'added double-quotes when necessary' );
58 is( $d->stringify('5@ $1'), "'5\@ \$1'", 'quoted $ and @ fine' );
59 is( $d->stringify("5@\033\$1"), '"5\@\e\$1"', 'quoted $ and @ and \033 fine' );
60 like( $d->stringify("\037"), qr/^"\\c/, 'escaped ASCII value okay' );
|
| H A 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";
|
| H A D | dumpvar.pl | 32 (print &stringify($_[0]), "\n"), return unless ref $_[0];
54 sub stringify { subroutine
107 my $short = &stringify($_[0], ref $_[0]);
198 push @keys, &stringify($_) . " => " . &stringify($v->{$_});
207 print "$sp", &stringify($key), " => ";
229 map {exists $v->[$_] ? stringify $v->[$_] : "empty"} ($[..$tArrayDepth)
273 print "$sp-> ",&stringify($$v,1),"\n";
|
| H A D | dumpvar.t | 27 sub stringify { print dumpvar::stringify($_[0]), "\n" } subroutine
|
| H A D | overload.t | 28 "" stringify
37 sub stringify { "${$_[0]}" } subroutine
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Unicode/Normalize/t/ |
| H A D | short.t | 5 "cannot stringify a Unicode code point\n";
|
| H A D | null.t | 5 "cannot stringify a Unicode code point\n";
|
| H A D | norm.t | 5 "cannot stringify a Unicode code point\n";
|
| H A D | illegal.t | 5 "cannot stringify a Unicode code point\n";
|
| H A D | test.t | 5 "cannot stringify a Unicode code point\n";
|
| H A D | proto.t | 5 "cannot stringify a Unicode code point\n";
|
| H A D | split.t | 5 "cannot stringify a Unicode code point\n";
|
| H A D | fcdc.t | 5 "cannot stringify a Unicode code point\n";
|
| H A D | form.t | 5 "cannot stringify a Unicode code point\n";
|
| H A D | func.t | 5 "cannot stringify a Unicode code point\n";
|
| /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Unicode/Collate/t/ |
| H A D | version.t | 5 "cannot stringify a Unicode code point\n";
|
| H A D | hangtype.t | 4 "cannot stringify a Unicode code point\n";
|
| H A D | illegalp.t | 5 "cannot stringify a Unicode code point\n";
|
| H A D | rearrang.t | 5 "cannot stringify a Unicode code point\n";
|
| H A D | altern.t | 5 "cannot stringify a Unicode code point\n";
|
| H A D | variable.t | 5 "cannot stringify a Unicode code point\n";
|
| H A D | illegal.t | 5 "cannot stringify a Unicode code point\n";
|
| H A D | contract.t | 4 "cannot stringify a Unicode code point\n";
|
| H A D | view.t | 5 "cannot stringify a Unicode code point\n";
|
| H A D | normal.t | 4 "cannot stringify a Unicode code point\n";
|