Permalink
Browse files

Update README, use print instead of say

  • Loading branch information...
1 parent 0630a1e commit 5dd863066a31dd01378d78743947406c350d745f GlitchMr committed Aug 1, 2012
Showing with 7 additions and 6 deletions.
  1. +2 −1 perl6_doc/README.md
  2. +5 −5 perl6_doc/parse.pl
View
@@ -3,8 +3,9 @@ Perl 6 documentation fetcher and parser for DuckDuckGo
# Dependencies
* wget
-* Perl v5.6
+* Perl v5.10
* CPAN modules:
* `strictures`
+ * `HTML::Entities`
* `HTML::Parser`
* `URI::Escape`
View
@@ -1,4 +1,4 @@
-use 5.006;
+use 5.010;
use strictures 1;
use autodie;
use Encode;
@@ -17,7 +17,7 @@ (_)
}
sub duck_line {
- join( "\t", @_ ) . "\n";
+ join "\t", @_;
}
my %functions;
@@ -99,7 +99,7 @@ sub duck_line {
. duck_escape( $definition{prototype} )
. '</pre></code>'
: q[];
- print duck_line(
+ say duck_line(
"$definition{class}.$function",
'A',
q[],
@@ -119,11 +119,11 @@ sub duck_line {
}
if ( @definitions == 1 ) {
my %definition = %{ $definitions[0] };
- print duck_line( $function, 'R', "$definition{class}.$function",
+ say duck_line( $function, 'R', "$definition{class}.$function",
q[], q[], q[], q[], q[], q[], q[], q[], q[], );
}
else {
- print duck_line( $function, 'D', q[], q[], q[], q[], q[], q[], q[],
+ say duck_line( $function, 'D', q[], q[], q[], q[], q[], q[], q[],
join( '\n', map {"[[$_->{class}.$function]]"} @definitions ),
q[], q[], q[], );
}

0 comments on commit 5dd8630

Please sign in to comment.