Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

ignore insignificant tokens, fixing with ()

  • Loading branch information...
commit 8026d2e03c6bde28ce0fe8dac0fe7a3596d41101 1 parent e35d67c
@rjbs authored
Showing with 8 additions and 11 deletions.
  1. +1 −1  lib/Perl/PrereqScanner/Scanner/Moose.pm
  2. +7 −10 t/autoprereq.t
View
2  lib/Perl/PrereqScanner/Scanner/Moose.pm
@@ -36,7 +36,7 @@ sub scan_for_prereqs {
# PPI::Token::Quote::Single
# PPI::Token::Structure
- map { [ $_->children ] }
+ map { [ $_->schildren ] }
grep { $_->child(0)->literal =~ m{\A(?:with|extends)\z} }
grep { $_->child(0)->isa('PPI::Token::Word') }
@{ $ppi_doc->find('PPI::Statement') || [] };
View
17 t/autoprereq.t
@@ -152,16 +152,13 @@ prereq_is(
},
);
-TODO: {
- local $TODO = 'fix space-between-with-and-()';
- prereq_is(
- 'with ("With::QW1", "With::QW2");',
- {
- 'With::QW1' => 0,
- 'With::QW2' => 0,
- },
- );
-}
+prereq_is(
+ 'with ("With::QW1", "With::QW2");',
+ {
+ 'With::QW1' => 0,
+ 'With::QW2' => 0,
+ },
+);
prereq_is(
"with('Paren::Role');",
Please sign in to comment.
Something went wrong with that request. Please try again.