Perl::PrereqScanner::Scanner::TestMore - scanner to find recent Test::More usage

Perl-PrereqScanner documentation Contained in the Perl-PrereqScanner distribution.

Index

Code Index:

NAME

Top

Perl::PrereqScanner::Scanner::TestMore - scanner to find recent Test::More usage

VERSION

Top

version 1.004

DESCRIPTION

Top

This scanner will check if a given test is using recent functions from Test::More, and increase the minimum version for this module accordingly.

AUTHORS

Top

COPYRIGHT AND LICENSE

Top

This software is copyright (c) 2009 by Jerome Quelin.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.

Perl-PrereqScanner documentation Contained in the Perl-PrereqScanner distribution. 
use strict;
use warnings;

package Perl::PrereqScanner::Scanner::TestMore;
BEGIN {
  $Perl::PrereqScanner::Scanner::TestMore::VERSION = '1.004';
}
# ABSTRACT: scanner to find recent Test::More usage

use Moose;
use List::MoreUtils 'none';
with 'Perl::PrereqScanner::Scanner';

sub scan_for_prereqs {
  my ($self, $ppi_doc, $req) = @_;

  return if none { $_ eq 'Test::More' } $req->required_modules;

  $req->add_minimum('Test::More' => '0.88') if grep {
      $_->isa('PPI::Token::Word') && $_->content eq 'done_testing';
  } map {
      my @c = $_->children;
      @c == 1 ? @c : ()
  } @{ $ppi_doc->find('Statement') || [] }
}

1;





__END__