—use
strict;
use
warnings;
{
$Perl::PrereqScanner::Scanner::TestMore::VERSION
=
'1.011'
;
}
# ABSTRACT: scanner to find recent Test::More usage
use
Moose;
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;
=pod
=head1 NAME
Perl::PrereqScanner::Scanner::TestMore - scanner to find recent Test::More usage
=head1 VERSION
version 1.011
=head1 DESCRIPTION
This scanner will check if a given test is using recent functions from
L<Test::More>, and increase the minimum version for this module
accordingly.
=head1 AUTHORS
=over 4
=item *
Jerome Quelin
=item *
Ricardo Signes <rjbs@cpan.org>
=back
=head1 COPYRIGHT AND LICENSE
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.
=cut
__END__