Add TITLE and AUTHOR to all cookbook examples

paultcochrane · paultcochrane · commit bde7fe2a93d9 · 2015-04-20T11:08:39.000+02:00
diff --git a/categories/cookbook/01strings/01-00introduction.pl b/categories/cookbook/01strings/01-00introduction.pl
@@ -2,9 +2,9 @@
 
 =begin pod
 
-=head1 NAME
+=TITLE Perl 6 Cookbook: Introduction to Strings
 
-Perl 6 Cookbook: Introduction to Strings
+=AUTHOR Scott Penrose
 
 =head1 Definition
 
diff --git a/categories/cookbook/01strings/01-01substrings.pl b/categories/cookbook/01strings/01-01substrings.pl
@@ -1,7 +1,10 @@
 use v6;
 
 =begin pod
-=head1 Substrings
+
+=TITLE Substrings
+
+=AUTHOR Scott Penrose
 
 You want to access or modify a portion of a string, not the whole thing.
 
diff --git a/categories/cookbook/01strings/01-03exchanging-values.pl b/categories/cookbook/01strings/01-03exchanging-values.pl
@@ -1,7 +1,10 @@
 use v6;
 
 =begin pod
-=head1 Swapping values
+
+=TITLE Swapping values
+
+=AUTHOR Scott Penrose
 
 You want to swap values without using a temporary variable
 
diff --git a/categories/cookbook/01strings/01-04converting-values.pl b/categories/cookbook/01strings/01-04converting-values.pl
@@ -1,7 +1,10 @@
 use v6;
 
 =begin pod
-=head1 Converting between characters and numbers.
+
+=TITLE Converting between characters and numbers.
+
+=AUTHOR Scott Penrose
 
 You want to convert characters to their numeric value or vice-versa
 
diff --git a/categories/cookbook/01strings/01-19trimming-blanks.pl b/categories/cookbook/01strings/01-19trimming-blanks.pl
@@ -1,7 +1,10 @@
 use v6;
 
 =begin pod
-=head1 Trimming blanks from a string
+
+=TITLE Trimming blanks from a string
+
+=AUTHOR Scott Penrose
 
 =end pod
 
diff --git a/categories/cookbook/02numbers/02-01valid-number.pl b/categories/cookbook/02numbers/02-01valid-number.pl
@@ -1,9 +1,10 @@
 use v6;
 
-=pod
-
 =begin pod
-=head1 Valid Number
+
+=TITLE Valid Number
+
+=AUTHOR Steve Mynott
 
 You want to check if a string is a valid number.
 
@@ -15,7 +16,7 @@ =head1 Valid Number
   # that variable will cause it to be coerced into an integer or a
   # number.
 
-  # Ensure that a variable is used to store a real number. 
+  # Ensure that a variable is used to store a real number.
 
   my Num $number;
 
@@ -28,8 +29,8 @@ =head1 Valid Number
   # it against the rule for integers or reals.
 
 # XXX At the moment you have to make use of modules/Grammar/Perl6.pm
-# to get below working.  When grammar support is more mature this 
-# will be fixed.  
+# to get below working.  When grammar support is more mature this
+# will be fixed.
 
   given $string {
     say "Integer" if /^<Int>$/;
diff --git a/categories/cookbook/04arrays/04-01specifying-a-list-in-your-program.pl b/categories/cookbook/04arrays/04-01specifying-a-list-in-your-program.pl
@@ -1,7 +1,10 @@
 use v6;
 
 =begin pod
-=head1 Specifying a list in your program
+
+=TITLE Specifying a list in your program
+
+=AUTHOR Scott Penrose
 
 You want to include a list in your program.  This is how to initialize arrays.
 
diff --git a/categories/cookbook/04arrays/04-02printing-a-list-with-commas.pl b/categories/cookbook/04arrays/04-02printing-a-list-with-commas.pl
@@ -1,7 +1,10 @@
 use v6;
 
 =begin pod
-=head1 Printing a list with commas
+
+=TITLE Printing a list with commas
+
+=AUTHOR Scott Penrose
 
 You'd like to print out a list containing an unknown number of elements,
 placing an "and" before the last element and commas between each element if
diff --git a/categories/cookbook/04arrays/04-05iterating-over-an-array.pl b/categories/cookbook/04arrays/04-05iterating-over-an-array.pl
@@ -1,7 +1,10 @@
 use v6;
 
 =begin pod
-=head1 Iterating Over an Array
+
+=TITLE Iterating Over an Array
+
+=AUTHOR Scott Penrose
 
 You want to iterate over the elements in an array
 
diff --git a/categories/cookbook/05hashes/05-05traversing.pl b/categories/cookbook/05hashes/05-05traversing.pl
@@ -1,7 +1,10 @@
 use v6;
 
 =begin pod
-=head1 Traversing a hash
+
+=TITLE Traversing a hash
+
+=AUTHOR Scott Penrose
 
 You want to perform an action on each entry (i.e., each pair) in a hash.
 
diff --git a/categories/cookbook/07file-access/07-01opening_file.pl b/categories/cookbook/07file-access/07-01opening_file.pl
@@ -1,7 +1,10 @@
 use v6;
 
 =begin pod
-=head1 opening a file
+
+=TITLE Opening a file
+
+=AUTHOR Scott Penrose
 
 You want to read or write a file from Perl.
 
@@ -13,7 +16,7 @@ =head1 opening a file
     or die "Could not open $path for reading $!\n";
 
 my $filename = "test_file";
-my $output = open($filename, :w) 
+my $output = open($filename, :w)
     or die "Could not open $filename for writing $!\n";
 
 
@@ -23,9 +26,9 @@ =head1 opening a file
 # :w      write, automatically creating non existing files and emptying existing files
 # :a      append, keep the file intact and enable to write at the end of it
 # :rw     read and write
-# :r, :w  
+# :r, :w
 # :ra     read and append
-# :r, :a  
+# :r, :a
 #      write and read (overwriting a a file) will we have this?
 
 # Closing the file
diff --git a/categories/cookbook/10subroutines/10-01arguments.pl b/categories/cookbook/10subroutines/10-01arguments.pl
@@ -1,7 +1,10 @@
 use v6;
 
 =begin pod
-=head1 Accessing subroutine arguments
+
+=TITLE Accessing subroutine arguments
+
+=AUTHOR Steve Mynott
 
 You have written a function that takes arguments supplied by its caller and
 you need to access those arguments
diff --git a/categories/cookbook/13classes-objects-and-ties/13-01constructing-an-object.pl b/categories/cookbook/13classes-objects-and-ties/13-01constructing-an-object.pl
@@ -1,7 +1,10 @@
 use v6;
 
 =begin pod
-=head1 Constructing an object
+
+=TITLE Constructing an object
+
+=AUTHOR Scott Penrose
 
 =head2 Problem
 
