package Module::New::Command::Test;
use strict;
use warnings;
use Carp;
use Module::New::Meta;
use Module::New::Queue;
functions {
prove => sub () { Module::New::Queue->register(sub {
my ($self, @args) = @_;
eval "require App::Prove";
unless ( $@ ) {
my $app = App::Prove->new;
$app->process_args(@args);
$app->run;
}
else {
exec( 'prove', @args );
}
})},
};
1;
__END__
=head1 NAME
Module::New::Command::Test
=head1 SYNOPSIS
=head1 FUNCTIONS
=head2 prove
executes C<prove> command (from L<Test::Harness>).
=head1 AUTHOR
Kenichi Ishigaki, E<lt>ishigaki@cpan.orgE<gt>
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2007-2009 by Kenichi Ishigaki.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
=cut