File Coverage

blib/lib/Catalyst/Plugin/EnvironmentDetector.pm

Criterion	Covered	Total	%
statement	6	18	33.3
branch	0	6	0.0
condition			n/a
subroutine	2	3	66.6
pod	1	1	100.0
total	9	28	32.1

package Catalyst::Plugin::EnvironmentDetector;

use strict;
use Sys::Hostname;

our $VERSION = '0.01';

sub is_environment {
    my ($c, $env_str) = @_;

    my $config = $c->config->{environmentdetector};

    if( exists $config->{$env_str} ) {
        foreach my $match_type ( keys %{ $config->{$env_str} } ) {
            if( $match_type eq "env" ) {
                my $env_key = $config->{$env_str}->{$match_type}[0];
                my $env_pattern = $config->{$env_str}->{$match_type}[1];
                return ($ENV{$env_key} =~ /$env_pattern/);
            } elsif( $match_type eq "hostname" ) {
                return (hostname =~ /$config->{$env_str}{hostname}/);
            } else {
                # unsupported matching criteria
                return undef;
            }
        }
    }

    # in the event you have not configured the pattern
    # match for this environment then always return
    # undef so you will never detect this environment
    # as true.
    return undef;
}

1;
__END__