Apache-Defaults

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "ExtUtils::MakeMaker" : "0"
         }
      },
      "configure" : {
         "requires" : {
            "ExtUtils::MakeMaker" : "0"
         }
      },
      "runtime" : {
         "requires" : {
            "DateTime::Format::Strptime" : "1.54",
            "File::Spec" : "3.40",
            "IPC::Open3" : "1.13",
            "Shell::GetEnv" : "0.10",
            "Text::ParseWords" : "3.28",
            "perl" : "5.014002"
         }
      },
      "test" : {
         "requires" : {
            "File::Temp" : "0.23",

META.yml  view on Meta::CPAN

name: Apache-Defaults
no_index:
  directory:
    - t
    - inc
provides:
  Apache::Defaults:
    file: lib/Apache/Defaults.pm
    version: '1.03'
requires:
  DateTime::Format::Strptime: '1.54'
  File::Spec: '3.40'
  IPC::Open3: '1.13'
  Shell::GetEnv: '0.10'
  Text::ParseWords: '3.28'
  perl: '5.014002'
resources:
  bugtracker: https://puszcza.gnu.org.ua/bugs/?group=apache-defaults
  repository: git://git.gnu.org.ua/apache-defaults.git
version: '1.03'

Makefile.PL  view on Meta::CPAN

WriteMakefile(NAME         => 'Apache::Defaults',
	      VERSION_FROM => 'lib/Apache/Defaults.pm',
	      AUTHOR       => 'Sergey Poznyakoff <gray@gnu.org>',
	      LICENSE      => 'lgpl_2_1',
	      ABSTRACT_FROM  => 'lib/Apache/Defaults.pm',
	      PREREQ_PM    => {
		  'File::Spec' => '3.40',
		  'IPC::Open3' => '1.13',
		  'Shell::GetEnv' => '0.10',
		  'DateTime::Format::Strptime' => '1.54',
		  'Text::ParseWords' => '3.28'
      	      },
	      TEST_REQUIRES => {
		  'Test' => 0,
		  'File::Temp' => '0.23',
	      },
	      MIN_PERL_VERSION => 5.014002,
	      META_MERGE => {
		  'meta-spec' => { version => 2},
		  resources => {

lib/Apache/Defaults.pm  view on Meta::CPAN

package Apache::Defaults;
use strict;
use warnings;
use File::Spec;
use IPC::Open3;
use Shell::GetEnv;
use DateTime::Format::Strptime;
use Text::ParseWords;
use Symbol 'gensym';
use Carp;

our $VERSION = '1.03';

sub new {
    my $class = shift;
    my $self = bless { on_error => 'croak' }, $class;
    local %_ = @_;

lib/Apache/Defaults.pm  view on Meta::CPAN

sub _get_version_info {
    my $self = shift;
    $self->probe(sub {
	    local $_ = shift;
	    if (m{^Server version:\s+(.+?)/(\S+)\s+\((.*?)\)}) {
		$self->{name} = $1;
		$self->{version} = $2;
		$self->{platform} = $3;
	    } elsif (/^Server built:\s+(.+)/) {
		$self->{built} =
		    DateTime::Format::Strptime->new(
			pattern => '%b %d %Y %H:%M%S',
			locale => 'en_US',
			time_zone => 'UTC',
			on_error => 'undef'
		    )->parse_datetime($1);
			
	    } elsif (/^Server loaded:\s+(.+)$/) {
		$self->{loaded_with} = $1;
	    } elsif (/^Compiled using:\s+(.+)$/) {
		$self->{compiled_with} = $1;

lib/Apache/Defaults.pm  view on Meta::CPAN

Platform (distribution) on which the binary is compiled.

=head2 architecture

Architecture for which the server is built.
    
=head2 built

    $d = $x->built;

Returns a B<DateTime> object, representing the time when the server
was built.

=head2 loaded_with

APR tools with which the server is loaded.
    
=head2 compiled_with

APR tools with which the server is compiled.