DOCSP-573 - Tabbed Perl examples for CRUD pages.

Makefile

@@ -70,4 +70,5 @@ examples: examples-python
 # Something about Python example
 examples-python:
 	mkdir -p ${DRIVERS_PATH}
-	curl -SfL https://raw.githubusercontent.com/mongodb/mongo-python-driver/master/test/test_examples.py -o ${DRIVERS_PATH}/test_examples.py 
+	curl -SfL https://raw.githubusercontent.com/mongodb/mongo-python-driver/master/test/test_examples.py -o ${DRIVERS_PATH}/test_examples.py
+	curl -SfL https://raw.githubusercontent.com/mongodb/mongo-perl-driver/master/t/examples/driver-examples.t -o ${DRIVERS_PATH}/driver-examples.t

conf.py

@@ -81,6 +81,7 @@ def has(self, *args):
     'opsmgr': ('https://docs.opsmanager.mongodb.com/current%s', ''),
     'products': ('https://www.mongodb.com/products%s', ''),
     'wtdocs': ('http://source.wiredtiger.com/mongodb-3.4%s', ''),
+    'perl-api': ('https://metacpan.org/pod/MongoDB::%s', ''),
 
 }
 

source/includes/driver-example-delete-55.rst

@@ -30,3 +30,12 @@
             :dedent: 8
             :start-after: Start Example 55
             :end-before: End Example 55
+
+     - id: perl
+       content: |
+         .. class:: copyable-code
+         .. literalinclude:: /driver-examples/driver-examples.t
+            :language: perl
+            :dedent: 4
+            :start-after: Start Example 55
+            :end-before: End Example 55

source/includes/driver-example-delete-56.rst

@@ -18,3 +18,12 @@
             :dedent: 8
             :start-after: Start Example 56
             :end-before: End Example 56
+
+     - id: perl
+       content: |
+         .. class:: copyable-code
+         .. literalinclude:: /driver-examples/driver-examples.t
+            :language: perl
+            :dedent: 4
+            :start-after: Start Example 56
+            :end-before: End Example 56

source/includes/driver-example-delete-57.rst

@@ -18,3 +18,12 @@
             :dedent: 8
             :start-after: Start Example 57
             :end-before: End Example 57
+
+     - id: perl
+       content: |
+         .. class:: copyable-code
+         .. literalinclude:: /driver-examples/driver-examples.t
+            :language: perl
+            :dedent: 4
+            :start-after: Start Example 57
+            :end-before: End Example 57

source/includes/driver-example-delete-58.rst

@@ -18,3 +18,12 @@
             :dedent: 8
             :start-after: Start Example 58
             :end-before: End Example 58
+
+     - id: perl
+       content: |
+         .. class:: copyable-code
+         .. literalinclude:: /driver-examples/driver-examples.t
+            :language: perl
+            :dedent: 4
+            :start-after: Start Example 58
+            :end-before: End Example 58

source/includes/driver-example-delete-result.rst

@@ -6,10 +6,21 @@
      - id: shell
        content: |
          The method returns a document with the status of the operation. For
-         more information and examples, see :method:`~db.collection.deleteMany()`.
+         more information and examples, see
+         :method:`~db.collection.deleteMany()`.
 
      - id: python
        content: |
          The :py:meth:`~pymongo.collection.Collection.delete_many`
          method returns an instance of
-         :py:class:`pymongo.results.DeleteResult` with the status of the operation.
+         :py:class:`pymongo.results.DeleteResult` with the status of the
+         operation.
+
+     - id: perl
+       content: |
+         Upon successful execution, the
+         :perl-api:`delete_many()<Collection#delete_many>` method
+         returns an instance of
+         :perl-api:`MongoDB::DeleteResult<DeleteResult>` whose
+         ``deleted_count`` attribute contains the number of documents
+         that matched the filter.

source/includes/driver-example-insert-1.rst

@@ -26,3 +26,12 @@
             :dedent: 8
             :start-after: Start Example 1
             :end-before: End Example 1
+
+     - id: perl
+       content: |
+         .. class:: copyable-code
+         .. literalinclude:: /driver-examples/driver-examples.t
+            :language: perl
+            :dedent: 4
+            :start-after: Start Example 1
+            :end-before: End Example 1

source/includes/driver-example-insert-2.rst

@@ -18,3 +18,12 @@
             :dedent: 8
             :start-after: Start Example 2
             :end-before: End Example 2
+
+     - id: perl
+       content: |
+         .. class:: copyable-code
+         .. literalinclude:: /driver-examples/driver-examples.t
+            :language: perl
+            :dedent: 4
+            :start-after: Start Example 2
+            :end-before: End Example 2

source/includes/driver-example-insert-3.rst

@@ -28,3 +28,12 @@
             :dedent: 8
             :start-after: Start Example 3
             :end-before: End Example 3
+
+     - id: perl
+       content: |
+         .. class:: copyable-code
+         .. literalinclude:: /driver-examples/driver-examples.t
+            :language: perl
+            :dedent: 4
+            :start-after: Start Example 3
+            :end-before: End Example 3

source/includes/driver-example-query-10.rst

@@ -18,3 +18,12 @@
             :dedent: 8
             :start-after: Start Example 10
             :end-before: End Example 10
+
+     - id: perl
+       content: |
+         .. class:: copyable-code
+         .. literalinclude:: /driver-examples/driver-examples.t
+            :language: perl
+            :dedent: 4
+            :start-after: Start Example 10
+            :end-before: End Example 10

source/includes/driver-example-query-11.rst

@@ -19,3 +19,12 @@
             :dedent: 8
             :start-after: Start Example 11
             :end-before: End Example 11
+
+     - id: perl
+       content: |
+         .. class:: copyable-code
+         .. literalinclude:: /driver-examples/driver-examples.t
+            :language: perl
+            :dedent: 4
+            :start-after: Start Example 11
+            :end-before: End Example 11

source/includes/driver-example-query-12.rst

@@ -19,3 +19,12 @@
             :dedent: 8
             :start-after: Start Example 12
             :end-before: End Example 12
+
+     - id: perl
+       content: |
+         .. class:: copyable-code
+         .. literalinclude:: /driver-examples/driver-examples.t
+            :language: perl
+            :dedent: 4
+            :start-after: Start Example 12
+            :end-before: End Example 12

source/includes/driver-example-query-13.rst

@@ -21,4 +21,13 @@
             :language: python
             :dedent: 8
             :start-after: Start Example 13
-            :end-before: End Example 13
+            :end-before: End Example 13
+
+     - id: perl
+       content: |
+         .. class:: copyable-code
+         .. literalinclude:: /driver-examples/driver-examples.t
+            :language: perl
+            :dedent: 4
+            :start-after: Start Example 13
+            :end-before: End Example 13

source/includes/driver-example-query-14.rst

@@ -30,3 +30,12 @@
             :dedent: 8
             :start-after: Start Example 14
             :end-before: End Example 14
+
+     - id: perl
+       content: |
+         .. class:: copyable-code
+         .. literalinclude:: /driver-examples/driver-examples.t
+            :language: perl
+            :dedent: 4
+            :start-after: Start Example 14
+            :end-before: End Example 14

source/includes/driver-example-query-15.rst

@@ -18,3 +18,12 @@
             :dedent: 8
             :start-after: Start Example 15
             :end-before: End Example 15
+
+     - id: perl
+       content: |
+         .. class:: copyable-code
+         .. literalinclude:: /driver-examples/driver-examples.t
+            :language: perl
+            :dedent: 4
+            :start-after: Start Example 15
+            :end-before: End Example 15

source/includes/driver-example-query-16.rst

@@ -18,3 +18,12 @@
             :dedent: 8
             :start-after: Start Example 16
             :end-before: End Example 16
+
+     - id: perl
+       content: |
+         .. class:: copyable-code
+         .. literalinclude:: /driver-examples/driver-examples.t
+            :language: perl
+            :dedent: 4
+            :start-after: Start Example 16
+            :end-before: End Example 16

source/includes/driver-example-query-17.rst

@@ -18,3 +18,12 @@
             :dedent: 8
             :start-after: Start Example 17
             :end-before: End Example 17
+
+     - id: perl
+       content: |
+         .. class:: copyable-code
+         .. literalinclude:: /driver-examples/driver-examples.t
+            :language: perl
+            :dedent: 4
+            :start-after: Start Example 17
+            :end-before: End Example 17

source/includes/driver-example-query-18.rst

@@ -18,3 +18,12 @@
             :dedent: 8
             :start-after: Start Example 18
             :end-before: End Example 18
+
+     - id: perl
+       content: |
+         .. class:: copyable-code
+         .. literalinclude:: /driver-examples/driver-examples.t
+            :language: perl
+            :dedent: 4
+            :start-after: Start Example 18
+            :end-before: End Example 18

source/includes/driver-example-query-19.rst

@@ -18,3 +18,12 @@
             :dedent: 8
             :start-after: Start Example 19
             :end-before: End Example 19
+
+     - id: perl
+       content: |
+         .. class:: copyable-code
+         .. literalinclude:: /driver-examples/driver-examples.t
+            :language: perl
+            :dedent: 4
+            :start-after: Start Example 19
+            :end-before: End Example 19

source/includes/driver-example-query-20.rst

@@ -30,3 +30,12 @@
             :dedent: 8
             :start-after: Start Example 20
             :end-before: End Example 20
+
+     - id: perl
+       content: |
+         .. class:: copyable-code
+         .. literalinclude:: /driver-examples/driver-examples.t
+            :language: perl
+            :dedent: 4
+            :start-after: Start Example 20
+            :end-before: End Example 20

source/includes/driver-example-query-21.rst

@@ -18,3 +18,12 @@
             :dedent: 8
             :start-after: Start Example 21
             :end-before: End Example 21
+
+     - id: perl
+       content: |
+         .. class:: copyable-code
+         .. literalinclude:: /driver-examples/driver-examples.t
+            :language: perl
+            :dedent: 4
+            :start-after: Start Example 21
+            :end-before: End Example 21

source/includes/driver-example-query-22.rst

@@ -18,3 +18,12 @@
             :dedent: 8
             :start-after: Start Example 22
             :end-before: End Example 22
+
+     - id: perl
+       content: |
+         .. class:: copyable-code
+         .. literalinclude:: /driver-examples/driver-examples.t
+            :language: perl
+            :dedent: 4
+            :start-after: Start Example 22
+            :end-before: End Example 22

source/includes/driver-example-query-23.rst

@@ -18,3 +18,12 @@
             :dedent: 8
             :start-after: Start Example 23
             :end-before: End Example 23
+
+     - id: perl
+       content: |
+         .. class:: copyable-code
+         .. literalinclude:: /driver-examples/driver-examples.t
+            :language: perl
+            :dedent: 4
+            :start-after: Start Example 23
+            :end-before: End Example 23

source/includes/driver-example-query-24.rst

@@ -18,3 +18,12 @@
             :dedent: 8
             :start-after: Start Example 24
             :end-before: End Example 24
+
+     - id: perl
+       content: |
+         .. class:: copyable-code
+         .. literalinclude:: /driver-examples/driver-examples.t
+            :language: perl
+            :dedent: 4
+            :start-after: Start Example 24
+            :end-before: End Example 24

source/includes/driver-example-query-25.rst

@@ -18,3 +18,12 @@
             :dedent: 8
             :start-after: Start Example 25
             :end-before: End Example 25
+
+     - id: perl
+       content: |
+         .. class:: copyable-code
+         .. literalinclude:: /driver-examples/driver-examples.t
+            :language: perl
+            :dedent: 4
+            :start-after: Start Example 25
+            :end-before: End Example 25

source/includes/driver-example-query-26.rst

@@ -18,3 +18,12 @@
             :dedent: 8
             :start-after: Start Example 26
             :end-before: End Example 26
+
+     - id: perl
+       content: |
+         .. class:: copyable-code
+         .. literalinclude:: /driver-examples/driver-examples.t
+            :language: perl
+            :dedent: 4
+            :start-after: Start Example 26
+            :end-before: End Example 26

source/includes/driver-example-query-27.rst

@@ -18,3 +18,12 @@
             :dedent: 8
             :start-after: Start Example 27
             :end-before: End Example 27
+
+     - id: perl
+       content: |
+         .. class:: copyable-code
+         .. literalinclude:: /driver-examples/driver-examples.t
+            :language: perl
+            :dedent: 4
+            :start-after: Start Example 27
+            :end-before: End Example 27

source/includes/driver-example-query-28.rst

@@ -18,3 +18,12 @@
             :dedent: 8
             :start-after: Start Example 28
             :end-before: End Example 28
+
+     - id: perl
+       content: |
+         .. class:: copyable-code
+         .. literalinclude:: /driver-examples/driver-examples.t
+            :language: perl
+            :dedent: 4
+            :start-after: Start Example 28
+            :end-before: End Example 28

source/includes/driver-example-query-29.rst

@@ -30,3 +30,12 @@
             :dedent: 8
             :start-after: Start Example 29
             :end-before: End Example 29
+
+     - id: perl
+       content: |
+         .. class:: copyable-code
+         .. literalinclude:: /driver-examples/driver-examples.t
+            :language: perl
+            :dedent: 4
+            :start-after: Start Example 29
+            :end-before: End Example 29