Gecko [ www.vortexaion.com ]

Name	Size	Permission	Date
Alien	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Base	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
File	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Number	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Object	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Without	[ DIR ]	drwxrwxrwx	2024-07-26 17:38
Alien.pm	23.52 KB	-rw-rw-rw-	2021-01-11 23:36
Base.pm	17.89 KB	-rw-rw-rw-	2018-04-19 19:54
Base.pod	20.63 KB	-rw-rw-rw-	2018-04-19 19:54
CleanNamespaces.pm	8.16 KB	-rw-rw-rw-	2018-12-09 22:20
Differences.pm	18.06 KB	-rw-rw-rw-	2019-03-06 22:53
Exception.pm	15.1 KB	-rw-rw-rw-	2015-12-29 21:53
Fatal.pm	14.52 KB	-rw-rw-rw-	2020-08-09 06:00
File.pm	42.5 KB	-rw-rw-rw-	2021-01-06 05:42
Fork.pm	4.01 KB	-rw-rw-rw-	2008-10-15 08:51
MockTime.pm	6.49 KB	-rw-rw-rw-	2018-04-01 10:05
Mojo.pm	33.99 KB	-rw-rw-rw-	2021-01-17 16:57
Moose.pm	4.07 KB	-rw-rw-rw-	2020-12-19 02:06
Object.pm	4 KB	-rw-rw-rw-	2017-12-23 23:17
Output.pm	21.9 KB	-rw-rw-rw-	2017-03-30 01:32
Requires.pm	3.6 KB	-rw-rw-rw-	2020-05-14 04:34
RequiresInternet.pm	2.87 KB	-rw-rw-rw-	2015-05-26 05:38
Script.pm	18.7 KB	-rw-rw-rw-	2019-10-26 08:22
Specio.pm	40.38 KB	-rw-rw-rw-	2020-03-14 19:47
SubCalls.pm	4.66 KB	-rw-rw-rw-	2017-12-23 23:29
Warn.pm	15.52 KB	-rw-rw-rw-	2018-06-23 13:59
YAML.pm	5.25 KB	-rw-rw-rw-	2018-06-16 18:09
YAML.pod	710 B	-rw-rw-rw-	2018-06-16 18:09
utf8.pm	10.44 KB	-rw-rw-rw-	2020-03-01 14:06

Rename

package Test::Requires;
use strict;
use warnings;
our $VERSION = '0.11';
use base 'Test::Builder::Module';
use 5.006;

sub import {
    my $class = shift;
    my $caller = caller(0);

# export methods
    {
        no strict 'refs';
        *{"$caller\::test_requires"} = \&test_requires;
    }

# test arguments
    if (@_ == 1 && ref $_[0] && ref $_[0] eq 'HASH') {
        while (my ($mod, $ver) = each %{$_[0]}) {
            test_requires($mod, $ver, $caller);
        }
    } else {
        for my $mod (@_) {
            test_requires($mod, undef, $caller);
        }
    }
}

sub test_requires {
    my ( $mod, $ver, $caller ) = @_;
    return if $mod eq __PACKAGE__;
    if (@_ != 3) {
        $caller = caller(0);
    }
    $ver ||= '';

eval qq{package $caller; use $mod $ver}; ## no critic.
    if (my $e = $@) {
        my $skip_all = sub {
            my $builder = __PACKAGE__->builder;

if (not defined $builder->has_plan) {
                $builder->skip_all(@_);
            } elsif ($builder->has_plan eq 'no_plan') {
                $builder->skip(@_);
                if ( $builder->can('parent') && $builder->parent ) {
                    die bless {} => 'Test::Builder::Exception';
                }
                exit 0;
            } else {
                for (1..$builder->has_plan) {
                    $builder->skip(@_);
                }
                if ( $builder->can('parent') && $builder->parent ) {
                    die bless {} => 'Test::Builder::Exception';
                }
                exit 0;
            }
        };
        
        my $msg = "$e";
        if ( $e =~ /^Can't locate/ ) {
            $msg = "Test requires module '$mod' but it's not found";
        }
        
        if ($ENV{RELEASE_TESTING}) {
            __PACKAGE__->builder->BAIL_OUT($msg);
        }
        else {
            $skip_all->($msg);
        }
    }
}

1;
__END__

=head1 NAME

Test::Requires - Checks to see if the module can be loaded

=head1 SYNOPSIS

# in your Makefile.PL
    use inc::Module::Install;
    test_requires 'Test::Requires';

# in your test
    use Test::More tests => 10;
    use Test::Requires {
        'HTTP::MobileAttribute' => 0.01, # skip all if HTTP::MobileAttribute doesn't installed
    };
    isa_ok HTTP::MobileAttribute->new, 'HTTP::MobileAttribute::NonMobile';

# or
    use Test::More tests => 10;
    use Test::Requires qw( 
        HTTP::MobileAttribute
    );
    isa_ok HTTP::MobileAttribute->new, 'HTTP::MobileAttribute::NonMobile';

# or
    use Test::More tests => 10;
    use Test::Requires;
    test_requires 'Some::Optional::Test::Required::Modules';
    isa_ok HTTP::MobileAttribute->new, 'HTTP::MobileAttribute::NonMobile';

=head1 DESCRIPTION

Test::Requires checks to see if the module can be loaded.

If this fails rather than failing tests this B<skips all tests>.

Test::Requires can also be used to require a minimum version of Perl:

use Test::Requires "5.010";  # quoting is necessary!!
    
    # or
    use Test::Requires "v5.10";

=head1 AUTHOR

Tokuhiro Matsuno E<lt>tokuhirom @*(#RJKLFHFSDLJF gmail.comE<gt>

=head1 THANKS TO

kazuho++ # some tricky stuff
    miyagawa++ # original code from t/TestPlagger.pm
    tomyhero++ # reported issue related older test::builder
    tobyink++ # documented that Test::Requires "5.010" works

=head1 ENVIRONMENT

If the C<< RELEASE_TESTING >> environment variable is true, then instead
of skipping tests, Test::Requires bails out.

=head1 SEE ALSO

L<t/TestPlagger.pm>

=head1 LICENSE

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

=cut