view release on metacpan or  search on metacpan

lib/Apache/Config/Preproc/Server/Probe.pm  view on Meta::CPAN

package Apache::Config::Preproc::Server::Probe;
use strict;
use warnings;
use File::Spec;
use IPC::Open3;
use Shell::GetEnv;
use DateTime::Format::ISO8601;
use Symbol 'gensym';
use Carp;

sub new {
    my $class = shift;
    my $self = bless {}, $class;
    local %_ = @_;
    my $v;
    my @servlist;
    if ($v = delete $_{server}) {

lib/Apache/Config/Preproc/Server/Probe.pm  view on Meta::CPAN

    my $self = shift;
    unless ($self->{version}) {
	$self->probe(sub {
	    local $_ = shift;
	    if (/^Server version:\s+(.+?)/(\S+)\s+\((.*?)\)/) {
		$self->{version}{name} = $1;
		$self->{version}{number} = $2;
		$self->{version}{platform} = $3;
	    } elsif (/^Server built:\s+(.+)/) {
		$self->{version}{built} =
		    DateTime::Format::ISO8601->parse_datetime($1);
	    }
        }, '-v');
    }	     
    return $self->{version}
		

1;