make examples compile

Author: Altai-man

doc/Type/Backtrace.pod6

@@ -20,9 +20,9 @@ example routines like C<&die> are hidden by default.
 Defined as:
 
 =begin code :skip-test
-    proto method new(*@, *%) {*}
+proto method new(*@, *%) {*}
+multi method new()
 =end code
-    multi method new()
 
 Usage:
 
@@ -39,7 +39,6 @@ Defined as:
 
 Usage:
 
-
     my $backtrace = Backtrace.new;
     say $backtrace.Str;
 

doc/Type/Backtrace/Frame.pod6

@@ -18,7 +18,9 @@ Defined as:
 
 Usage:
 
-    FRAME.file
+    my $bt = Backtrace.new;
+    my $btf = $bt[0];
+    say $btf.file;
 
 Returns the file name.
 
@@ -30,7 +32,9 @@ Defined as:
 
 Usage:
 
-    FRAME.line
+    my $bt = Backtrace.new;
+    my $btf = $bt[0];
+    say $btf.line;
 
 Returns the line number (line numbers start to count from 1).
 
@@ -42,7 +46,9 @@ Defined as:
 
 Usage:
 
-    FRAME.code
+    my $bt = Backtrace.new;
+    my $btf = $bt[0];
+    say $btf.code;
 
 Returns the code object into which C<.file> and C<.line> point, if available.
 
@@ -54,19 +60,23 @@ Defined as:
 
 Usage:
 
-    FRAME.subname
+    my $bt = Backtrace.new;
+    my $btf = $bt[0];
+    say $btf.subname;
 
 Returns the name of the enclosing subroutine.
 
 =head2 method is-hidden
 
 Defined as:
 
-    method is-hidden(Backtrace::Frame:D) return Bool:D
+    method is-hidden(Backtrace::Frame:D) returns Bool:D
 
 Usage:
 
-    FRAME.is-hidden
+    my $bt = Backtrace.new;
+    my $btf = $bt[0];
+    say $btf.is-hidden;
 
 Returns C<True> if the frame is marked as hidden with the
 C<is hidden-from-backtrace> trait.
@@ -75,11 +85,13 @@ C<is hidden-from-backtrace> trait.
 
 Defined as:
 
-    method is-routine(Backtrace::Frame:D) return Bool:D
+    method is-routine(Backtrace::Frame:D) returns Bool:D
 
 Usage:
 
-    FRAME.is-routine
+    my $bt = Backtrace.new;
+    my $btf = $bt[0];
+    say $btf.is-routine;
 
 Return C<True> if the frame point into a routine (and not
 into a mere L<Block>).
@@ -88,11 +100,13 @@ into a mere L<Block>).
 
 Defined as:
 
-    method is-setting(Backtrace::Frame:D) return Bool:D
+    method is-setting(Backtrace::Frame:D) returns Bool:D
 
 Usage:
 
-    FRAME.is-setting
+    my $bt = Backtrace.new;
+    my $btf = $bt[0];
+    say $btf.is-setting; # True
 
 Returns C<True> if the frame is part of a setting.
 

doc/Type/Metamodel/MROBasedMethodDispatch.pod6

@@ -28,7 +28,8 @@ If C<:no_fallback> is supplied, fallback methods are not considered.
 Given a method name and a type, returns the method from that type. This is
 used in calls like
 
-    self.SomeParentClass::the_method();
+=for code :skip-test
+self.SomeParentClass::the_method();
 
 =begin comment
 

doc/Type/Metamodel/Primitives.pod6

@@ -4,7 +4,9 @@
 
 =SUBTITLE Metaobject that supports low-level type operations
 
-    class Metamodel::Primitives is SuperClass {}
+=begin code :skip-test
+class Metamodel::Primitives is SuperClass {}
+=end code
 
 C<Metamodel::Primitives> provides low-level operations for working with types,
 which are otherwise only available as implementation-dependent directives.
@@ -21,7 +23,9 @@ of just one method called C<why>:
     my %methods =  why => sub ($) { say 42 };
     Metamodel::Primitives.install_method_cache($type, %methods, :authoritative);
     $type.why;      # 42
-    $type.list;     # No such method 'list' for invocant of type 'why oh why?'
+    $type.list;
+    CATCH { default { put .^name, ': ', .Str } };
+    # OUTPUT: «X::Method::NotFound: Method 'list' not found for invocant of class 'why oh why?'␤»
 
 =head1 Methods
 
@@ -50,12 +54,13 @@ to C<False>, the usual fallback mechanism are tried.
 
 =head2 method configure_type_checking
 
-    method configure_type_checking(
-        Mu $type,
-        @cache,
-        :$authoritative = True,
-        :$call_accepts = False
-    )
+=for code :skip-test
+method configure_type_checking(
+    Mu $type,
+    @cache,
+    :$authoritative = True,
+    :$call_accepts = False
+)
 
 Configures the type checking for C<$type>. C<@cache> is a list of known types
 against which C<$type> checks positively (so in a classical class-based

doc/Type/Metamodel/RoleContainer.pod6

@@ -8,13 +8,15 @@
 
 Implements the ability to hold roles to be held for composition.
 
-    class A does SomeRole {}
+=for code :skip-test
+class A does SomeRole {}
 
 roughly corresponds to
 
-    class A {
-        BEGIN A.^add_role(SomeRole);
-    }
+=for code :skip-test
+class A {
+    BEGIN A.^add_role(SomeRole);
+}
 
 =head1 Methods
 

doc/Type/Metamodel/Trusting.pod6

@@ -4,7 +4,8 @@
 
 =SUBTITLE Metaobject that supports trust relations between types
 
-    role Metamodel::Trusting is SuperClass { ... }
+=for code :skip-test
+role Metamodel::Trusting is SuperClass { ... }
 
 Normally, code in a class or role can only access its own private methods. If
 another type declares that it trusts that first class, then access to private
@@ -23,9 +24,9 @@ that aspect of the Perl 6 object system.
             # disallowed if A doesn't trust B
             B.new()!B::private_method();
         }
-    }
+    };
 
-    A.build-and-poke    # Private method in A
+    A.build-and-poke;   # Private method in A
 
 =head1 Methods
 
@@ -35,10 +36,11 @@ that aspect of the Perl 6 object system.
 
 Trust C<$trustee>.
 
-    class A {
-        BEGIN A.^add_trustee(B);
-        # same as 'trusts B';
-    }
+=for code :skip-test
+class A {
+    BEGIN A.^add_trustee(B);
+    # same as 'trusts B';
+}
 
 =head2 method trusts