File Coverage

blib/lib/Test/Requires/Env.pm

Criterion	Covered	Total	%
statement	41	44	93.1
branch	18	22	81.8
condition	2	6	33.3
subroutine	7	7	100.0
pod	1	1	100.0
total	69	80	86.2

package Test::Requires::Env;

use strict;
use warnings;
use parent qw(Test::Builder::Module);

our $VERSION = '0.02';

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

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

    if ( @_ > 0 ) {
        test_environments(@_);
    }
}

sub test_environments {
    my @entries = @_;

    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;
        }
    };

    for my $entry ( @entries ) {
        if ( ref $entry eq 'HASH' ) {
            for my $env_name ( keys %$entry ) {
                unless ( exists $ENV{$env_name} ) {
                    $skip_all->( sprintf('%s environment is not existed', $env_name) );
                }

                if ( ref $entry->{$env_name} eq 'Regexp' ) {
                    my $regex = $entry->{$env_name};
                    $ENV{$env_name} =~ m#$regex#
                        or $skip_all->( sprintf('%s environment is not match by the pattern (pattern: %s)', $env_name, "$regex") );
                }
                else {
                    ( $ENV{$env_name} eq $entry->{$env_name} )
                        or $skip_all->( sprintf("%s environment is not equals %s", $env_name, $entry->{$env_name}) );
                }
            }
        }
        else {
            unless ( exists $ENV{$entry} ) {
                $skip_all->( sprintf('%s environment is not existed', $entry) );
            }
        }
    }
}

1;
__END__