view release on metacpan or  search on metacpan

lib/App/sslmaker.pm  view on Meta::CPAN

  local $ENV{OPENSSL_CONF} = $self->{$key}->path;
  return $self->$cb($args);
}

sub _cat {
  my $self = shift;
  my $dest = pop;

  open my $DEST, '>', $dest or croak "Couldn't write $dest: $!";
  local @ARGV = @_;
  print $DEST $_ for <>;
  close $DEST or croak "Couldn't close $dest: $!";
  return $dest;
}

sub _d {
  return 0 unless DEBUG;
  my ($self, $msg) = @_;
  print STDERR "$msg\n";
  return 0;

t/sslmaker.t  view on Meta::CPAN

  my $i = $_;
  map {"client$i.example.com.$_.pem"} qw(cert csr key)
} 1 .. 2;
my $home = path('local/tmp/sslmaker');
my $script;

unlink @unlink;
delete $ENV{OPENSSL_CONF};

subtest 'silent' => sub {
  local @ARGV = qw(--silent);
  do './script/sslmaker' or plan skip_all => $@;
  $script           = App::sslmaker::script->new;
  $script->{bits}   = 1024;                         # speed up testing
  $script->{silent} = 1;
  $home->remove_tree({safe => 0});
  $home->mkpath;
  ok !-d $home->child('root'), 'nothing exists';
};

subtest 'sslmaker root' => sub {