#
# This file is part of CPAN-Testers-Report
#
# This software is Copyright (c) 2010 by David Golden.
#
# This is free software, licensed under:
#
# The Apache License, Version 2.0, January 2004
#
use 5.006;
use strict;
use warnings;
package CPAN::Testers::Fact::TestEnvironment;
BEGIN {
$CPAN::Testers::Fact::TestEnvironment::VERSION = '1.999001';
}
# ABSTRACT: Environment vars and other local context during a CPAN Testers report
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;
=pod
=head1 NAME
CPAN::Testers::Fact::TestEnvironment - Environment vars and other local context during a CPAN Testers report
=head1 VERSION
version 1.999001
=head1 SYNOPSIS
my $fact = CPAN::Testers::Fact::TestEnvironment>new(
resource => 'cpan:///distfile/RJBS/CPAN-Metabase-Fact-0.001.tar.gz',
content => {
environment_vars => {
PERL5LIB => $ENV{PERL5LIB},
TEMP => $ENV{TEMP},
},
special_vars => {
'EXECUTABLE_NAME' => $^X,
'UID' => $<,
},
},
);
=head1 DESCRIPTION
Describes aspects of the environment during a CPAN Testers run.
=for Pod::Coverage optional_keys
=head1 USAGE
See L<Metabase::Fact>.
=head1 BUGS
Please report any bugs or feature using the CPAN Request Tracker.
Bugs can be submitted through the web interface at
L<http://rt.cpan.org/Dist/Display.html?Queue=CPAN-Testers-Report>
When submitting a bug or request, please include a test-file or a patch to an
existing test-file that illustrates the bug or desired feature.
=head1 AUTHOR
David Golden <dagolden@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is Copyright (c) 2010 by David Golden.
This is free software, licensed under:
The Apache License, Version 2.0, January 2004
=cut
__END__