File Coverage

blib/lib/CPAN/Testers/Fact/TestEnvironment.pm

Criterion	Covered	Total	%
statement	15	21	71.4
branch	0	2	0.0
condition			n/a
subroutine	5	7	71.4
pod	1	2	50.0
total	21	32	65.6

use 5.006;
use strict;
use warnings;

package CPAN::Testers::Fact::TestEnvironment;
# ABSTRACT: Environment vars and other local context during a CPAN Testers report

our $VERSION = '1.999003';

use Carp ();

use Metabase::Fact::Hash 0.016;
our @ISA = qw/Metabase::Fact::Hash/;

# special_vars: $^X, UID/EID, GID/EGID, win32 stuff from CPAN::Reporter
# -- dagolden, 2009-03-30
sub optional_keys { qw/environment_vars special_vars/ }

sub validate_content {
    my ($self) = @_;
    $self->SUPER::validate_content;
    my $content = $self->content;
    for my $key ( keys %$content ) {
        Carp::croak "key '$key' must be a hashref" unless ref $content->{$key} eq 'HASH';
    }
}

# XXX do we want content_metadata? -- dagolden, 2009-03-30

1;

__END__