package t::lib::Test;
use strict;
use vars qw{@ISA @EXPORT};
BEGIN {
require Exporter;
@ISA = qw{ Exporter };
@EXPORT = qw{ user_owns_cpan };
}
use CPAN::Inject;
sub user_owns_cpan {
eval {
CPAN::Inject->from_cpan_config;
};
if ( $@ and $@ =~ /The sources directory is not owned by the current user/ ) {
return '';
} else {
return 1;
}
}
1;