1 files changed, 34 insertions, 0 deletions
diff --git a/cpan/podlators/t/data/snippets/text/guesswork-quoting b/cpan/podlators/t/data/snippets/text/guesswork-quoting
new file mode 100644
index 0000000000..78a9756fb2
--- /dev/null
+++ b/cpan/podlators/t/data/snippets/text/guesswork-quoting
@@ -0,0 +1,34 @@
+[name]
+Quoting guesswork applied by default
+
+[input]
+=head1 QUOTING
+
+Suppress quotes:
+C<"foo">,
+C<'foo'>,
+C<`foo`>,
+C<`foo'>,
+C<$^F>,
+C<$">,
+C<$#f>,
+C<$foo[4]>,
+C<$foo{bar}>,
+C<%foo>,
+C<@foo>,
+C<&foo>,
+C<*foo>,
+C<< $foo->("bar") >>,
+C<&foo::baz("bar")>,
+C<&foo()>,
+C<foo( "bar" )>,
+C<-1000>,
+C<132.123>,
+C<5e-7>,
+C<0xdeadbeef>
+
+[output]
+QUOTING
+    Suppress quotes: "foo", 'foo', `foo`, `foo', $^F, $", $#f, $foo[4],
+    $foo{bar}, %foo, @foo, &foo, *foo, $foo->("bar"), &foo::baz("bar"),
+    &foo(), foo( "bar" ), -1000, 132.123, 5e-7, 0xdeadbeef