view release on metacpan or  search on metacpan

lib/HTML/WebMake/Main.pm  view on Meta::CPAN

  $self->{perl_lib_dir} = $self->find_perl_lib_dir();
  $self->init_for_making();

  $self;
}

sub init_for_making {
  my ($self) = @_;

  if ($^O !~ /(win|os2|mac)/i) {
    # which genius decided the mere sniff of getpwuid() should cause
    # a crash on win32? Cheers mate.
    eval ' $self->{current_user} = getpwuid ($>); ';
  } else {
    $self->{current_user} = "unknown";
  }

  $self->{format_conv} = new HTML::WebMake::FormatConvert ($self);
  $self->{metadata} = new HTML::WebMake::Metadata ($self);

  $self->{ignore_for_dependencies} =
  			new HTML::WebMake::File ($self, $SUBST_DEP_IGNORE);
  $self->{meta_ignore_for_dependencies} =

lib/HTML/WebMake/PerlLib/DownloadTag.pm  view on Meta::CPAN

  $self->set_content ('download.size_in_k', int (($size+1023) / 1024));
  $self->set_content ('download.mtime', $mtime);

  {
    my $time = strftime ("%a %b %e %H:%M:%S %Y",
	      localtime ($mtime));
    $self->set_content ('download.mdate', $time);
  }

  {
    my $name = getpwuid($uid);
    $self->set_content ('download.owner', $name);
  }

  {
    my $grp = getgrgid($gid);
    $self->set_content ('download.group', $grp);
  }

  {
    my $attstr = '';