Build results of 71219d7 (on master)

Changes

@@ -1,5 +1,5 @@
 Release history for Perl-PrereqScanner-Scanner-Runtime
 
-0.001000 2016-04-09T18:01:04Z b57c196
+0.001000 2016-04-09T18:05:02Z 71219d7
  - First version.
 

MANIFEST

@@ -33,6 +33,7 @@ t/00-report-prereqs.dd
 t/00-report-prereqs.t
 t/all_scanners.t
 t/class-load/basic.t
+t/class-load/ignore.t
 t/module-load/basic.t
 t/module-load/ignored.t
 t/module-runtime/fully_qualified.t

lib/Perl/PrereqScanner/Scanner/Class/Load.pm

@@ -22,9 +22,7 @@ my %functions = (
   try_load_class      => '_get_pn',
   load_optional_class => '_get_pn',
 );
-my %subs = (
-  map { ( "Class::Load::$_" => [ $functions{$_}, $_ ], "$_" => [ $functions{$_}, $_ ], ) } keys %functions
-);
+my %subs = ( map { ( "Class::Load::$_" => [ $functions{$_}, $_ ], "$_" => [ $functions{$_}, $_ ], ) } keys %functions );
 
 
 
@@ -47,13 +45,19 @@ sub scan_for_prereqs {
     sub {
       return q[] unless $_[1]->isa('PPI::Statement');
       my (@children) = $_[1]->schildren;
-      while ( my $child = shift @children ) {
+      my ( $child, $previous );
+      while (@children) {
+        $previous = $child;
+        $child    = shift @children;
 
         # Match sub call
         next
           unless $child->isa('PPI::Token::Word')
           and $child->literal =~ qr/$literal_re/sx;
 
+        # Skip methods
+        next if $previous and $previous->isa('PPI::Token::Operator') and q{->} eq $previous->content;
+
         # Handle a list of arguments as token->next
         if ( $children[0]->isa('PPI::Structure::List') ) {
           push @interesting, [ $child->literal, shift @children ];

t/class-load/ignore.t

@@ -0,0 +1,32 @@
+use strict;
+use warnings;
+
+use Test::More;
+
+# ABSTRACT: Basic class load tests
+
+use Perl::PrereqScanner;
+my $scanner = Perl::PrereqScanner->new( extra_scanners => [qw( Class::Load )], );
+my $prereqs = $scanner->scan_string(
+  q[
+  use Class::Load;
+
+  $thing->load_class("My::ClassA");
+  $thing->try_load_class(q{My::ClassB});
+  $thing->load_optional_class('My::ClassC');
+
+]
+)->as_string_hash;
+
+my $diag_needed;
+
+$diag_needed = 1 unless ok( !exists $prereqs->{"My::ClassA"}, "ClassA reported" );
+$diag_needed = 1 unless ok( !exists $prereqs->{"My::ClassB"}, "ClassB reported" );
+$diag_needed = 1 unless ok( !exists $prereqs->{"My::ClassC"}, "ClassC reported" );
+
+if ($diag_needed) {
+  diag explain $prereqs;
+}
+
+done_testing;
+

xt/author/eol.t

@@ -19,6 +19,7 @@ my @files = (
     't/00-report-prereqs.t',
     't/all_scanners.t',
     't/class-load/basic.t',
+    't/class-load/ignore.t',
     't/module-load/basic.t',
     't/module-load/ignored.t',
     't/module-runtime/fully_qualified.t',