This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
t/lib/Cname.pm: Comment, white-space only blead
authorKarl Williamson <khw@cpan.org>
Sun, 10 Jan 2021 03:41:12 +0000 (20:41 -0700)
committerKarl Williamson <khw@cpan.org>
Sun, 17 Jan 2021 00:01:41 +0000 (17:01 -0700)
t/lib/Cname.pm

index dad356a..1c6eca4 100644 (file)
@@ -2,6 +2,9 @@ package Cname;
 our $Evil='A';
 
 sub translator {
+
+    # Returns the input as a name, except for these special ones
+
     my $str = shift;
     if ( $str eq 'EVIL' ) {
         # Returns A first time, AB second, ABC third ... A-ZA the 27th time.
@@ -24,6 +27,7 @@ sub translator {
     if ( $str eq 'TOO-LONG-STR') {
        return 'A' x 256;
     }
+
     return $str;
 }