Merge pull request #18 from rwp0/rwp0/base64-my-synopsis

[doc] `Base64.pm` / `QuotedPrint.pm`: Add `my` to Synopsis

Author: mbeijen

lib/MIME/Base64.pm

@@ -42,8 +42,8 @@ MIME::Base64 - Encoding and decoding of base64 strings
 
  use MIME::Base64;
 
- $encoded = encode_base64('Aladdin:open sesame');
- $decoded = decode_base64($encoded);
+ my $encoded = encode_base64('Aladdin:open sesame');
+ my $decoded = decode_base64($encoded);
 
 =head1 DESCRIPTION
 
@@ -91,8 +91,8 @@ If you prefer not to import these routines into your namespace, you can
 call them as:
 
     use MIME::Base64 ();
-    $encoded = MIME::Base64::encode($decoded);
-    $decoded = MIME::Base64::decode($encoded);
+    my $encoded = MIME::Base64::encode($decoded_string);
+    my $decoded = MIME::Base64::decode($encoded);
 
 Additional functions not exported by default:
 
@@ -132,8 +132,8 @@ bytes of data fills one complete base64 line (76 == 57*4/3):
 
    use MIME::Base64 qw(encode_base64);
 
-   open(FILE, "/var/log/wtmp") or die "$!";
-   while (read(FILE, $buf, 60*57)) {
+   open(my $file, '<', '/var/log/wtmp') or die "$!";
+   while (read($file, my $buf, 60*57)) {
        print encode_base64($buf);
    }
 
@@ -161,7 +161,7 @@ example:
     use MIME::Base64 qw(encode_base64);
     use Encode qw(encode);
 
-    $encoded = encode_base64(encode("UTF-8", "\x{FFFF}\n"));
+    my $encoded = encode_base64(encode("UTF-8", "\x{FFFF}\n"));
     print $encoded;
 
 =head1 COPYRIGHT

lib/MIME/QuotedPrint.pm

@@ -26,8 +26,8 @@ MIME::QuotedPrint - Encoding and decoding of quoted-printable strings
 
  use MIME::QuotedPrint;
 
- $encoded = encode_qp($decoded);
- $decoded = decode_qp($encoded);
+ my $encoded = encode_qp($decoded_string);
+ my $decoded = decode_qp($encoded);
 
 =head1 DESCRIPTION
 
@@ -85,8 +85,8 @@ If you prefer not to import these routines into your namespace, you can
 call them as:
 
   use MIME::QuotedPrint ();
-  $encoded = MIME::QuotedPrint::encode($decoded);
-  $decoded = MIME::QuotedPrint::decode($encoded);
+  my $encoded = MIME::QuotedPrint::encode($decoded_string);
+  my $decoded = MIME::QuotedPrint::decode($encoded);
 
 Perl v5.8 and better allow extended Unicode characters in strings.
 Such strings cannot be encoded directly, as the quoted-printable
@@ -97,7 +97,7 @@ example:
     use MIME::QuotedPrint qw(encode_qp);
     use Encode qw(encode);
 
-    $encoded = encode_qp(encode("UTF-8", "\x{FFFF}\n"));
+    my $encoded = encode_qp(encode("UTF-8", "\x{FFFF}\n"));
     print $encoded;
 
 =head1 COPYRIGHT